bfd/elf32-v850.c

   1 /* V850-specific support for 32-bit ELF
   2    Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
   3    Free Software Foundation, Inc.
   4
   5    This file is part of BFD, the Binary File Descriptor library.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
  20
  21 /* XXX FIXME: This code is littered with 32bit int, 16bit short, 8bit char
  22    dependencies.  As is the gas & simulator code for the v850.  */
  23
  24 #include "bfd.h"
  25 #include "sysdep.h"
  26 #include "bfdlink.h"
  27 #include "libbfd.h"
  28 #include "elf-bfd.h"
  29 #include "elf/v850.h"
  30 #include "libiberty.h"
  31
  32 /* Sign-extend a 24-bit number.  */
  33 #define SEXT24(x)       ((((x) & 0xffffff) ^ 0x800000) - 0x800000)
  34
  35 static reloc_howto_type *v850_elf_reloc_type_lookup
  36   PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
  37 static void v850_elf_info_to_howto_rel
  38   PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
  39 static void v850_elf_info_to_howto_rela
  40   PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
  41 static bfd_reloc_status_type v850_elf_reloc
  42   PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
  43 static bfd_boolean v850_elf_is_local_label_name
  44   PARAMS ((bfd *, const char *));
  45 static bfd_boolean v850_elf_relocate_section
  46   PARAMS((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
  47           Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
  48 static bfd_reloc_status_type v850_elf_perform_relocation
  49   PARAMS ((bfd *, unsigned int, bfd_vma, bfd_byte *));
  50 static bfd_boolean v850_elf_check_relocs
  51   PARAMS ((bfd *, struct bfd_link_info *, asection *, const Elf_Internal_Rela *));
  52 static void remember_hi16s_reloc
  53   PARAMS ((bfd *, bfd_vma, bfd_byte *));
  54 static bfd_byte * find_remembered_hi16s_reloc
  55   PARAMS ((bfd_vma, bfd_boolean *));
  56 static bfd_reloc_status_type v850_elf_final_link_relocate
  57   PARAMS ((reloc_howto_type *, bfd *, bfd *, asection *, bfd_byte *, bfd_vma,
  58            bfd_vma, bfd_vma, struct bfd_link_info *, asection *, int));
  59 static bfd_boolean v850_elf_object_p
  60   PARAMS ((bfd *));
  61 static bfd_boolean v850_elf_fake_sections
  62   PARAMS ((bfd *, Elf_Internal_Shdr *, asection *));
  63 static void v850_elf_final_write_processing
  64   PARAMS ((bfd *, bfd_boolean));
  65 static bfd_boolean v850_elf_set_private_flags
  66   PARAMS ((bfd *, flagword));
  67 static bfd_boolean v850_elf_merge_private_bfd_data
  68   PARAMS ((bfd *, bfd *));
  69 static bfd_boolean v850_elf_print_private_bfd_data
  70   PARAMS ((bfd *, PTR));
  71 static bfd_boolean v850_elf_section_from_bfd_section
  72   PARAMS ((bfd *, asection *, int *));
  73 static void v850_elf_symbol_processing
  74   PARAMS ((bfd *, asymbol *));
  75 static bfd_boolean v850_elf_add_symbol_hook
  76   PARAMS ((bfd *, struct bfd_link_info *, Elf_Internal_Sym *,
  77            const char **, flagword *, asection **, bfd_vma *));
  78 static bfd_boolean v850_elf_link_output_symbol_hook
  79   PARAMS ((struct bfd_link_info *, const char *, Elf_Internal_Sym *,
  80            asection *, struct elf_link_hash_entry *));
  81 static bfd_boolean v850_elf_gc_sweep_hook
  82   PARAMS ((bfd *, struct bfd_link_info *, asection *,
  83            const Elf_Internal_Rela *));
  84 static asection * v850_elf_gc_mark_hook
  85   PARAMS ((asection *, struct bfd_link_info *,
  86            Elf_Internal_Rela *, struct elf_link_hash_entry *,
  87            Elf_Internal_Sym *));
  88 static bfd_reloc_status_type v850_elf_ignore_reloc
  89   PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
  90 static bfd_boolean v850_elf_relax_delete_bytes
  91   PARAMS ((bfd *, asection *, bfd_vma, bfd_vma, int));
  92 static bfd_boolean v850_elf_relax_section
  93   PARAMS ((bfd *, asection *, struct bfd_link_info *, bfd_boolean *));
  94
  95 /* Note: It is REQUIRED that the 'type' value of each entry
  96    in this array match the index of the entry in the array.  */
  97 static reloc_howto_type v850_elf_howto_table[] =
  98 {
  99   /* This reloc does nothing.  */
 100   HOWTO (R_V850_NONE,                   /* type */
 101          0,                             /* rightshift */
 102          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 103          32,                            /* bitsize */
 104          FALSE,                         /* pc_relative */
 105          0,                             /* bitpos */
 106          complain_overflow_bitfield,    /* complain_on_overflow */
 107          bfd_elf_generic_reloc,         /* special_function */
 108          "R_V850_NONE",                 /* name */
 109          FALSE,                         /* partial_inplace */
 110          0,                             /* src_mask */
 111          0,                             /* dst_mask */
 112          FALSE),                        /* pcrel_offset */
 113
 114   /* A PC relative 9 bit branch.  */
 115   HOWTO (R_V850_9_PCREL,                /* type */
 116          2,                             /* rightshift */
 117          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 118          26,                            /* bitsize */
 119          TRUE,                          /* pc_relative */
 120          0,                             /* bitpos */
 121          complain_overflow_bitfield,    /* complain_on_overflow */
 122          v850_elf_reloc,                /* special_function */
 123          "R_V850_9_PCREL",              /* name */
 124          FALSE,                         /* partial_inplace */
 125          0x00ffffff,                    /* src_mask */
 126          0x00ffffff,                    /* dst_mask */
 127          TRUE),                         /* pcrel_offset */
 128
 129   /* A PC relative 22 bit branch.  */
 130   HOWTO (R_V850_22_PCREL,               /* type */
 131          2,                             /* rightshift */
 132          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 133          22,                            /* bitsize */
 134          TRUE,                          /* pc_relative */
 135          7,                             /* bitpos */
 136          complain_overflow_signed,      /* complain_on_overflow */
 137          v850_elf_reloc,                /* special_function */
 138          "R_V850_22_PCREL",             /* name */
 139          FALSE,                         /* partial_inplace */
 140          0x07ffff80,                    /* src_mask */
 141          0x07ffff80,                    /* dst_mask */
 142          TRUE),                         /* pcrel_offset */
 143
 144   /* High 16 bits of symbol value.  */
 145   HOWTO (R_V850_HI16_S,                 /* type */
 146          0,                             /* rightshift */
 147          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 148          16,                            /* bitsize */
 149          FALSE,                         /* pc_relative */
 150          0,                             /* bitpos */
 151          complain_overflow_dont,        /* complain_on_overflow */
 152          v850_elf_reloc,                /* special_function */
 153          "R_V850_HI16_S",               /* name */
 154          FALSE,                         /* partial_inplace */
 155          0xffff,                        /* src_mask */
 156          0xffff,                        /* dst_mask */
 157          FALSE),                        /* pcrel_offset */
 158
 159   /* High 16 bits of symbol value.  */
 160   HOWTO (R_V850_HI16,                   /* type */
 161          0,                             /* rightshift */
 162          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 163          16,                            /* bitsize */
 164          FALSE,                         /* pc_relative */
 165          0,                             /* bitpos */
 166          complain_overflow_dont,        /* complain_on_overflow */
 167          v850_elf_reloc,                /* special_function */
 168          "R_V850_HI16",                 /* name */
 169          FALSE,                         /* partial_inplace */
 170          0xffff,                        /* src_mask */
 171          0xffff,                        /* dst_mask */
 172          FALSE),                        /* pcrel_offset */
 173
 174   /* Low 16 bits of symbol value.  */
 175   HOWTO (R_V850_LO16,                   /* type */
 176          0,                             /* rightshift */
 177          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 178          16,                            /* bitsize */
 179          FALSE,                         /* pc_relative */
 180          0,                             /* bitpos */
 181          complain_overflow_dont,        /* complain_on_overflow */
 182          v850_elf_reloc,                /* special_function */
 183          "R_V850_LO16",                 /* name */
 184          FALSE,                         /* partial_inplace */
 185          0xffff,                        /* src_mask */
 186          0xffff,                        /* dst_mask */
 187          FALSE),                        /* pcrel_offset */
 188
 189   /* Simple 32bit reloc.  */
 190   HOWTO (R_V850_ABS32,                  /* type */
 191          0,                             /* rightshift */
 192          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 193          32,                            /* bitsize */
 194          FALSE,                         /* pc_relative */
 195          0,                             /* bitpos */
 196          complain_overflow_dont,        /* complain_on_overflow */
 197          v850_elf_reloc,                /* special_function */
 198          "R_V850_ABS32",                /* name */
 199          FALSE,                         /* partial_inplace */
 200          0xffffffff,                    /* src_mask */
 201          0xffffffff,                    /* dst_mask */
 202          FALSE),                        /* pcrel_offset */
 203
 204   /* Simple 16bit reloc.  */
 205   HOWTO (R_V850_16,                     /* type */
 206          0,                             /* rightshift */
 207          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 208          16,                            /* bitsize */
 209          FALSE,                         /* pc_relative */
 210          0,                             /* bitpos */
 211          complain_overflow_dont,        /* complain_on_overflow */
 212          bfd_elf_generic_reloc,         /* special_function */
 213          "R_V850_16",                   /* name */
 214          FALSE,                         /* partial_inplace */
 215          0xffff,                        /* src_mask */
 216          0xffff,                        /* dst_mask */
 217          FALSE),                        /* pcrel_offset */
 218
 219   /* Simple 8bit reloc.  */
 220   HOWTO (R_V850_8,                      /* type */
 221          0,                             /* rightshift */
 222          0,                             /* size (0 = byte, 1 = short, 2 = long) */
 223          8,                             /* bitsize */
 224          FALSE,                         /* pc_relative */
 225          0,                             /* bitpos */
 226          complain_overflow_dont,        /* complain_on_overflow */
 227          bfd_elf_generic_reloc,         /* special_function */
 228          "R_V850_8",                    /* name */
 229          FALSE,                         /* partial_inplace */
 230          0xff,                          /* src_mask */
 231          0xff,                          /* dst_mask */
 232          FALSE),                        /* pcrel_offset */
 233
 234   /* 16 bit offset from the short data area pointer.  */
 235   HOWTO (R_V850_SDA_16_16_OFFSET,       /* type */
 236          0,                             /* rightshift */
 237          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 238          16,                            /* bitsize */
 239          FALSE,                         /* pc_relative */
 240          0,                             /* bitpos */
 241          complain_overflow_dont,        /* complain_on_overflow */
 242          v850_elf_reloc,                /* special_function */
 243          "R_V850_SDA_16_16_OFFSET",     /* name */
 244          FALSE,                         /* partial_inplace */
 245          0xffff,                        /* src_mask */
 246          0xffff,                        /* dst_mask */
 247          FALSE),                        /* pcrel_offset */
 248
 249   /* 15 bit offset from the short data area pointer.  */
 250   HOWTO (R_V850_SDA_15_16_OFFSET,       /* type */
 251          1,                             /* rightshift */
 252          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 253          16,                            /* bitsize */
 254          FALSE,                         /* pc_relative */
 255          1,                             /* bitpos */
 256          complain_overflow_dont,        /* complain_on_overflow */
 257          v850_elf_reloc,                /* special_function */
 258          "R_V850_SDA_15_16_OFFSET",     /* name */
 259          FALSE,                         /* partial_inplace */
 260          0xfffe,                        /* src_mask */
 261          0xfffe,                        /* dst_mask */
 262          FALSE),                        /* pcrel_offset */
 263
 264   /* 16 bit offset from the zero data area pointer.  */
 265   HOWTO (R_V850_ZDA_16_16_OFFSET,       /* type */
 266          0,                             /* rightshift */
 267          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 268          16,                            /* bitsize */
 269          FALSE,                         /* pc_relative */
 270          0,                             /* bitpos */
 271          complain_overflow_dont,        /* complain_on_overflow */
 272          v850_elf_reloc,                /* special_function */
 273          "R_V850_ZDA_16_16_OFFSET",     /* name */
 274          FALSE,                         /* partial_inplace */
 275          0xffff,                        /* src_mask */
 276          0xffff,                        /* dst_mask */
 277          FALSE),                        /* pcrel_offset */
 278
 279   /* 15 bit offset from the zero data area pointer.  */
 280   HOWTO (R_V850_ZDA_15_16_OFFSET,       /* type */
 281          1,                             /* rightshift */
 282          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 283          16,                            /* bitsize */
 284          FALSE,                         /* pc_relative */
 285          1,                             /* bitpos */
 286          complain_overflow_dont,        /* complain_on_overflow */
 287          v850_elf_reloc,                /* special_function */
 288          "R_V850_ZDA_15_16_OFFSET",     /* name */
 289          FALSE,                         /* partial_inplace */
 290          0xfffe,                        /* src_mask */
 291          0xfffe,                        /* dst_mask */
 292          FALSE),                        /* pcrel_offset */
 293
 294   /* 6 bit offset from the tiny data area pointer.  */
 295   HOWTO (R_V850_TDA_6_8_OFFSET,         /* type */
 296          2,                             /* rightshift */
 297          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 298          8,                             /* bitsize */
 299          FALSE,                         /* pc_relative */
 300          1,                             /* bitpos */
 301          complain_overflow_dont,        /* complain_on_overflow */
 302          v850_elf_reloc,                /* special_function */
 303          "R_V850_TDA_6_8_OFFSET",       /* name */
 304          FALSE,                         /* partial_inplace */
 305          0x7e,                          /* src_mask */
 306          0x7e,                          /* dst_mask */
 307          FALSE),                        /* pcrel_offset */
 308
 309   /* 8 bit offset from the tiny data area pointer.  */
 310   HOWTO (R_V850_TDA_7_8_OFFSET,         /* type */
 311          1,                             /* rightshift */
 312          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 313          8,                             /* bitsize */
 314          FALSE,                         /* pc_relative */
 315          0,                             /* bitpos */
 316          complain_overflow_dont,        /* complain_on_overflow */
 317          v850_elf_reloc,                /* special_function */
 318          "R_V850_TDA_7_8_OFFSET",       /* name */
 319          FALSE,                         /* partial_inplace */
 320          0x7f,                          /* src_mask */
 321          0x7f,                          /* dst_mask */
 322          FALSE),                        /* pcrel_offset */
 323
 324   /* 7 bit offset from the tiny data area pointer.  */
 325   HOWTO (R_V850_TDA_7_7_OFFSET,         /* type */
 326          0,                             /* rightshift */
 327          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 328          7,                             /* bitsize */
 329          FALSE,                         /* pc_relative */
 330          0,                             /* bitpos */
 331          complain_overflow_dont,        /* complain_on_overflow */
 332          v850_elf_reloc,                /* special_function */
 333          "R_V850_TDA_7_7_OFFSET",       /* name */
 334          FALSE,                         /* partial_inplace */
 335          0x7f,                          /* src_mask */
 336          0x7f,                          /* dst_mask */
 337          FALSE),                        /* pcrel_offset */
 338
 339   /* 16 bit offset from the tiny data area pointer!  */
 340   HOWTO (R_V850_TDA_16_16_OFFSET,       /* type */
 341          0,                             /* rightshift */
 342          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 343          16,                            /* bitsize */
 344          FALSE,                         /* pc_relative */
 345          0,                             /* bitpos */
 346          complain_overflow_dont,        /* complain_on_overflow */
 347          v850_elf_reloc,                /* special_function */
 348          "R_V850_TDA_16_16_OFFSET",     /* name */
 349          FALSE,                         /* partial_inplace */
 350          0xffff,                        /* src_mask */
 351          0xfff,                         /* dst_mask */
 352          FALSE),                        /* pcrel_offset */
 353
 354   /* 5 bit offset from the tiny data area pointer.  */
 355   HOWTO (R_V850_TDA_4_5_OFFSET,         /* type */
 356          1,                             /* rightshift */
 357          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 358          5,                             /* bitsize */
 359          FALSE,                         /* pc_relative */
 360          0,                             /* bitpos */
 361          complain_overflow_dont,        /* complain_on_overflow */
 362          v850_elf_reloc,                /* special_function */
 363          "R_V850_TDA_4_5_OFFSET",       /* name */
 364          FALSE,                         /* partial_inplace */
 365          0x0f,                          /* src_mask */
 366          0x0f,                          /* dst_mask */
 367          FALSE),                        /* pcrel_offset */
 368
 369   /* 4 bit offset from the tiny data area pointer.  */
 370   HOWTO (R_V850_TDA_4_4_OFFSET,         /* type */
 371          0,                             /* rightshift */
 372          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 373          4,                             /* bitsize */
 374          FALSE,                         /* pc_relative */
 375          0,                             /* bitpos */
 376          complain_overflow_dont,        /* complain_on_overflow */
 377          v850_elf_reloc,                /* special_function */
 378          "R_V850_TDA_4_4_OFFSET",       /* name */
 379          FALSE,                         /* partial_inplace */
 380          0x0f,                          /* src_mask */
 381          0x0f,                          /* dst_mask */
 382          FALSE),                        /* pcrel_offset */
 383
 384   /* 16 bit offset from the short data area pointer.  */
 385   HOWTO (R_V850_SDA_16_16_SPLIT_OFFSET, /* type */
 386          0,                             /* rightshift */
 387          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 388          16,                            /* bitsize */
 389          FALSE,                         /* pc_relative */
 390          0,                             /* bitpos */
 391          complain_overflow_dont,        /* complain_on_overflow */
 392          v850_elf_reloc,                /* special_function */
 393          "R_V850_SDA_16_16_SPLIT_OFFSET",/* name */
 394          FALSE,                         /* partial_inplace */
 395          0xfffe0020,                    /* src_mask */
 396          0xfffe0020,                    /* dst_mask */
 397          FALSE),                        /* pcrel_offset */
 398
 399   /* 16 bit offset from the zero data area pointer.  */
 400   HOWTO (R_V850_ZDA_16_16_SPLIT_OFFSET, /* type */
 401          0,                             /* rightshift */
 402          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 403          16,                            /* bitsize */
 404          FALSE,                         /* pc_relative */
 405          0,                             /* bitpos */
 406          complain_overflow_dont,        /* complain_on_overflow */
 407          v850_elf_reloc,                /* special_function */
 408          "R_V850_ZDA_16_16_SPLIT_OFFSET",/* name */
 409          FALSE,                         /* partial_inplace */
 410          0xfffe0020,                    /* src_mask */
 411          0xfffe0020,                    /* dst_mask */
 412          FALSE),                        /* pcrel_offset */
 413
 414   /* 6 bit offset from the call table base pointer.  */
 415   HOWTO (R_V850_CALLT_6_7_OFFSET,       /* type */
 416          0,                             /* rightshift */
 417          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 418          7,                             /* bitsize */
 419          FALSE,                         /* pc_relative */
 420          0,                             /* bitpos */
 421          complain_overflow_dont,        /* complain_on_overflow */
 422          v850_elf_reloc,                /* special_function */
 423          "R_V850_CALLT_6_7_OFFSET",     /* name */
 424          FALSE,                         /* partial_inplace */
 425          0x3f,                          /* src_mask */
 426          0x3f,                          /* dst_mask */
 427          FALSE),                        /* pcrel_offset */
 428
 429   /* 16 bit offset from the call table base pointer.  */
 430   HOWTO (R_V850_CALLT_16_16_OFFSET,     /* type */
 431          0,                             /* rightshift */
 432          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 433          16,                            /* bitsize */
 434          FALSE,                         /* pc_relative */
 435          0,                             /* bitpos */
 436          complain_overflow_dont,        /* complain_on_overflow */
 437          v850_elf_reloc,                /* special_function */
 438          "R_V850_CALLT_16_16_OFFSET",   /* name */
 439          FALSE,                         /* partial_inplace */
 440          0xffff,                        /* src_mask */
 441          0xffff,                        /* dst_mask */
 442          FALSE),                        /* pcrel_offset */
 443
 444   /* GNU extension to record C++ vtable hierarchy */
 445   HOWTO (R_V850_GNU_VTINHERIT, /* type */
 446          0,                     /* rightshift */
 447          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 448          0,                     /* bitsize */
 449          FALSE,                 /* pc_relative */
 450          0,                     /* bitpos */
 451          complain_overflow_dont, /* complain_on_overflow */
 452          NULL,                  /* special_function */
 453          "R_V850_GNU_VTINHERIT", /* name */
 454          FALSE,                 /* partial_inplace */
 455          0,                     /* src_mask */
 456          0,                     /* dst_mask */
 457          FALSE),                /* pcrel_offset */
 458
 459   /* GNU extension to record C++ vtable member usage */
 460   HOWTO (R_V850_GNU_VTENTRY,     /* type */
 461          0,                     /* rightshift */
 462          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 463          0,                     /* bitsize */
 464          FALSE,                 /* pc_relative */
 465          0,                     /* bitpos */
 466          complain_overflow_dont, /* complain_on_overflow */
 467          _bfd_elf_rel_vtable_reloc_fn,  /* special_function */
 468          "R_V850_GNU_VTENTRY",   /* name */
 469          FALSE,                 /* partial_inplace */
 470          0,                     /* src_mask */
 471          0,                     /* dst_mask */
 472          FALSE),                /* pcrel_offset */
 473
 474   /* Indicates a .longcall pseudo-op.  The compiler will generate a .longcall
 475      pseudo-op when it finds a function call which can be relaxed.  */
 476   HOWTO (R_V850_LONGCALL,     /* type */
 477        0,                     /* rightshift */
 478        2,                     /* size (0 = byte, 1 = short, 2 = long) */
 479        32,                    /* bitsize */
 480        TRUE,                  /* pc_relative */
 481        0,                     /* bitpos */
 482        complain_overflow_signed, /* complain_on_overflow */
 483        v850_elf_ignore_reloc, /* special_function */
 484        "R_V850_LONGCALL",     /* name */
 485        FALSE,                 /* partial_inplace */
 486        0,                     /* src_mask */
 487        0,                     /* dst_mask */
 488        TRUE),                 /* pcrel_offset */
 489
 490   /* Indicates a .longjump pseudo-op.  The compiler will generate a
 491      .longjump pseudo-op when it finds a branch which can be relaxed.  */
 492   HOWTO (R_V850_LONGJUMP,     /* type */
 493        0,                     /* rightshift */
 494        2,                     /* size (0 = byte, 1 = short, 2 = long) */
 495        32,                    /* bitsize */
 496        TRUE,                  /* pc_relative */
 497        0,                     /* bitpos */
 498        complain_overflow_signed, /* complain_on_overflow */
 499        v850_elf_ignore_reloc, /* special_function */
 500        "R_V850_LONGJUMP",     /* name */
 501        FALSE,                 /* partial_inplace */
 502        0,                     /* src_mask */
 503        0,                     /* dst_mask */
 504        TRUE),                 /* pcrel_offset */
 505
 506   HOWTO (R_V850_ALIGN,        /* type */
 507        0,                     /* rightshift */
 508        1,                     /* size (0 = byte, 1 = short, 2 = long) */
 509        0,                     /* bitsize */
 510        FALSE,                 /* pc_relative */
 511        0,                     /* bitpos */
 512        complain_overflow_unsigned, /* complain_on_overflow */
 513        v850_elf_ignore_reloc, /* special_function */
 514        "R_V850_ALIGN",        /* name */
 515        FALSE,                 /* partial_inplace */
 516        0,                     /* src_mask */
 517        0,                     /* dst_mask */
 518        TRUE),                 /* pcrel_offset */
 519
 520   /* Simple pc-relative 32bit reloc.  */
 521   HOWTO (R_V850_REL32,                  /* type */
 522          0,                             /* rightshift */
 523          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 524          32,                            /* bitsize */
 525          TRUE,                          /* pc_relative */
 526          0,                             /* bitpos */
 527          complain_overflow_dont,        /* complain_on_overflow */
 528          v850_elf_reloc,                /* special_function */
 529          "R_V850_REL32",                /* name */
 530          FALSE,                         /* partial_inplace */
 531          0xffffffff,                    /* src_mask */
 532          0xffffffff,                    /* dst_mask */
 533          FALSE),                        /* pcrel_offset */
 534
 535   /* An ld.bu version of R_V850_LO16.  */
 536   HOWTO (R_V850_LO16_SPLIT_OFFSET,      /* type */
 537          0,                             /* rightshift */
 538          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 539          16,                            /* bitsize */
 540          FALSE,                         /* pc_relative */
 541          0,                             /* bitpos */
 542          complain_overflow_dont,        /* complain_on_overflow */
 543          v850_elf_reloc,                /* special_function */
 544          "R_V850_LO16_SPLIT_OFFSET",    /* name */
 545          FALSE,                         /* partial_inplace */
 546          0xfffe0020,                    /* src_mask */
 547          0xfffe0020,                    /* dst_mask */
 548          FALSE),                        /* pcrel_offset */
 549 };
 550
 551 /* Map BFD reloc types to V850 ELF reloc types.  */
 552
 553 struct v850_elf_reloc_map
 554 {
 555   /* BFD_RELOC_V850_CALLT_16_16_OFFSET is 258, which will not fix in an
 556      unsigned char.  */
 557   bfd_reloc_code_real_type bfd_reloc_val;
 558   unsigned int elf_reloc_val;
 559 };
 560
 561 static const struct v850_elf_reloc_map v850_elf_reloc_map[] =
 562 {
 563   { BFD_RELOC_NONE,                        R_V850_NONE                   },
 564   { BFD_RELOC_V850_9_PCREL,                R_V850_9_PCREL                },
 565   { BFD_RELOC_V850_22_PCREL,               R_V850_22_PCREL               },
 566   { BFD_RELOC_HI16_S,                      R_V850_HI16_S                 },
 567   { BFD_RELOC_HI16,                        R_V850_HI16                   },
 568   { BFD_RELOC_LO16,                        R_V850_LO16                   },
 569   { BFD_RELOC_32,                          R_V850_ABS32                  },
 570   { BFD_RELOC_32_PCREL,                    R_V850_REL32                  },
 571   { BFD_RELOC_16,                          R_V850_16                     },
 572   { BFD_RELOC_8,                           R_V850_8                      },
 573   { BFD_RELOC_V850_SDA_16_16_OFFSET,       R_V850_SDA_16_16_OFFSET       },
 574   { BFD_RELOC_V850_SDA_15_16_OFFSET,       R_V850_SDA_15_16_OFFSET       },
 575   { BFD_RELOC_V850_ZDA_16_16_OFFSET,       R_V850_ZDA_16_16_OFFSET       },
 576   { BFD_RELOC_V850_ZDA_15_16_OFFSET,       R_V850_ZDA_15_16_OFFSET       },
 577   { BFD_RELOC_V850_TDA_6_8_OFFSET,         R_V850_TDA_6_8_OFFSET         },
 578   { BFD_RELOC_V850_TDA_7_8_OFFSET,         R_V850_TDA_7_8_OFFSET         },
 579   { BFD_RELOC_V850_TDA_7_7_OFFSET,         R_V850_TDA_7_7_OFFSET         },
 580   { BFD_RELOC_V850_TDA_16_16_OFFSET,       R_V850_TDA_16_16_OFFSET       },
 581   { BFD_RELOC_V850_TDA_4_5_OFFSET,         R_V850_TDA_4_5_OFFSET         },
 582   { BFD_RELOC_V850_TDA_4_4_OFFSET,         R_V850_TDA_4_4_OFFSET         },
 583   { BFD_RELOC_V850_LO16_SPLIT_OFFSET,      R_V850_LO16_SPLIT_OFFSET      },
 584   { BFD_RELOC_V850_SDA_16_16_SPLIT_OFFSET, R_V850_SDA_16_16_SPLIT_OFFSET },
 585   { BFD_RELOC_V850_ZDA_16_16_SPLIT_OFFSET, R_V850_ZDA_16_16_SPLIT_OFFSET },
 586   { BFD_RELOC_V850_CALLT_6_7_OFFSET,       R_V850_CALLT_6_7_OFFSET       },
 587   { BFD_RELOC_V850_CALLT_16_16_OFFSET,     R_V850_CALLT_16_16_OFFSET     },
 588   { BFD_RELOC_VTABLE_INHERIT,              R_V850_GNU_VTINHERIT          },
 589   { BFD_RELOC_VTABLE_ENTRY,                R_V850_GNU_VTENTRY            },
 590   { BFD_RELOC_V850_LONGCALL,               R_V850_LONGCALL               },
 591   { BFD_RELOC_V850_LONGJUMP,               R_V850_LONGJUMP               },
 592   { BFD_RELOC_V850_ALIGN,                  R_V850_ALIGN                  },
 593
 594 };
 595 \f
 596 /* Map a bfd relocation into the appropriate howto structure.  */
 597
 598 static reloc_howto_type *
 599 v850_elf_reloc_type_lookup (abfd, code)
 600      bfd *abfd ATTRIBUTE_UNUSED;
 601      bfd_reloc_code_real_type code;
 602 {
 603   unsigned int i;
 604
 605   for (i = ARRAY_SIZE (v850_elf_reloc_map); i --;)
 606     if (v850_elf_reloc_map[i].bfd_reloc_val == code)
 607       {
 608         unsigned int elf_reloc_val = v850_elf_reloc_map[i].elf_reloc_val;
 609
 610         BFD_ASSERT (v850_elf_howto_table[elf_reloc_val].type == elf_reloc_val);
 611
 612         return v850_elf_howto_table + elf_reloc_val;
 613       }
 614
 615   return NULL;
 616 }
 617 \f
 618 /* Set the howto pointer for an V850 ELF reloc.  */
 619
 620 static void
 621 v850_elf_info_to_howto_rel (abfd, cache_ptr, dst)
 622      bfd *abfd ATTRIBUTE_UNUSED;
 623      arelent *cache_ptr;
 624      Elf_Internal_Rela *dst;
 625 {
 626   unsigned int r_type;
 627
 628   r_type = ELF32_R_TYPE (dst->r_info);
 629   BFD_ASSERT (r_type < (unsigned int) R_V850_max);
 630   cache_ptr->howto = &v850_elf_howto_table[r_type];
 631 }
 632
 633 /* Set the howto pointer for a V850 ELF reloc (type RELA).  */
 634 static void
 635 v850_elf_info_to_howto_rela (abfd, cache_ptr, dst)
 636      bfd *abfd ATTRIBUTE_UNUSED;
 637      arelent * cache_ptr;
 638      Elf_Internal_Rela *dst;
 639 {
 640   unsigned int r_type;
 641
 642   r_type = ELF32_R_TYPE (dst->r_info);
 643   BFD_ASSERT (r_type < (unsigned int) R_V850_max);
 644   cache_ptr->howto = &v850_elf_howto_table[r_type];
 645 }
 646 \f
 647 /* Look through the relocs for a section during the first phase, and
 648    allocate space in the global offset table or procedure linkage
 649    table.  */
 650
 651 static bfd_boolean
 652 v850_elf_check_relocs (abfd, info, sec, relocs)
 653      bfd *abfd;
 654      struct bfd_link_info *info;
 655      asection *sec;
 656      const Elf_Internal_Rela *relocs;
 657 {
 658   bfd_boolean ret = TRUE;
 659   bfd *dynobj;
 660   Elf_Internal_Shdr *symtab_hdr;
 661   struct elf_link_hash_entry **sym_hashes;
 662   const Elf_Internal_Rela *rel;
 663   const Elf_Internal_Rela *rel_end;
 664   asection *sreloc;
 665   enum v850_reloc_type r_type;
 666   int other = 0;
 667   const char *common = (const char *)0;
 668
 669   if (info->relocatable)
 670     return TRUE;
 671
 672 #ifdef DEBUG
 673   _bfd_error_handler ("v850_elf_check_relocs called for section %A in %B",
 674                       sec, abfd);
 675 #endif
 676
 677   dynobj = elf_hash_table (info)->dynobj;
 678   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
 679   sym_hashes = elf_sym_hashes (abfd);
 680   sreloc = NULL;
 681
 682   rel_end = relocs + sec->reloc_count;
 683   for (rel = relocs; rel < rel_end; rel++)
 684     {
 685       unsigned long r_symndx;
 686       struct elf_link_hash_entry *h;
 687
 688       r_symndx = ELF32_R_SYM (rel->r_info);
 689       if (r_symndx < symtab_hdr->sh_info)
 690         h = NULL;
 691       else
 692         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
 693
 694       r_type = (enum v850_reloc_type) ELF32_R_TYPE (rel->r_info);
 695       switch (r_type)
 696         {
 697         default:
 698         case R_V850_NONE:
 699         case R_V850_9_PCREL:
 700         case R_V850_22_PCREL:
 701         case R_V850_HI16_S:
 702         case R_V850_HI16:
 703         case R_V850_LO16:
 704         case R_V850_LO16_SPLIT_OFFSET:
 705         case R_V850_ABS32:
 706         case R_V850_REL32:
 707         case R_V850_16:
 708         case R_V850_8:
 709         case R_V850_CALLT_6_7_OFFSET:
 710         case R_V850_CALLT_16_16_OFFSET:
 711           break;
 712
 713         /* This relocation describes the C++ object vtable hierarchy.
 714            Reconstruct it for later use during GC.  */
 715         case R_V850_GNU_VTINHERIT:
 716           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
 717             return FALSE;
 718           break;
 719
 720         /* This relocation describes which C++ vtable entries
 721            are actually used.  Record for later use during GC.  */
 722         case R_V850_GNU_VTENTRY:
 723           if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
 724             return FALSE;
 725           break;
 726
 727         case R_V850_SDA_16_16_SPLIT_OFFSET:
 728         case R_V850_SDA_16_16_OFFSET:
 729         case R_V850_SDA_15_16_OFFSET:
 730           other = V850_OTHER_SDA;
 731           common = ".scommon";
 732           goto small_data_common;
 733
 734         case R_V850_ZDA_16_16_SPLIT_OFFSET:
 735         case R_V850_ZDA_16_16_OFFSET:
 736         case R_V850_ZDA_15_16_OFFSET:
 737           other = V850_OTHER_ZDA;
 738           common = ".zcommon";
 739           goto small_data_common;
 740
 741         case R_V850_TDA_4_5_OFFSET:
 742         case R_V850_TDA_4_4_OFFSET:
 743         case R_V850_TDA_6_8_OFFSET:
 744         case R_V850_TDA_7_8_OFFSET:
 745         case R_V850_TDA_7_7_OFFSET:
 746         case R_V850_TDA_16_16_OFFSET:
 747           other = V850_OTHER_TDA;
 748           common = ".tcommon";
 749           /* fall through */
 750
 751 #define V850_OTHER_MASK (V850_OTHER_TDA | V850_OTHER_SDA | V850_OTHER_ZDA)
 752
 753         small_data_common:
 754           if (h)
 755             {
 756               /* Flag which type of relocation was used.  */
 757               h->other |= other;
 758               if ((h->other & V850_OTHER_MASK) != (other & V850_OTHER_MASK)
 759                   && (h->other & V850_OTHER_ERROR) == 0)
 760                 {
 761                   const char * msg;
 762                   static char  buff[200]; /* XXX */
 763
 764                   switch (h->other & V850_OTHER_MASK)
 765                     {
 766                     default:
 767                       msg = _("Variable `%s' cannot occupy in multiple small data regions");
 768                       break;
 769                     case V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA:
 770                       msg = _("Variable `%s' can only be in one of the small, zero, and tiny data regions");
 771                       break;
 772                     case V850_OTHER_SDA | V850_OTHER_ZDA:
 773                       msg = _("Variable `%s' cannot be in both small and zero data regions simultaneously");
 774                       break;
 775                     case V850_OTHER_SDA | V850_OTHER_TDA:
 776                       msg = _("Variable `%s' cannot be in both small and tiny data regions simultaneously");
 777                       break;
 778                     case V850_OTHER_ZDA | V850_OTHER_TDA:
 779                       msg = _("Variable `%s' cannot be in both zero and tiny data regions simultaneously");
 780                       break;
 781                     }
 782
 783                   sprintf (buff, msg, h->root.root.string);
 784                   info->callbacks->warning (info, buff, h->root.root.string,
 785                                             abfd, h->root.u.def.section,
 786                                             (bfd_vma) 0);
 787
 788                   bfd_set_error (bfd_error_bad_value);
 789                   h->other |= V850_OTHER_ERROR;
 790                   ret = FALSE;
 791                 }
 792             }
 793
 794           if (h && h->root.type == bfd_link_hash_common
 795               && h->root.u.c.p
 796               && !strcmp (bfd_get_section_name (abfd, h->root.u.c.p->section), "COMMON"))
 797             {
 798               asection * section;
 799
 800               section = h->root.u.c.p->section = bfd_make_section_old_way (abfd, common);
 801               section->flags |= SEC_IS_COMMON;
 802             }
 803
 804 #ifdef DEBUG
 805           fprintf (stderr, "v850_elf_check_relocs, found %s relocation for %s%s\n",
 806                    v850_elf_howto_table[ (int)r_type ].name,
 807                    (h && h->root.root.string) ? h->root.root.string : "<unknown>",
 808                    (h->root.type == bfd_link_hash_common) ? ", symbol is common" : "");
 809 #endif
 810           break;
 811         }
 812     }
 813
 814   return ret;
 815 }
 816
 817 /* In the old version, when an entry was checked out from the table,
 818    it was deleted.  This produced an error if the entry was needed
 819    more than once, as the second attempted retry failed.
 820
 821    In the current version, the entry is not deleted, instead we set
 822    the field 'found' to TRUE.  If a second lookup matches the same
 823    entry, then we know that the hi16s reloc has already been updated
 824    and does not need to be updated a second time.
 825
 826    TODO - TOFIX: If it is possible that we need to restore 2 different
 827    addresses from the same table entry, where the first generates an
 828    overflow, whilst the second do not, then this code will fail.  */
 829
 830 typedef struct hi16s_location
 831 {
 832   bfd_vma addend;
 833   bfd_byte *address;
 834   unsigned long counter;
 835   bfd_boolean found;
 836   struct hi16s_location *next;
 837 }
 838 hi16s_location;
 839
 840 static hi16s_location *previous_hi16s;
 841 static hi16s_location *free_hi16s;
 842 static unsigned long hi16s_counter;
 843
 844 static void
 845 remember_hi16s_reloc (abfd, addend, address)
 846      bfd *abfd;
 847      bfd_vma addend;
 848      bfd_byte *address;
 849 {
 850   hi16s_location * entry = NULL;
 851   bfd_size_type amt = sizeof (* free_hi16s);
 852
 853   /* Find a free structure.  */
 854   if (free_hi16s == NULL)
 855     free_hi16s = (hi16s_location *) bfd_zalloc (abfd, amt);
 856
 857   entry      = free_hi16s;
 858   free_hi16s = free_hi16s->next;
 859
 860   entry->addend  = addend;
 861   entry->address = address;
 862   entry->counter = hi16s_counter ++;
 863   entry->found   = FALSE;
 864   entry->next    = previous_hi16s;
 865   previous_hi16s = entry;
 866
 867   /* Cope with wrap around of our counter.  */
 868   if (hi16s_counter == 0)
 869     {
 870       /* XXX - Assume that all counter entries differ only in their low 16 bits.  */
 871       for (entry = previous_hi16s; entry != NULL; entry = entry->next)
 872         entry->counter &= 0xffff;
 873
 874       hi16s_counter = 0x10000;
 875     }
 876
 877   return;
 878 }
 879
 880 static bfd_byte *
 881 find_remembered_hi16s_reloc (addend, already_found)
 882      bfd_vma addend;
 883      bfd_boolean *already_found;
 884 {
 885   hi16s_location *match = NULL;
 886   hi16s_location *entry;
 887   hi16s_location *previous = NULL;
 888   hi16s_location *prev;
 889   bfd_byte *addr;
 890
 891   /* Search the table.  Record the most recent entry that matches.  */
 892   for (entry = previous_hi16s; entry; entry = entry->next)
 893     {
 894       if (entry->addend == addend
 895           && (match == NULL || match->counter < entry->counter))
 896         {
 897           previous = prev;
 898           match    = entry;
 899         }
 900
 901       prev = entry;
 902     }
 903
 904   if (match == NULL)
 905     return NULL;
 906
 907   /* Extract the address.  */
 908   addr = match->address;
 909
 910   /* Remember if this entry has already been used before.  */
 911   if (already_found)
 912     * already_found = match->found;
 913
 914   /* Note that this entry has now been used.  */
 915   match->found = TRUE;
 916
 917   return addr;
 918 }
 919
 920 /* Calculate the final operand value for a R_V850_LO16 or
 921    R_V850_LO16_SPLIT_OFFSET.  *INSN is the current operand value and
 922    ADDEND is the sum of the relocation symbol and offset.  Store the
 923    operand value in *INSN and return true on success.
 924
 925    The assembler has already done some of this: If the value stored in
 926    the instruction has its 15th bit set, (counting from zero) then the
 927    assembler will have added 1 to the value stored in the associated
 928    HI16S reloc.  So for example, these relocations:
 929
 930        movhi hi( fred ), r0, r1
 931        movea lo( fred ), r1, r1
 932
 933    will store 0 in the value fields for the MOVHI and MOVEA instructions
 934    and addend will be the address of fred, but for these instructions:
 935
 936        movhi hi( fred + 0x123456), r0, r1
 937        movea lo( fred + 0x123456), r1, r1
 938
 939    the value stored in the MOVHI instruction will be 0x12 and the value
 940    stored in the MOVEA instruction will be 0x3456.  If however the
 941    instructions were:
 942
 943        movhi hi( fred + 0x10ffff), r0, r1
 944        movea lo( fred + 0x10ffff), r1, r1
 945
 946    then the value stored in the MOVHI instruction would be 0x11 (not
 947    0x10) and the value stored in the MOVEA instruction would be 0xffff.
 948    Thus (assuming for the moment that the addend is 0), at run time the
 949    MOVHI instruction loads 0x110000 into r1, then the MOVEA instruction
 950    adds 0xffffffff (sign extension!) producing 0x10ffff.  Similarly if
 951    the instructions were:
 952
 953        movhi hi( fred - 1), r0, r1
 954        movea lo( fred - 1), r1, r1
 955
 956    then 0 is stored in the MOVHI instruction and -1 is stored in the
 957    MOVEA instruction.
 958
 959    Overflow can occur if the addition of the value stored in the
 960    instruction plus the addend sets the 15th bit when before it was clear.
 961    This is because the 15th bit will be sign extended into the high part,
 962    thus reducing its value by one, but since the 15th bit was originally
 963    clear, the assembler will not have added 1 to the previous HI16S reloc
 964    to compensate for this effect.  For example:
 965
 966       movhi hi( fred + 0x123456), r0, r1
 967       movea lo( fred + 0x123456), r1, r1
 968
 969    The value stored in HI16S reloc is 0x12, the value stored in the LO16
 970    reloc is 0x3456.  If we assume that the address of fred is 0x00007000
 971    then the relocations become:
 972
 973      HI16S: 0x0012 + (0x00007000 >> 16)    = 0x12
 974      LO16:  0x3456 + (0x00007000 & 0xffff) = 0xa456
 975
 976    but when the instructions are executed, the MOVEA instruction's value
 977    is signed extended, so the sum becomes:
 978
 979         0x00120000
 980       + 0xffffa456
 981       ------------
 982         0x0011a456    but 'fred + 0x123456' = 0x0012a456
 983
 984    Note that if the 15th bit was set in the value stored in the LO16
 985    reloc, then we do not have to do anything:
 986
 987       movhi hi( fred + 0x10ffff), r0, r1
 988       movea lo( fred + 0x10ffff), r1, r1
 989
 990       HI16S:  0x0011 + (0x00007000 >> 16)    = 0x11
 991       LO16:   0xffff + (0x00007000 & 0xffff) = 0x6fff
 992
 993         0x00110000
 994       + 0x00006fff
 995       ------------
 996         0x00116fff  = fred + 0x10ffff = 0x7000 + 0x10ffff
 997
 998    Overflow can also occur if the computation carries into the 16th bit
 999    and it also results in the 15th bit having the same value as the 15th
1000    bit of the original value.   What happens is that the HI16S reloc
1001    will have already examined the 15th bit of the original value and
1002    added 1 to the high part if the bit is set.  This compensates for the
1003    sign extension of 15th bit of the result of the computation.  But now
1004    there is a carry into the 16th bit, and this has not been allowed for.
1005
1006    So, for example if fred is at address 0xf000:
1007
1008      movhi hi( fred + 0xffff), r0, r1    [bit 15 of the offset is set]
1009      movea lo( fred + 0xffff), r1, r1
1010
1011      HI16S: 0x0001 + (0x0000f000 >> 16)    = 0x0001
1012      LO16:  0xffff + (0x0000f000 & 0xffff) = 0xefff   (carry into bit 16 is lost)
1013
1014        0x00010000
1015      + 0xffffefff
1016      ------------
1017        0x0000efff   but 'fred + 0xffff' = 0x0001efff
1018
1019    Similarly, if the 15th bit remains clear, but overflow occurs into
1020    the 16th bit then (assuming the address of fred is 0xf000):
1021
1022      movhi hi( fred + 0x7000), r0, r1    [bit 15 of the offset is clear]
1023      movea lo( fred + 0x7000), r1, r1
1024
1025      HI16S: 0x0000 + (0x0000f000 >> 16)    = 0x0000
1026      LO16:  0x7000 + (0x0000f000 & 0xffff) = 0x6fff  (carry into bit 16 is lost)
1027
1028        0x00000000
1029      + 0x00006fff
1030      ------------
1031        0x00006fff   but 'fred + 0x7000' = 0x00016fff
1032
1033    Note - there is no need to change anything if a carry occurs, and the
1034    15th bit changes its value from being set to being clear, as the HI16S
1035    reloc will have already added in 1 to the high part for us:
1036
1037      movhi hi( fred + 0xffff), r0, r1     [bit 15 of the offset is set]
1038      movea lo( fred + 0xffff), r1, r1
1039
1040      HI16S: 0x0001 + (0x00007000 >> 16)
1041      LO16:  0xffff + (0x00007000 & 0xffff) = 0x6fff  (carry into bit 16 is lost)
1042
1043        0x00010000
1044      + 0x00006fff   (bit 15 not set, so the top half is zero)
1045      ------------
1046        0x00016fff   which is right (assuming that fred is at 0x7000)
1047
1048    but if the 15th bit goes from being clear to being set, then we must
1049    once again handle overflow:
1050
1051      movhi hi( fred + 0x7000), r0, r1     [bit 15 of the offset is clear]
1052      movea lo( fred + 0x7000), r1, r1
1053
1054      HI16S: 0x0000 + (0x0000ffff >> 16)
1055      LO16:  0x7000 + (0x0000ffff & 0xffff) = 0x6fff  (carry into bit 16)
1056
1057        0x00000000
1058      + 0x00006fff   (bit 15 not set, so the top half is zero)
1059      ------------
1060        0x00006fff   which is wrong (assuming that fred is at 0xffff).  */
1061
1062 static bfd_boolean
1063 v850_elf_perform_lo16_relocation (bfd *abfd, unsigned long *insn,
1064                                   unsigned long addend)
1065 {
1066 #define BIT15_SET(x) ((x) & 0x8000)
1067 #define OVERFLOWS(a,i) ((((a) & 0xffff) + (i)) > 0xffff)
1068   if ((BIT15_SET (*insn + addend) && ! BIT15_SET (addend))
1069       || (OVERFLOWS (addend, *insn)
1070           && ((! BIT15_SET (*insn)) || (BIT15_SET (addend)))))
1071     {
1072       bfd_boolean already_updated;
1073       bfd_byte *hi16s_address = find_remembered_hi16s_reloc
1074         (addend, & already_updated);
1075
1076       /* Amend the matching HI16_S relocation.  */
1077       if (hi16s_address != NULL)
1078         {
1079           if (! already_updated)
1080             {
1081               unsigned long hi_insn = bfd_get_16 (abfd, hi16s_address);
1082               hi_insn += 1;
1083               bfd_put_16 (abfd, hi_insn, hi16s_address);
1084             }
1085         }
1086       else
1087         {
1088           fprintf (stderr, _("FAILED to find previous HI16 reloc\n"));
1089           return FALSE;
1090         }
1091     }
1092 #undef OVERFLOWS
1093 #undef BIT15_SET
1094
1095   /* Do not complain if value has top bit set, as this has been
1096      anticipated.  */
1097   *insn = (*insn + addend) & 0xffff;
1098   return TRUE;
1099 }
1100
1101 /* FIXME:  The code here probably ought to be removed and the code in reloc.c
1102    allowed to do its stuff instead.  At least for most of the relocs, anyway.  */
1103
1104 static bfd_reloc_status_type
1105 v850_elf_perform_relocation (abfd, r_type, addend, address)
1106      bfd *abfd;
1107      unsigned int r_type;
1108      bfd_vma addend;
1109      bfd_byte *address;
1110 {
1111   unsigned long insn;
1112   unsigned long result;
1113   bfd_signed_vma saddend = (bfd_signed_vma) addend;
1114
1115   switch (r_type)
1116     {
1117     default:
1118       /* fprintf (stderr, "reloc type %d not SUPPORTED\n", r_type ); */
1119       return bfd_reloc_notsupported;
1120
1121     case R_V850_REL32:
1122     case R_V850_ABS32:
1123       bfd_put_32 (abfd, addend, address);
1124       return bfd_reloc_ok;
1125
1126     case R_V850_22_PCREL:
1127       if (saddend > 0x1fffff || saddend < -0x200000)
1128         return bfd_reloc_overflow;
1129
1130       if ((addend % 2) != 0)
1131         return bfd_reloc_dangerous;
1132
1133       insn  = bfd_get_32 (abfd, address);
1134       insn &= ~0xfffe003f;
1135       insn |= (((addend & 0xfffe) << 16) | ((addend & 0x3f0000) >> 16));
1136       bfd_put_32 (abfd, (bfd_vma) insn, address);
1137       return bfd_reloc_ok;
1138
1139     case R_V850_9_PCREL:
1140       if (saddend > 0xff || saddend < -0x100)
1141         return bfd_reloc_overflow;
1142
1143       if ((addend % 2) != 0)
1144         return bfd_reloc_dangerous;
1145
1146       insn  = bfd_get_16 (abfd, address);
1147       insn &= ~ 0xf870;
1148       insn |= ((addend & 0x1f0) << 7) | ((addend & 0x0e) << 3);
1149       break;
1150
1151     case R_V850_HI16:
1152       addend += (bfd_get_16 (abfd, address) << 16);
1153       addend = (addend >> 16);
1154       insn = addend;
1155       break;
1156
1157     case R_V850_HI16_S:
1158       /* Remember where this relocation took place.  */
1159       remember_hi16s_reloc (abfd, addend, address);
1160
1161       addend += (bfd_get_16 (abfd, address) << 16);
1162       addend = (addend >> 16) + ((addend & 0x8000) != 0);
1163
1164       /* This relocation cannot overflow.  */
1165       if (addend > 0x7fff)
1166         addend = 0;
1167
1168       insn = addend;
1169       break;
1170
1171     case R_V850_LO16:
1172       insn = bfd_get_16 (abfd, address);
1173       if (! v850_elf_perform_lo16_relocation (abfd, &insn, addend))
1174         return bfd_reloc_overflow;
1175       break;
1176
1177     case R_V850_8:
1178       addend += (char) bfd_get_8 (abfd, address);
1179
1180       saddend = (bfd_signed_vma) addend;
1181
1182       if (saddend > 0x7f || saddend < -0x80)
1183         return bfd_reloc_overflow;
1184
1185       bfd_put_8 (abfd, addend, address);
1186       return bfd_reloc_ok;
1187
1188     case R_V850_CALLT_16_16_OFFSET:
1189       addend += bfd_get_16 (abfd, address);
1190
1191       saddend = (bfd_signed_vma) addend;
1192
1193       if (saddend > 0xffff || saddend < 0)
1194         return bfd_reloc_overflow;
1195
1196       insn = addend;
1197       break;
1198
1199     case R_V850_16:
1200
1201       /* drop through */
1202     case R_V850_SDA_16_16_OFFSET:
1203     case R_V850_ZDA_16_16_OFFSET:
1204     case R_V850_TDA_16_16_OFFSET:
1205       addend += bfd_get_16 (abfd, address);
1206
1207       saddend = (bfd_signed_vma) addend;
1208
1209       if (saddend > 0x7fff || saddend < -0x8000)
1210         return bfd_reloc_overflow;
1211
1212       insn = addend;
1213       break;
1214
1215     case R_V850_SDA_15_16_OFFSET:
1216     case R_V850_ZDA_15_16_OFFSET:
1217       insn = bfd_get_16 (abfd, address);
1218       addend += (insn & 0xfffe);
1219
1220       saddend = (bfd_signed_vma) addend;
1221
1222       if (saddend > 0x7ffe || saddend < -0x8000)
1223         return bfd_reloc_overflow;
1224
1225       if (addend & 1)
1226         return bfd_reloc_dangerous;
1227
1228       insn = (addend &~ (bfd_vma) 1) | (insn & 1);
1229       break;
1230
1231     case R_V850_TDA_6_8_OFFSET:
1232       insn = bfd_get_16 (abfd, address);
1233       addend += ((insn & 0x7e) << 1);
1234
1235       saddend = (bfd_signed_vma) addend;
1236
1237       if (saddend > 0xfc || saddend < 0)
1238         return bfd_reloc_overflow;
1239
1240       if (addend & 3)
1241         return bfd_reloc_dangerous;
1242
1243       insn &= 0xff81;
1244       insn |= (addend >> 1);
1245       break;
1246
1247     case R_V850_TDA_7_8_OFFSET:
1248       insn = bfd_get_16 (abfd, address);
1249       addend += ((insn & 0x7f) << 1);
1250
1251       saddend = (bfd_signed_vma) addend;
1252
1253       if (saddend > 0xfe || saddend < 0)
1254         return bfd_reloc_overflow;
1255
1256       if (addend & 1)
1257         return bfd_reloc_dangerous;
1258
1259       insn &= 0xff80;
1260       insn |= (addend >> 1);
1261       break;
1262
1263     case R_V850_TDA_7_7_OFFSET:
1264       insn = bfd_get_16 (abfd, address);
1265       addend += insn & 0x7f;
1266
1267       saddend = (bfd_signed_vma) addend;
1268
1269       if (saddend > 0x7f || saddend < 0)
1270         return bfd_reloc_overflow;
1271
1272       insn &= 0xff80;
1273       insn |= addend;
1274       break;
1275
1276     case R_V850_TDA_4_5_OFFSET:
1277       insn = bfd_get_16 (abfd, address);
1278       addend += ((insn & 0xf) << 1);
1279
1280       saddend = (bfd_signed_vma) addend;
1281
1282       if (saddend > 0x1e || saddend < 0)
1283         return bfd_reloc_overflow;
1284
1285       if (addend & 1)
1286         return bfd_reloc_dangerous;
1287
1288       insn &= 0xfff0;
1289       insn |= (addend >> 1);
1290       break;
1291
1292     case R_V850_TDA_4_4_OFFSET:
1293       insn = bfd_get_16 (abfd, address);
1294       addend += insn & 0xf;
1295
1296       saddend = (bfd_signed_vma) addend;
1297
1298       if (saddend > 0xf || saddend < 0)
1299         return bfd_reloc_overflow;
1300
1301       insn &= 0xfff0;
1302       insn |= addend;
1303       break;
1304
1305     case R_V850_LO16_SPLIT_OFFSET:
1306       insn = bfd_get_32 (abfd, address);
1307       result = ((insn & 0xfffe0000) >> 16) | ((insn & 0x20) >> 5);
1308       if (! v850_elf_perform_lo16_relocation (abfd, &result, addend))
1309         return bfd_reloc_overflow;
1310       insn = (((result << 16) & 0xfffe0000)
1311               | ((result << 5) & 0x20)
1312               | (insn & ~0xfffe0020));
1313       bfd_put_32 (abfd, insn, address);
1314       return bfd_reloc_ok;
1315
1316     case R_V850_ZDA_16_16_SPLIT_OFFSET:
1317     case R_V850_SDA_16_16_SPLIT_OFFSET:
1318       insn = bfd_get_32 (abfd, address);
1319       addend += ((insn & 0xfffe0000) >> 16) + ((insn & 0x20) >> 5);
1320
1321       saddend = (bfd_signed_vma) addend;
1322
1323       if (saddend > 0x7fff || saddend < -0x8000)
1324         return bfd_reloc_overflow;
1325
1326       insn &= 0x0001ffdf;
1327       insn |= (addend & 1) << 5;
1328       insn |= (addend &~ (bfd_vma) 1) << 16;
1329
1330       bfd_put_32 (abfd, (bfd_vma) insn, address);
1331       return bfd_reloc_ok;
1332
1333     case R_V850_CALLT_6_7_OFFSET:
1334       insn = bfd_get_16 (abfd, address);
1335       addend += ((insn & 0x3f) << 1);
1336
1337       saddend = (bfd_signed_vma) addend;
1338
1339       if (saddend > 0x7e || saddend < 0)
1340         return bfd_reloc_overflow;
1341
1342       if (addend & 1)
1343         return bfd_reloc_dangerous;
1344
1345       insn &= 0xff80;
1346       insn |= (addend >> 1);
1347       break;
1348
1349     case R_V850_GNU_VTINHERIT:
1350     case R_V850_GNU_VTENTRY:
1351       return bfd_reloc_ok;
1352
1353     }
1354
1355   bfd_put_16 (abfd, (bfd_vma) insn, address);
1356   return bfd_reloc_ok;
1357 }
1358 \f
1359 /* Insert the addend into the instruction.  */
1360
1361 static bfd_reloc_status_type
1362 v850_elf_reloc (abfd, reloc, symbol, data, isection, obfd, err)
1363      bfd *abfd ATTRIBUTE_UNUSED;
1364      arelent *reloc;
1365      asymbol *symbol;
1366      PTR data ATTRIBUTE_UNUSED;
1367      asection *isection;
1368      bfd *obfd;
1369      char **err ATTRIBUTE_UNUSED;
1370 {
1371   long relocation;
1372
1373   /* If there is an output BFD,
1374      and the symbol is not a section name (which is only defined at final link time),
1375      and either we are not putting the addend into the instruction
1376       or the addend is zero, so there is nothing to add into the instruction
1377      then just fixup the address and return.  */
1378   if (obfd != (bfd *) NULL
1379       && (symbol->flags & BSF_SECTION_SYM) == 0
1380       && (! reloc->howto->partial_inplace
1381           || reloc->addend == 0))
1382     {
1383       reloc->address += isection->output_offset;
1384       return bfd_reloc_ok;
1385     }
1386
1387   /* Catch relocs involving undefined symbols.  */
1388   if (bfd_is_und_section (symbol->section)
1389       && (symbol->flags & BSF_WEAK) == 0
1390       && obfd == NULL)
1391     return bfd_reloc_undefined;
1392
1393   /* We handle final linking of some relocs ourselves.  */
1394
1395   /* Is the address of the relocation really within the section?  */
1396   if (reloc->address > bfd_get_section_limit (abfd, isection))
1397     return bfd_reloc_outofrange;
1398
1399   /* Work out which section the relocation is targeted at and the
1400      initial relocation command value.  */
1401
1402   if (reloc->howto->pc_relative)
1403     return bfd_reloc_ok;
1404
1405   /* Get symbol value.  (Common symbols are special.)  */
1406   if (bfd_is_com_section (symbol->section))
1407     relocation = 0;
1408   else
1409     relocation = symbol->value;
1410
1411   /* Convert input-section-relative symbol value to absolute + addend.  */
1412   relocation += symbol->section->output_section->vma;
1413   relocation += symbol->section->output_offset;
1414   relocation += reloc->addend;
1415
1416   reloc->addend = relocation;
1417   return bfd_reloc_ok;
1418 }
1419
1420 /* This function is used for relocs which are only used
1421    for relaxing, which the linker should otherwise ignore.  */
1422
1423 static bfd_reloc_status_type
1424 v850_elf_ignore_reloc (abfd, reloc_entry, symbol, data, input_section,
1425                        output_bfd, error_message)
1426      bfd *abfd ATTRIBUTE_UNUSED;
1427      arelent *reloc_entry;
1428      asymbol *symbol ATTRIBUTE_UNUSED;
1429      PTR data ATTRIBUTE_UNUSED;
1430      asection *input_section;
1431      bfd *output_bfd;
1432      char **error_message ATTRIBUTE_UNUSED;
1433 {
1434   if (output_bfd != NULL)
1435     reloc_entry->address += input_section->output_offset;
1436
1437   return bfd_reloc_ok;
1438 }
1439 \f
1440 static bfd_boolean
1441 v850_elf_is_local_label_name (abfd, name)
1442      bfd *abfd ATTRIBUTE_UNUSED;
1443      const char *name;
1444 {
1445   return (   (name[0] == '.' && (name[1] == 'L' || name[1] == '.'))
1446           || (name[0] == '_' &&  name[1] == '.' && name[2] == 'L' && name[3] == '_'));
1447 }
1448 \f
1449 /* We overload some of the bfd_reloc error codes for own purposes.  */
1450 #define bfd_reloc_gp_not_found          bfd_reloc_other
1451 #define bfd_reloc_ep_not_found          bfd_reloc_continue
1452 #define bfd_reloc_ctbp_not_found        (bfd_reloc_dangerous + 1)
1453
1454 /* Perform a relocation as part of a final link.  */
1455
1456 static bfd_reloc_status_type
1457 v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
1458                               input_section, contents, offset, value,
1459                               addend, info, sym_sec, is_local)
1460      reloc_howto_type *howto;
1461      bfd *input_bfd;
1462      bfd *output_bfd ATTRIBUTE_UNUSED;
1463      asection *input_section;
1464      bfd_byte *contents;
1465      bfd_vma offset;
1466      bfd_vma value;
1467      bfd_vma addend;
1468      struct bfd_link_info *info;
1469      asection *sym_sec;
1470      int is_local ATTRIBUTE_UNUSED;
1471 {
1472   unsigned int r_type = howto->type;
1473   bfd_byte *hit_data = contents + offset;
1474
1475   /* Adjust the value according to the relocation.  */
1476   switch (r_type)
1477     {
1478     case R_V850_9_PCREL:
1479       value -= (input_section->output_section->vma
1480                 + input_section->output_offset);
1481       value -= offset;
1482       break;
1483
1484     case R_V850_22_PCREL:
1485       value -= (input_section->output_section->vma
1486                 + input_section->output_offset
1487                 + offset);
1488
1489       /* If the sign extension will corrupt the value then we have overflowed.  */
1490       if (((value & 0xff000000) != 0x0) && ((value & 0xff000000) != 0xff000000))
1491         return bfd_reloc_overflow;
1492
1493       /* Only the bottom 24 bits of the PC are valid */
1494       value = SEXT24 (value);
1495       break;
1496
1497     case R_V850_REL32:
1498       value -= (input_section->output_section->vma
1499                 + input_section->output_offset
1500                 + offset);
1501       break;
1502
1503     case R_V850_HI16_S:
1504     case R_V850_HI16:
1505     case R_V850_LO16:
1506     case R_V850_LO16_SPLIT_OFFSET:
1507     case R_V850_16:
1508     case R_V850_ABS32:
1509     case R_V850_8:
1510       break;
1511
1512     case R_V850_ZDA_15_16_OFFSET:
1513     case R_V850_ZDA_16_16_OFFSET:
1514     case R_V850_ZDA_16_16_SPLIT_OFFSET:
1515       if (sym_sec == NULL)
1516         return bfd_reloc_undefined;
1517
1518       value -= sym_sec->output_section->vma;
1519       break;
1520
1521     case R_V850_SDA_15_16_OFFSET:
1522     case R_V850_SDA_16_16_OFFSET:
1523     case R_V850_SDA_16_16_SPLIT_OFFSET:
1524       {
1525         unsigned long                gp;
1526         struct bfd_link_hash_entry * h;
1527
1528         if (sym_sec == NULL)
1529           return bfd_reloc_undefined;
1530
1531         /* Get the value of __gp.  */
1532         h = bfd_link_hash_lookup (info->hash, "__gp", FALSE, FALSE, TRUE);
1533         if (h == (struct bfd_link_hash_entry *) NULL
1534             || h->type != bfd_link_hash_defined)
1535           return bfd_reloc_gp_not_found;
1536
1537         gp = (h->u.def.value
1538               + h->u.def.section->output_section->vma
1539               + h->u.def.section->output_offset);
1540
1541         value -= sym_sec->output_section->vma;
1542         value -= (gp - sym_sec->output_section->vma);
1543       }
1544     break;
1545
1546     case R_V850_TDA_4_4_OFFSET:
1547     case R_V850_TDA_4_5_OFFSET:
1548     case R_V850_TDA_16_16_OFFSET:
1549     case R_V850_TDA_7_7_OFFSET:
1550     case R_V850_TDA_7_8_OFFSET:
1551     case R_V850_TDA_6_8_OFFSET:
1552       {
1553         unsigned long                ep;
1554         struct bfd_link_hash_entry * h;
1555
1556         /* Get the value of __ep.  */
1557         h = bfd_link_hash_lookup (info->hash, "__ep", FALSE, FALSE, TRUE);
1558         if (h == (struct bfd_link_hash_entry *) NULL
1559             || h->type != bfd_link_hash_defined)
1560           return bfd_reloc_ep_not_found;
1561
1562         ep = (h->u.def.value
1563               + h->u.def.section->output_section->vma
1564               + h->u.def.section->output_offset);
1565
1566         value -= ep;
1567       }
1568     break;
1569
1570     case R_V850_CALLT_6_7_OFFSET:
1571       {
1572         unsigned long                ctbp;
1573         struct bfd_link_hash_entry * h;
1574
1575         /* Get the value of __ctbp.  */
1576         h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
1577         if (h == (struct bfd_link_hash_entry *) NULL
1578             || h->type != bfd_link_hash_defined)
1579           return bfd_reloc_ctbp_not_found;
1580
1581         ctbp = (h->u.def.value
1582               + h->u.def.section->output_section->vma
1583               + h->u.def.section->output_offset);
1584         value -= ctbp;
1585       }
1586     break;
1587
1588     case R_V850_CALLT_16_16_OFFSET:
1589       {
1590         unsigned long                ctbp;
1591         struct bfd_link_hash_entry * h;
1592
1593         if (sym_sec == NULL)
1594           return bfd_reloc_undefined;
1595
1596         /* Get the value of __ctbp.  */
1597         h = bfd_link_hash_lookup (info->hash, "__ctbp", FALSE, FALSE, TRUE);
1598         if (h == (struct bfd_link_hash_entry *) NULL
1599             || h->type != bfd_link_hash_defined)
1600           return bfd_reloc_ctbp_not_found;
1601
1602         ctbp = (h->u.def.value
1603               + h->u.def.section->output_section->vma
1604               + h->u.def.section->output_offset);
1605
1606         value -= sym_sec->output_section->vma;
1607         value -= (ctbp - sym_sec->output_section->vma);
1608       }
1609     break;
1610
1611     case R_V850_NONE:
1612     case R_V850_GNU_VTINHERIT:
1613     case R_V850_GNU_VTENTRY:
1614     case R_V850_LONGCALL:
1615     case R_V850_LONGJUMP:
1616     case R_V850_ALIGN:
1617       return bfd_reloc_ok;
1618
1619     default:
1620       return bfd_reloc_notsupported;
1621     }
1622
1623   /* Perform the relocation.  */
1624   return v850_elf_perform_relocation (input_bfd, r_type, value + addend, hit_data);
1625 }
1626 \f
1627 /* Relocate an V850 ELF section.  */
1628
1629 static bfd_boolean
1630 v850_elf_relocate_section (output_bfd, info, input_bfd, input_section,
1631                            contents, relocs, local_syms, local_sections)
1632      bfd *output_bfd;
1633      struct bfd_link_info *info;
1634      bfd *input_bfd;
1635      asection *input_section;
1636      bfd_byte *contents;
1637      Elf_Internal_Rela *relocs;
1638      Elf_Internal_Sym *local_syms;
1639      asection **local_sections;
1640 {
1641   Elf_Internal_Shdr *symtab_hdr;
1642   struct elf_link_hash_entry **sym_hashes;
1643   Elf_Internal_Rela *rel;
1644   Elf_Internal_Rela *relend;
1645
1646   if (info->relocatable)
1647     return TRUE;
1648
1649   symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
1650   sym_hashes = elf_sym_hashes (input_bfd);
1651
1652   /* Reset the list of remembered HI16S relocs to empty.  */
1653   free_hi16s     = previous_hi16s;
1654   previous_hi16s = NULL;
1655   hi16s_counter  = 0;
1656
1657   rel    = relocs;
1658   relend = relocs + input_section->reloc_count;
1659   for (; rel < relend; rel++)
1660     {
1661       int r_type;
1662       reloc_howto_type *howto;
1663       unsigned long r_symndx;
1664       Elf_Internal_Sym *sym;
1665       asection *sec;
1666       struct elf_link_hash_entry *h;
1667       bfd_vma relocation;
1668       bfd_reloc_status_type r;
1669
1670       r_symndx = ELF32_R_SYM (rel->r_info);
1671       r_type   = ELF32_R_TYPE (rel->r_info);
1672
1673       if (r_type == R_V850_GNU_VTENTRY
1674           || r_type == R_V850_GNU_VTINHERIT)
1675         continue;
1676
1677       /* This is a final link.  */
1678       howto = v850_elf_howto_table + r_type;
1679       h = NULL;
1680       sym = NULL;
1681       sec = NULL;
1682       if (r_symndx < symtab_hdr->sh_info)
1683         {
1684           sym = local_syms + r_symndx;
1685           sec = local_sections[r_symndx];
1686           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1687         }
1688       else
1689         {
1690           bfd_boolean unresolved_reloc, warned;
1691
1692           /* Note - this check is delayed until now as it is possible and valid
1693              to have a file without any symbols but with relocs that can be
1694              processed.  */
1695           if (sym_hashes == NULL)
1696             {
1697               info->callbacks->warning
1698                 (info, "no hash table available",
1699                  NULL, input_bfd, input_section, (bfd_vma) 0);
1700
1701               return FALSE;
1702             }
1703
1704           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1705                                    r_symndx, symtab_hdr, sym_hashes,
1706                                    h, sec, relocation,
1707                                    unresolved_reloc, warned);
1708         }
1709
1710       /* FIXME: We should use the addend, but the COFF relocations don't.  */
1711       r = v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
1712                                         input_section,
1713                                         contents, rel->r_offset,
1714                                         relocation, rel->r_addend,
1715                                         info, sec, h == NULL);
1716
1717       if (r != bfd_reloc_ok)
1718         {
1719           const char * name;
1720           const char * msg = (const char *)0;
1721
1722           if (h != NULL)
1723             name = h->root.root.string;
1724           else
1725             {
1726               name = (bfd_elf_string_from_elf_section
1727                       (input_bfd, symtab_hdr->sh_link, sym->st_name));
1728               if (name == NULL || *name == '\0')
1729                 name = bfd_section_name (input_bfd, sec);
1730             }
1731
1732           switch (r)
1733             {
1734             case bfd_reloc_overflow:
1735               if (! ((*info->callbacks->reloc_overflow)
1736                      (info, (h ? &h->root : NULL), name, howto->name,
1737                       (bfd_vma) 0, input_bfd, input_section,
1738                       rel->r_offset)))
1739                 return FALSE;
1740               break;
1741
1742             case bfd_reloc_undefined:
1743               if (! ((*info->callbacks->undefined_symbol)
1744                      (info, name, input_bfd, input_section,
1745                       rel->r_offset, TRUE)))
1746                 return FALSE;
1747               break;
1748
1749             case bfd_reloc_outofrange:
1750               msg = _("internal error: out of range error");
1751               goto common_error;
1752
1753             case bfd_reloc_notsupported:
1754               msg = _("internal error: unsupported relocation error");
1755               goto common_error;
1756
1757             case bfd_reloc_dangerous:
1758               msg = _("internal error: dangerous relocation");
1759               goto common_error;
1760
1761             case bfd_reloc_gp_not_found:
1762               msg = _("could not locate special linker symbol __gp");
1763               goto common_error;
1764
1765             case bfd_reloc_ep_not_found:
1766               msg = _("could not locate special linker symbol __ep");
1767               goto common_error;
1768
1769             case bfd_reloc_ctbp_not_found:
1770               msg = _("could not locate special linker symbol __ctbp");
1771               goto common_error;
1772
1773             default:
1774               msg = _("internal error: unknown error");
1775               /* fall through */
1776
1777             common_error:
1778               if (!((*info->callbacks->warning)
1779                     (info, msg, name, input_bfd, input_section,
1780                      rel->r_offset)))
1781                 return FALSE;
1782               break;
1783             }
1784         }
1785     }
1786
1787   return TRUE;
1788 }
1789
1790 static bfd_boolean
1791 v850_elf_gc_sweep_hook (abfd, info, sec, relocs)
1792      bfd *abfd ATTRIBUTE_UNUSED;
1793      struct bfd_link_info *info ATTRIBUTE_UNUSED;
1794      asection *sec ATTRIBUTE_UNUSED;
1795      const Elf_Internal_Rela *relocs ATTRIBUTE_UNUSED;
1796 {
1797   /* No got and plt entries for v850-elf.  */
1798   return TRUE;
1799 }
1800
1801 static asection *
1802 v850_elf_gc_mark_hook (sec, info, rel, h, sym)
1803        asection *sec;
1804        struct bfd_link_info *info ATTRIBUTE_UNUSED;
1805        Elf_Internal_Rela *rel;
1806        struct elf_link_hash_entry *h;
1807        Elf_Internal_Sym *sym;
1808 {
1809   if (h != NULL)
1810     {
1811       switch (ELF32_R_TYPE (rel->r_info))
1812       {
1813       case R_V850_GNU_VTINHERIT:
1814       case R_V850_GNU_VTENTRY:
1815         break;
1816
1817       default:
1818         switch (h->root.type)
1819           {
1820           case bfd_link_hash_defined:
1821           case bfd_link_hash_defweak:
1822             return h->root.u.def.section;
1823
1824           case bfd_link_hash_common:
1825             return h->root.u.c.p->section;
1826
1827           default:
1828             break;
1829           }
1830        }
1831      }
1832    else
1833      return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
1834
1835   return NULL;
1836 }
1837
1838 /* Set the right machine number.  */
1839
1840 static bfd_boolean
1841 v850_elf_object_p (abfd)
1842      bfd *abfd;
1843 {
1844   switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
1845     {
1846     default:
1847     case E_V850_ARCH:
1848       bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850);
1849       break;
1850     case E_V850E_ARCH:
1851       bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e);
1852       break;
1853     case E_V850E1_ARCH:
1854       bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e1);
1855       break;
1856     }
1857   return TRUE;
1858 }
1859
1860 /* Store the machine number in the flags field.  */
1861
1862 static void
1863 v850_elf_final_write_processing (abfd, linker)
1864      bfd *abfd;
1865      bfd_boolean linker ATTRIBUTE_UNUSED;
1866 {
1867   unsigned long val;
1868
1869   switch (bfd_get_mach (abfd))
1870     {
1871     default:
1872     case bfd_mach_v850:  val = E_V850_ARCH; break;
1873     case bfd_mach_v850e: val = E_V850E_ARCH; break;
1874     case bfd_mach_v850e1: val = E_V850E1_ARCH;  break;
1875     }
1876
1877   elf_elfheader (abfd)->e_flags &=~ EF_V850_ARCH;
1878   elf_elfheader (abfd)->e_flags |= val;
1879 }
1880
1881 /* Function to keep V850 specific file flags.  */
1882
1883 static bfd_boolean
1884 v850_elf_set_private_flags (abfd, flags)
1885      bfd *abfd;
1886      flagword flags;
1887 {
1888   BFD_ASSERT (!elf_flags_init (abfd)
1889               || elf_elfheader (abfd)->e_flags == flags);
1890
1891   elf_elfheader (abfd)->e_flags = flags;
1892   elf_flags_init (abfd) = TRUE;
1893   return TRUE;
1894 }
1895
1896 /* Merge backend specific data from an object file
1897    to the output object file when linking.  */
1898 static bfd_boolean
1899 v850_elf_merge_private_bfd_data (ibfd, obfd)
1900      bfd *ibfd;
1901      bfd *obfd;
1902 {
1903   flagword out_flags;
1904   flagword in_flags;
1905
1906   if (   bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1907       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1908     return TRUE;
1909
1910   in_flags = elf_elfheader (ibfd)->e_flags;
1911   out_flags = elf_elfheader (obfd)->e_flags;
1912
1913   if (! elf_flags_init (obfd))
1914     {
1915       /* If the input is the default architecture then do not
1916          bother setting the flags for the output architecture,
1917          instead allow future merges to do this.  If no future
1918          merges ever set these flags then they will retain their
1919          unitialised values, which surprise surprise, correspond
1920          to the default values.  */
1921       if (bfd_get_arch_info (ibfd)->the_default)
1922         return TRUE;
1923
1924       elf_flags_init (obfd) = TRUE;
1925       elf_elfheader (obfd)->e_flags = in_flags;
1926
1927       if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
1928           && bfd_get_arch_info (obfd)->the_default)
1929         return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
1930
1931       return TRUE;
1932     }
1933
1934   /* Check flag compatibility.  */
1935   if (in_flags == out_flags)
1936     return TRUE;
1937
1938   if ((in_flags & EF_V850_ARCH) != (out_flags & EF_V850_ARCH)
1939       && (in_flags & EF_V850_ARCH) != E_V850_ARCH)
1940     {
1941       /* Allow v850e1 binaries to be linked with v850e binaries.
1942          Set the output binary to v850e.  */
1943       if ((in_flags & EF_V850_ARCH) == E_V850E1_ARCH
1944           && (out_flags & EF_V850_ARCH) == E_V850E_ARCH)
1945         return TRUE;
1946
1947       if ((in_flags & EF_V850_ARCH) == E_V850E_ARCH
1948           && (out_flags & EF_V850_ARCH) == E_V850E1_ARCH)
1949         {
1950           elf_elfheader (obfd)->e_flags =
1951             ((out_flags & ~ EF_V850_ARCH) | E_V850E_ARCH);
1952           return TRUE;
1953         }
1954
1955       _bfd_error_handler (_("%B: Architecture mismatch with previous modules"),
1956                           ibfd);
1957     }
1958
1959   return TRUE;
1960 }
1961
1962 /* Display the flags field.  */
1963
1964 static bfd_boolean
1965 v850_elf_print_private_bfd_data (abfd, ptr)
1966      bfd *abfd;
1967      PTR ptr;
1968 {
1969   FILE * file = (FILE *) ptr;
1970
1971   BFD_ASSERT (abfd != NULL && ptr != NULL);
1972
1973   _bfd_elf_print_private_bfd_data (abfd, ptr);
1974
1975   /* xgettext:c-format */
1976   fprintf (file, _("private flags = %lx: "), elf_elfheader (abfd)->e_flags);
1977
1978   switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
1979     {
1980     default:
1981     case E_V850_ARCH: fprintf (file, _("v850 architecture")); break;
1982     case E_V850E_ARCH:  fprintf (file, _("v850e architecture")); break;
1983     case E_V850E1_ARCH: fprintf (file, _("v850e1 architecture")); break;
1984     }
1985
1986   fputc ('\n', file);
1987
1988   return TRUE;
1989 }
1990
1991 /* V850 ELF uses four common sections.  One is the usual one, and the
1992    others are for (small) objects in one of the special data areas:
1993    small, tiny and zero.  All the objects are kept together, and then
1994    referenced via the gp register, the ep register or the r0 register
1995    respectively, which yields smaller, faster assembler code.  This
1996    approach is copied from elf32-mips.c.  */
1997
1998 static asection  v850_elf_scom_section;
1999 static asymbol   v850_elf_scom_symbol;
2000 static asymbol * v850_elf_scom_symbol_ptr;
2001 static asection  v850_elf_tcom_section;
2002 static asymbol   v850_elf_tcom_symbol;
2003 static asymbol * v850_elf_tcom_symbol_ptr;
2004 static asection  v850_elf_zcom_section;
2005 static asymbol   v850_elf_zcom_symbol;
2006 static asymbol * v850_elf_zcom_symbol_ptr;
2007
2008 /* Given a BFD section, try to locate the
2009    corresponding ELF section index.  */
2010
2011 static bfd_boolean
2012 v850_elf_section_from_bfd_section (abfd, sec, retval)
2013      bfd *abfd ATTRIBUTE_UNUSED;
2014      asection *sec;
2015      int *retval;
2016 {
2017   if (strcmp (bfd_get_section_name (abfd, sec), ".scommon") == 0)
2018     *retval = SHN_V850_SCOMMON;
2019   else if (strcmp (bfd_get_section_name (abfd, sec), ".tcommon") == 0)
2020     *retval = SHN_V850_TCOMMON;
2021   else if (strcmp (bfd_get_section_name (abfd, sec), ".zcommon") == 0)
2022     *retval = SHN_V850_ZCOMMON;
2023   else
2024     return FALSE;
2025
2026   return TRUE;
2027 }
2028
2029 /* Handle the special V850 section numbers that a symbol may use.  */
2030
2031 static void
2032 v850_elf_symbol_processing (abfd, asym)
2033      bfd *abfd;
2034      asymbol *asym;
2035 {
2036   elf_symbol_type * elfsym = (elf_symbol_type *) asym;
2037   unsigned int indx;
2038
2039   indx = elfsym->internal_elf_sym.st_shndx;
2040
2041   /* If the section index is an "ordinary" index, then it may
2042      refer to a v850 specific section created by the assembler.
2043      Check the section's type and change the index it matches.
2044
2045      FIXME: Should we alter the st_shndx field as well ?  */
2046
2047   if (indx < elf_numsections (abfd))
2048     switch (elf_elfsections(abfd)[indx]->sh_type)
2049       {
2050       case SHT_V850_SCOMMON:
2051         indx = SHN_V850_SCOMMON;
2052         break;
2053
2054       case SHT_V850_TCOMMON:
2055         indx = SHN_V850_TCOMMON;
2056         break;
2057
2058       case SHT_V850_ZCOMMON:
2059         indx = SHN_V850_ZCOMMON;
2060         break;
2061
2062       default:
2063         break;
2064       }
2065
2066   switch (indx)
2067     {
2068     case SHN_V850_SCOMMON:
2069       if (v850_elf_scom_section.name == NULL)
2070         {
2071           /* Initialize the small common section.  */
2072           v850_elf_scom_section.name           = ".scommon";
2073           v850_elf_scom_section.flags          = SEC_IS_COMMON | SEC_ALLOC | SEC_DATA;
2074           v850_elf_scom_section.output_section = & v850_elf_scom_section;
2075           v850_elf_scom_section.symbol         = & v850_elf_scom_symbol;
2076           v850_elf_scom_section.symbol_ptr_ptr = & v850_elf_scom_symbol_ptr;
2077           v850_elf_scom_symbol.name            = ".scommon";
2078           v850_elf_scom_symbol.flags           = BSF_SECTION_SYM;
2079           v850_elf_scom_symbol.section         = & v850_elf_scom_section;
2080           v850_elf_scom_symbol_ptr             = & v850_elf_scom_symbol;
2081         }
2082       asym->section = & v850_elf_scom_section;
2083       asym->value = elfsym->internal_elf_sym.st_size;
2084       break;
2085
2086     case SHN_V850_TCOMMON:
2087       if (v850_elf_tcom_section.name == NULL)
2088         {
2089           /* Initialize the tcommon section.  */
2090           v850_elf_tcom_section.name           = ".tcommon";
2091           v850_elf_tcom_section.flags          = SEC_IS_COMMON;
2092           v850_elf_tcom_section.output_section = & v850_elf_tcom_section;
2093           v850_elf_tcom_section.symbol         = & v850_elf_tcom_symbol;
2094           v850_elf_tcom_section.symbol_ptr_ptr = & v850_elf_tcom_symbol_ptr;
2095           v850_elf_tcom_symbol.name            = ".tcommon";
2096           v850_elf_tcom_symbol.flags           = BSF_SECTION_SYM;
2097           v850_elf_tcom_symbol.section         = & v850_elf_tcom_section;
2098           v850_elf_tcom_symbol_ptr             = & v850_elf_tcom_symbol;
2099         }
2100       asym->section = & v850_elf_tcom_section;
2101       asym->value = elfsym->internal_elf_sym.st_size;
2102       break;
2103
2104     case SHN_V850_ZCOMMON:
2105       if (v850_elf_zcom_section.name == NULL)
2106         {
2107           /* Initialize the zcommon section.  */
2108           v850_elf_zcom_section.name           = ".zcommon";
2109           v850_elf_zcom_section.flags          = SEC_IS_COMMON;
2110           v850_elf_zcom_section.output_section = & v850_elf_zcom_section;
2111           v850_elf_zcom_section.symbol         = & v850_elf_zcom_symbol;
2112           v850_elf_zcom_section.symbol_ptr_ptr = & v850_elf_zcom_symbol_ptr;
2113           v850_elf_zcom_symbol.name            = ".zcommon";
2114           v850_elf_zcom_symbol.flags           = BSF_SECTION_SYM;
2115           v850_elf_zcom_symbol.section         = & v850_elf_zcom_section;
2116           v850_elf_zcom_symbol_ptr             = & v850_elf_zcom_symbol;
2117         }
2118       asym->section = & v850_elf_zcom_section;
2119       asym->value = elfsym->internal_elf_sym.st_size;
2120       break;
2121     }
2122 }
2123
2124 /* Hook called by the linker routine which adds symbols from an object
2125    file.  We must handle the special v850 section numbers here.  */
2126
2127 static bfd_boolean
2128 v850_elf_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
2129      bfd *abfd;
2130      struct bfd_link_info *info ATTRIBUTE_UNUSED;
2131      Elf_Internal_Sym *sym;
2132      const char **namep ATTRIBUTE_UNUSED;
2133      flagword *flagsp ATTRIBUTE_UNUSED;
2134      asection **secp;
2135      bfd_vma *valp;
2136 {
2137   unsigned int indx = sym->st_shndx;
2138
2139   /* If the section index is an "ordinary" index, then it may
2140      refer to a v850 specific section created by the assembler.
2141      Check the section's type and change the index it matches.
2142
2143      FIXME: Should we alter the st_shndx field as well ?  */
2144
2145   if (indx < elf_numsections (abfd))
2146     switch (elf_elfsections(abfd)[indx]->sh_type)
2147       {
2148       case SHT_V850_SCOMMON:
2149         indx = SHN_V850_SCOMMON;
2150         break;
2151
2152       case SHT_V850_TCOMMON:
2153         indx = SHN_V850_TCOMMON;
2154         break;
2155
2156       case SHT_V850_ZCOMMON:
2157         indx = SHN_V850_ZCOMMON;
2158         break;
2159
2160       default:
2161         break;
2162       }
2163
2164   switch (indx)
2165     {
2166     case SHN_V850_SCOMMON:
2167       *secp = bfd_make_section_old_way (abfd, ".scommon");
2168       (*secp)->flags |= SEC_IS_COMMON;
2169       *valp = sym->st_size;
2170       break;
2171
2172     case SHN_V850_TCOMMON:
2173       *secp = bfd_make_section_old_way (abfd, ".tcommon");
2174       (*secp)->flags |= SEC_IS_COMMON;
2175       *valp = sym->st_size;
2176       break;
2177
2178     case SHN_V850_ZCOMMON:
2179       *secp = bfd_make_section_old_way (abfd, ".zcommon");
2180       (*secp)->flags |= SEC_IS_COMMON;
2181       *valp = sym->st_size;
2182       break;
2183     }
2184
2185   return TRUE;
2186 }
2187
2188 static bfd_boolean
2189 v850_elf_link_output_symbol_hook (info, name, sym, input_sec, h)
2190      struct bfd_link_info *info ATTRIBUTE_UNUSED;
2191      const char *name ATTRIBUTE_UNUSED;
2192      Elf_Internal_Sym *sym;
2193      asection *input_sec;
2194      struct elf_link_hash_entry *h ATTRIBUTE_UNUSED;
2195 {
2196   /* If we see a common symbol, which implies a relocatable link, then
2197      if a symbol was in a special common section in an input file, mark
2198      it as a special common in the output file.  */
2199
2200   if (sym->st_shndx == SHN_COMMON)
2201     {
2202       if (strcmp (input_sec->name, ".scommon") == 0)
2203         sym->st_shndx = SHN_V850_SCOMMON;
2204       else if (strcmp (input_sec->name, ".tcommon") == 0)
2205         sym->st_shndx = SHN_V850_TCOMMON;
2206       else if (strcmp (input_sec->name, ".zcommon") == 0)
2207         sym->st_shndx = SHN_V850_ZCOMMON;
2208     }
2209
2210   return TRUE;
2211 }
2212
2213 static bfd_boolean
2214 v850_elf_section_from_shdr (bfd *abfd,
2215                             Elf_Internal_Shdr *hdr,
2216                             const char *name,
2217                             int shindex)
2218 {
2219   /* There ought to be a place to keep ELF backend specific flags, but
2220      at the moment there isn't one.  We just keep track of the
2221      sections by their name, instead.  */
2222
2223   if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
2224     return FALSE;
2225
2226   switch (hdr->sh_type)
2227     {
2228     case SHT_V850_SCOMMON:
2229     case SHT_V850_TCOMMON:
2230     case SHT_V850_ZCOMMON:
2231       if (! bfd_set_section_flags (abfd, hdr->bfd_section,
2232                                    (bfd_get_section_flags (abfd,
2233                                                            hdr->bfd_section)
2234                                     | SEC_IS_COMMON)))
2235         return FALSE;
2236     }
2237
2238   return TRUE;
2239 }
2240
2241 /* Set the correct type for a V850 ELF section.  We do this
2242    by the section name, which is a hack, but ought to work.  */
2243
2244 static bfd_boolean
2245 v850_elf_fake_sections (abfd, hdr, sec)
2246      bfd *abfd ATTRIBUTE_UNUSED;
2247      Elf_Internal_Shdr *hdr;
2248      asection *sec;
2249 {
2250   register const char * name;
2251
2252   name = bfd_get_section_name (abfd, sec);
2253
2254   if (strcmp (name, ".scommon") == 0)
2255     {
2256       hdr->sh_type = SHT_V850_SCOMMON;
2257     }
2258   else if (strcmp (name, ".tcommon") == 0)
2259     {
2260       hdr->sh_type = SHT_V850_TCOMMON;
2261     }
2262   else if (strcmp (name, ".zcommon") == 0)
2263     hdr->sh_type = SHT_V850_ZCOMMON;
2264
2265   return TRUE;
2266 }
2267
2268 /* Delete some bytes from a section while relaxing.  */
2269
2270 static bfd_boolean
2271 v850_elf_relax_delete_bytes (abfd, sec, addr, toaddr, count)
2272      bfd *abfd;
2273      asection *sec;
2274      bfd_vma addr;
2275      bfd_vma toaddr;
2276      int count;
2277 {
2278   Elf_Internal_Shdr *symtab_hdr;
2279   Elf32_External_Sym *extsyms;
2280   Elf32_External_Sym *esym;
2281   Elf32_External_Sym *esymend;
2282   int index;
2283   unsigned int sec_shndx;
2284   bfd_byte *contents;
2285   Elf_Internal_Rela *irel;
2286   Elf_Internal_Rela *irelend;
2287   struct elf_link_hash_entry *sym_hash;
2288   Elf_Internal_Shdr *shndx_hdr;
2289   Elf_External_Sym_Shndx *shndx;
2290
2291   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2292   extsyms = (Elf32_External_Sym *) symtab_hdr->contents;
2293
2294   sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
2295
2296   contents = elf_section_data (sec)->this_hdr.contents;
2297
2298   /* The deletion must stop at the next ALIGN reloc for an alignment
2299      power larger than the number of bytes we are deleting.  */
2300
2301   /* Actually delete the bytes.  */
2302 #if (DEBUG_RELAX & 2)
2303   fprintf (stderr, "relax_delete: contents: sec: %s  %p .. %p %x\n",
2304            sec->name, addr, toaddr, count );
2305 #endif
2306   memmove (contents + addr, contents + addr + count,
2307            toaddr - addr - count);
2308   memset (contents + toaddr-count, 0, count);
2309
2310   /* Adjust all the relocs.  */
2311   irel = elf_section_data (sec)->relocs;
2312   irelend = irel + sec->reloc_count;
2313   shndx_hdr = &elf_tdata (abfd)->symtab_shndx_hdr;
2314   shndx = (Elf_External_Sym_Shndx *) shndx_hdr->contents;
2315
2316   for (; irel < irelend; irel++)
2317     {
2318       bfd_vma raddr, paddr, symval;
2319       Elf_Internal_Sym isym;
2320
2321       /* Get the new reloc address.  */
2322       raddr = irel->r_offset;
2323       if ((raddr >= (addr + count) && raddr < toaddr))
2324         irel->r_offset -= count;
2325
2326       if (raddr >= addr && raddr < addr + count)
2327         {
2328           irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2329                                        (int) R_V850_NONE);
2330           continue;
2331         }
2332
2333       if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN)
2334         continue;
2335
2336       bfd_elf32_swap_symbol_in (abfd,
2337                                 extsyms + ELF32_R_SYM (irel->r_info),
2338                                 shndx ? shndx + ELF32_R_SYM (irel->r_info) : NULL,
2339                                 & isym);
2340
2341       if (isym.st_shndx != sec_shndx)
2342         continue;
2343
2344       /* Get the value of the symbol referred to by the reloc.  */
2345       if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2346         {
2347           symval = isym.st_value;
2348 #if (DEBUG_RELAX & 2)
2349           {
2350             char * name = bfd_elf_string_from_elf_section
2351                            (abfd, symtab_hdr->sh_link, isym.st_name);
2352             fprintf (stderr,
2353                "relax_delete: local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
2354                sec->name, name, isym.st_name,
2355                sec->output_section->vma, sec->output_offset,
2356                isym.st_value, irel->r_addend);
2357           }
2358 #endif
2359         }
2360       else
2361         {
2362           unsigned long indx;
2363           struct elf_link_hash_entry * h;
2364
2365           /* An external symbol.  */
2366           indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2367
2368           h = elf_sym_hashes (abfd) [indx];
2369           BFD_ASSERT (h != NULL);
2370
2371           symval = h->root.u.def.value;
2372 #if (DEBUG_RELAX & 2)
2373           fprintf (stderr,
2374                    "relax_delete: defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
2375                    sec->name, h->root.root.string, h->root.u.def.value,
2376                    sec->output_section->vma, sec->output_offset, irel->r_addend);
2377 #endif
2378         }
2379
2380       paddr = symval + irel->r_addend;
2381
2382       if ( (symval >= addr + count && symval < toaddr)
2383           && (paddr < addr + count || paddr >= toaddr))
2384         irel->r_addend += count;
2385       else if (    (symval < addr + count || symval >= toaddr)
2386                 && (paddr >= addr + count && paddr < toaddr))
2387         irel->r_addend -= count;
2388     }
2389
2390   /* Adjust the local symbols defined in this section.  */
2391   esym = extsyms;
2392   esymend = esym + symtab_hdr->sh_info;
2393
2394   for (; esym < esymend; esym++, shndx = (shndx ? shndx + 1 : NULL))
2395     {
2396       Elf_Internal_Sym isym;
2397
2398       bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
2399
2400       if (isym.st_shndx == sec_shndx
2401           && isym.st_value >= addr + count
2402           && isym.st_value < toaddr)
2403         {
2404           isym.st_value -= count;
2405
2406           if (isym.st_value + isym.st_size >= toaddr)
2407             isym.st_size += count;
2408
2409           bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2410         }
2411       else if (isym.st_shndx == sec_shndx
2412                && isym.st_value < addr + count)
2413         {
2414           if (isym.st_value+isym.st_size >= addr + count
2415               && isym.st_value+isym.st_size < toaddr)
2416             isym.st_size -= count;
2417
2418           if (isym.st_value >= addr
2419               && isym.st_value <  addr + count)
2420             isym.st_value = addr;
2421
2422           bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2423         }
2424     }
2425
2426   /* Now adjust the global symbols defined in this section.  */
2427   esym = extsyms + symtab_hdr->sh_info;
2428   esymend = extsyms + (symtab_hdr->sh_size / sizeof (Elf32_External_Sym));
2429
2430   for (index = 0; esym < esymend; esym ++, index ++)
2431     {
2432       Elf_Internal_Sym isym;
2433
2434       bfd_elf32_swap_symbol_in (abfd, esym, shndx, & isym);
2435       sym_hash = elf_sym_hashes (abfd) [index];
2436
2437       if (isym.st_shndx == sec_shndx
2438           && ((sym_hash)->root.type == bfd_link_hash_defined
2439               || (sym_hash)->root.type == bfd_link_hash_defweak)
2440           && (sym_hash)->root.u.def.section == sec
2441           && (sym_hash)->root.u.def.value >= addr + count
2442           && (sym_hash)->root.u.def.value < toaddr)
2443         {
2444           if ((sym_hash)->root.u.def.value + isym.st_size >= toaddr)
2445             {
2446               isym.st_size += count;
2447               bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2448             }
2449
2450           (sym_hash)->root.u.def.value -= count;
2451         }
2452       else if (isym.st_shndx == sec_shndx
2453                && ((sym_hash)->root.type == bfd_link_hash_defined
2454                    || (sym_hash)->root.type == bfd_link_hash_defweak)
2455                && (sym_hash)->root.u.def.section == sec
2456                && (sym_hash)->root.u.def.value < addr + count)
2457         {
2458           if ((sym_hash)->root.u.def.value+isym.st_size >= addr + count
2459               && (sym_hash)->root.u.def.value+isym.st_size < toaddr)
2460             isym.st_size -= count;
2461
2462           if ((sym_hash)->root.u.def.value >= addr
2463               && (sym_hash)->root.u.def.value < addr + count)
2464             (sym_hash)->root.u.def.value = addr;
2465
2466           bfd_elf32_swap_symbol_out (abfd, & isym, esym, shndx);
2467         }
2468
2469       if (shndx)
2470         ++ shndx;
2471     }
2472
2473   return TRUE;
2474 }
2475
2476 #define NOP_OPCODE      (0x0000)
2477 #define MOVHI           0x0640                          /* 4byte */
2478 #define MOVHI_MASK      0x07e0
2479 #define MOVHI_R1(insn)  ((insn) & 0x1f)                 /* 4byte */
2480 #define MOVHI_R2(insn)  ((insn) >> 11)
2481 #define MOVEA           0x0620                          /* 2byte */
2482 #define MOVEA_MASK      0x07e0
2483 #define MOVEA_R1(insn)  ((insn) & 0x1f)
2484 #define MOVEA_R2(insn)  ((insn) >> 11)
2485 #define JARL_4          0x00040780                              /* 4byte */
2486 #define JARL_4_MASK     0xFFFF07FF
2487 #define JARL_R2(insn)   (int)(((insn) & (~JARL_4_MASK)) >> 11)
2488 #define ADD_I           0x0240                                  /* 2byte */
2489 #define ADD_I_MASK      0x07e0
2490 #define ADD_I5(insn)    ((((insn) & 0x001f) << 11) >> 11)       /* 2byte */
2491 #define ADD_R2(insn)    ((insn) >> 11)
2492 #define JMP_R           0x0060                                  /* 2byte */
2493 #define JMP_R_MASK      0xFFE0
2494 #define JMP_R1(insn)    ((insn) & 0x1f)
2495
2496 static bfd_boolean
2497 v850_elf_relax_section (abfd, sec, link_info, again)
2498      bfd *abfd;
2499      asection *sec;
2500      struct bfd_link_info *link_info;
2501      bfd_boolean *again;
2502 {
2503   Elf_Internal_Shdr *symtab_hdr;
2504   Elf_Internal_Rela *internal_relocs;
2505   Elf_Internal_Rela *irel;
2506   Elf_Internal_Rela *irelend;
2507   Elf_Internal_Rela *irelalign = NULL;
2508   Elf_Internal_Sym *isymbuf = NULL;
2509   bfd_byte *contents = NULL;
2510   bfd_vma addr = 0;
2511   bfd_vma toaddr;
2512   int align_pad_size = 0;
2513   bfd_boolean result = TRUE;
2514
2515   *again = FALSE;
2516
2517   if (link_info->relocatable
2518       || (sec->flags & SEC_RELOC) == 0
2519       || sec->reloc_count == 0)
2520     return TRUE;
2521
2522   symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
2523
2524   internal_relocs = (_bfd_elf_link_read_relocs
2525                      (abfd, sec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
2526                       link_info->keep_memory));
2527   if (internal_relocs == NULL)
2528     goto error_return;
2529
2530   irelend = internal_relocs + sec->reloc_count;
2531
2532   while (addr < sec->size)
2533     {
2534       toaddr = sec->size;
2535
2536       for (irel = internal_relocs; irel < irelend; irel ++)
2537         if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
2538             && irel->r_offset > addr
2539             && irel->r_offset < toaddr)
2540           toaddr = irel->r_offset;
2541
2542 #ifdef DEBUG_RELAX
2543       fprintf (stderr, "relax region 0x%x to 0x%x align pad %d\n",
2544                addr, toaddr, align_pad_size);
2545 #endif
2546       if (irelalign)
2547         {
2548           bfd_vma alignto;
2549           bfd_vma alignmoveto;
2550
2551           alignmoveto = BFD_ALIGN (addr - align_pad_size, 1 << irelalign->r_addend);
2552           alignto = BFD_ALIGN (addr, 1 << irelalign->r_addend);
2553
2554           if (alignmoveto < alignto)
2555             {
2556               unsigned int i;
2557
2558               align_pad_size = alignto - alignmoveto;
2559 #ifdef DEBUG_RELAX
2560               fprintf (stderr, "relax move region 0x%x to 0x%x delete size 0x%x\n",
2561                        alignmoveto, toaddr, align_pad_size);
2562 #endif
2563               if (!v850_elf_relax_delete_bytes (abfd, sec, alignmoveto,
2564                                                 toaddr, align_pad_size))
2565                 goto error_return;
2566
2567               for (i  = BFD_ALIGN (toaddr - align_pad_size, 1);
2568                    (i + 1) < toaddr; i += 2)
2569                 bfd_put_16 (abfd, NOP_OPCODE, contents + i);
2570
2571               addr = alignmoveto;
2572             }
2573           else
2574             align_pad_size = 0;
2575         }
2576
2577       for (irel = internal_relocs; irel < irelend; irel++)
2578         {
2579           bfd_vma laddr;
2580           bfd_vma addend;
2581           bfd_vma symval;
2582           int insn[5];
2583           int no_match = -1;
2584           Elf_Internal_Rela *hi_irelfn;
2585           Elf_Internal_Rela *lo_irelfn;
2586           Elf_Internal_Rela *irelcall;
2587           bfd_signed_vma foff;
2588
2589           if (! (irel->r_offset >= addr && irel->r_offset < toaddr
2590                  && (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL
2591                      || ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)))
2592             continue;
2593
2594 #ifdef DEBUG_RELAX
2595           fprintf (stderr, "relax check r_info 0x%x r_offset 0x%x r_addend 0x%x\n",
2596                    irel->r_info,
2597                    irel->r_offset,
2598                    irel->r_addend );
2599 #endif
2600
2601           /* Get the section contents.  */
2602           if (contents == NULL)
2603             {
2604               if (elf_section_data (sec)->this_hdr.contents != NULL)
2605                 contents = elf_section_data (sec)->this_hdr.contents;
2606               else
2607                 {
2608                   if (!bfd_malloc_and_get_section (abfd, sec, &contents))
2609                     goto error_return;
2610                 }
2611             }
2612
2613           /* Read this BFD's local symbols if we haven't done so already.  */
2614           if (isymbuf == NULL && symtab_hdr->sh_info != 0)
2615             {
2616               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2617               if (isymbuf == NULL)
2618                 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
2619                                                 symtab_hdr->sh_info, 0,
2620                                                 NULL, NULL, NULL);
2621               if (isymbuf == NULL)
2622                 goto error_return;
2623             }
2624
2625           laddr = irel->r_offset;
2626
2627           if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGCALL)
2628             {
2629               /* Check code for -mlong-calls output. */
2630               if (laddr + 16 <= (bfd_vma) sec->size)
2631                 {
2632                   insn[0] = bfd_get_16 (abfd, contents + laddr);
2633                   insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
2634                   insn[2] = bfd_get_32 (abfd, contents + laddr + 8);
2635                   insn[3] = bfd_get_16 (abfd, contents + laddr + 12);
2636                   insn[4] = bfd_get_16 (abfd, contents + laddr + 14);
2637
2638                   if ((insn[0] & MOVHI_MASK) != MOVHI
2639                        || MOVHI_R1 (insn[0]) != 0)
2640                     no_match = 0;
2641
2642                   if (no_match < 0
2643                       && ((insn[1] & MOVEA_MASK) != MOVEA
2644                            || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
2645                     no_match = 1;
2646
2647                   if (no_match < 0
2648                       && (insn[2] & JARL_4_MASK) != JARL_4)
2649                     no_match = 2;
2650
2651                   if (no_match < 0
2652                       && ((insn[3] & ADD_I_MASK) != ADD_I
2653                            || ADD_I5 (insn[3]) != 4
2654                            || JARL_R2 (insn[2]) != ADD_R2 (insn[3])))
2655                     no_match = 3;
2656
2657                   if (no_match < 0
2658                       && ((insn[4] & JMP_R_MASK) != JMP_R
2659                            || MOVEA_R2 (insn[1]) != JMP_R1 (insn[4])))
2660                     no_match = 4;
2661                 }
2662               else
2663                 {
2664                   ((*_bfd_error_handler)
2665                    ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insns",
2666                     bfd_get_filename (abfd), (unsigned long) irel->r_offset));
2667
2668                   continue;
2669                 }
2670
2671               if (no_match >= 0)
2672                 {
2673                   ((*_bfd_error_handler)
2674                    ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized insn 0x%x",
2675                     bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
2676
2677                   continue;
2678                 }
2679
2680               /* Get the reloc for the address from which the register is
2681                  being loaded.  This reloc will tell us which function is
2682                  actually being called.  */
2683               for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
2684                 if (hi_irelfn->r_offset == laddr + 2
2685                     && ELF32_R_TYPE (hi_irelfn->r_info)
2686                         == (int) R_V850_HI16_S)
2687                   break;
2688
2689               for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
2690                 if (lo_irelfn->r_offset == laddr + 6
2691                     && ELF32_R_TYPE (lo_irelfn->r_info)
2692                         == (int) R_V850_LO16)
2693                   break;
2694
2695               for (irelcall = internal_relocs; irelcall < irelend; irelcall ++)
2696                 if (irelcall->r_offset == laddr + 8
2697                     && ELF32_R_TYPE (irelcall->r_info)
2698                         == (int) R_V850_22_PCREL)
2699                   break;
2700
2701               if (   hi_irelfn == irelend
2702                   || lo_irelfn == irelend
2703                   || irelcall  == irelend)
2704                 {
2705                   ((*_bfd_error_handler)
2706                    ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc",
2707                     bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
2708
2709                   continue;
2710                 }
2711
2712               if (ELF32_R_SYM (irelcall->r_info) < symtab_hdr->sh_info)
2713                 {
2714                   Elf_Internal_Sym *  isym;
2715
2716                   /* A local symbol.  */
2717                   isym = isymbuf + ELF32_R_SYM (irelcall->r_info);
2718
2719                   symval = isym->st_value;
2720                 }
2721               else
2722                 {
2723                   unsigned long indx;
2724                   struct elf_link_hash_entry * h;
2725
2726                   /* An external symbol.  */
2727                   indx = ELF32_R_SYM (irelcall->r_info) - symtab_hdr->sh_info;
2728                   h = elf_sym_hashes (abfd)[indx];
2729                   BFD_ASSERT (h != NULL);
2730
2731                   if (   h->root.type != bfd_link_hash_defined
2732                       && h->root.type != bfd_link_hash_defweak)
2733                     /* This appears to be a reference to an undefined
2734                        symbol.  Just ignore it--it will be caught by the
2735                        regular reloc processing.  */
2736                     continue;
2737
2738                   symval = h->root.u.def.value;
2739                 }
2740
2741               if (symval + irelcall->r_addend != irelcall->r_offset + 4)
2742                 {
2743                   ((*_bfd_error_handler)
2744                    ("%s: 0x%lx: warning: R_V850_LONGCALL points to unrecognized reloc 0x%lx",
2745                     bfd_get_filename (abfd), (unsigned long) irel->r_offset, irelcall->r_offset ));
2746
2747                   continue;
2748                 }
2749
2750               /* Get the value of the symbol referred to by the reloc.  */
2751               if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
2752                 {
2753                   Elf_Internal_Sym *isym;
2754                   asection *sym_sec;
2755
2756                   /* A local symbol.  */
2757                   isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
2758
2759                   if (isym->st_shndx == SHN_UNDEF)
2760                     sym_sec = bfd_und_section_ptr;
2761                   else if (isym->st_shndx == SHN_ABS)
2762                     sym_sec = bfd_abs_section_ptr;
2763                   else if (isym->st_shndx == SHN_COMMON)
2764                     sym_sec = bfd_com_section_ptr;
2765                   else
2766                     sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2767                   symval = (isym->st_value
2768                             + sym_sec->output_section->vma
2769                             + sym_sec->output_offset);
2770                 }
2771               else
2772                 {
2773                   unsigned long indx;
2774                   struct elf_link_hash_entry *h;
2775
2776                   /* An external symbol.  */
2777                   indx = ELF32_R_SYM (hi_irelfn->r_info) - symtab_hdr->sh_info;
2778                   h = elf_sym_hashes (abfd)[indx];
2779                   BFD_ASSERT (h != NULL);
2780
2781                   if (   h->root.type != bfd_link_hash_defined
2782                       && h->root.type != bfd_link_hash_defweak)
2783                     /* This appears to be a reference to an undefined
2784                        symbol.  Just ignore it--it will be caught by the
2785                        regular reloc processing.  */
2786                     continue;
2787
2788                   symval = (h->root.u.def.value
2789                             + h->root.u.def.section->output_section->vma
2790                             + h->root.u.def.section->output_offset);
2791                 }
2792
2793               addend = irel->r_addend;
2794
2795               foff = (symval + addend
2796                       - (irel->r_offset
2797                          + sec->output_section->vma
2798                          + sec->output_offset
2799                          + 4));
2800 #ifdef DEBUG_RELAX
2801               fprintf (stderr, "relax longcall r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
2802                        irel->r_offset,
2803                        (irel->r_offset
2804                         + sec->output_section->vma
2805                         + sec->output_offset),
2806                        symval, addend, foff);
2807 #endif
2808
2809               if (foff < -0x100000 || foff >= 0x100000)
2810                 /* After all that work, we can't shorten this function call.  */
2811                 continue;
2812
2813               /* For simplicity of coding, we are going to modify the section
2814                  contents, the section relocs, and the BFD symbol table.  We
2815                  must tell the rest of the code not to free up this
2816                  information.  It would be possible to instead create a table
2817                  of changes which have to be made, as is done in coff-mips.c;
2818                  that would be more work, but would require less memory when
2819                  the linker is run.  */
2820               elf_section_data (sec)->relocs = internal_relocs;
2821               elf_section_data (sec)->this_hdr.contents = contents;
2822               symtab_hdr->contents = (bfd_byte *) isymbuf;
2823
2824               /* Replace the long call with a jarl.  */
2825               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_22_PCREL);
2826
2827               addend = 0;
2828
2829               if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
2830                 /* If this needs to be changed because of future relaxing,
2831                    it will be handled here like other internal IND12W
2832                    relocs.  */
2833                 bfd_put_32 (abfd,
2834                             0x00000780 | (JARL_R2 (insn[2])<<11) | ((addend << 16) & 0xffff) | ((addend >> 16) & 0xf),
2835                             contents + irel->r_offset);
2836               else
2837                 /* We can't fully resolve this yet, because the external
2838                    symbol value may be changed by future relaxing.
2839                    We let the final link phase handle it.  */
2840                 bfd_put_32 (abfd, 0x00000780 | (JARL_R2 (insn[2])<<11),
2841                             contents + irel->r_offset);
2842
2843               hi_irelfn->r_info =
2844                 ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
2845               lo_irelfn->r_info =
2846                 ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
2847               irelcall->r_info =
2848                 ELF32_R_INFO (ELF32_R_SYM (irelcall->r_info), R_V850_NONE);
2849
2850               if (! v850_elf_relax_delete_bytes (abfd, sec,
2851                                                  irel->r_offset + 4, toaddr, 12))
2852                 goto error_return;
2853
2854               align_pad_size += 12;
2855             }
2856           else if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_LONGJUMP)
2857             {
2858               /* Check code for -mlong-jumps output.  */
2859               if (laddr + 10 <= (bfd_vma) sec->size)
2860                 {
2861                   insn[0] = bfd_get_16 (abfd, contents + laddr);
2862                   insn[1] = bfd_get_16 (abfd, contents + laddr + 4);
2863                   insn[2] = bfd_get_16 (abfd, contents + laddr + 8);
2864
2865                   if ((insn[0] & MOVHI_MASK) != MOVHI
2866                        || MOVHI_R1 (insn[0]) != 0)
2867                     no_match = 0;
2868
2869                   if (no_match < 0
2870                       && ((insn[1] & MOVEA_MASK) != MOVEA
2871                            || MOVHI_R2 (insn[0]) != MOVEA_R1 (insn[1])))
2872                     no_match = 1;
2873
2874                   if (no_match < 0
2875                       && ((insn[2] & JMP_R_MASK) != JMP_R
2876                            || MOVEA_R2 (insn[1]) != JMP_R1 (insn[2])))
2877                     no_match = 4;
2878                 }
2879               else
2880                 {
2881                   ((*_bfd_error_handler)
2882                    ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insns",
2883                     bfd_get_filename (abfd), (unsigned long) irel->r_offset));
2884
2885                   continue;
2886                 }
2887
2888               if (no_match >= 0)
2889                 {
2890                   ((*_bfd_error_handler)
2891                    ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized insn 0x%x",
2892                     bfd_get_filename (abfd), (unsigned long) irel->r_offset+no_match, insn[no_match]));
2893
2894                   continue;
2895                 }
2896
2897               /* Get the reloc for the address from which the register is
2898                  being loaded.  This reloc will tell us which function is
2899                  actually being called.  */
2900               for (hi_irelfn = internal_relocs; hi_irelfn < irelend; hi_irelfn ++)
2901                 if (hi_irelfn->r_offset == laddr + 2
2902                     && ELF32_R_TYPE (hi_irelfn->r_info) == (int) R_V850_HI16_S)
2903                   break;
2904
2905               for (lo_irelfn = internal_relocs; lo_irelfn < irelend; lo_irelfn ++)
2906                 if (lo_irelfn->r_offset == laddr + 6
2907                     && ELF32_R_TYPE (lo_irelfn->r_info) == (int) R_V850_LO16)
2908                   break;
2909
2910               if (   hi_irelfn == irelend
2911                   || lo_irelfn == irelend)
2912                 {
2913                   ((*_bfd_error_handler)
2914                    ("%s: 0x%lx: warning: R_V850_LONGJUMP points to unrecognized reloc",
2915                     bfd_get_filename (abfd), (unsigned long) irel->r_offset ));
2916
2917                   continue;
2918                 }
2919
2920               /* Get the value of the symbol referred to by the reloc.  */
2921               if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
2922                 {
2923                   Elf_Internal_Sym *  isym;
2924                   asection *          sym_sec;
2925
2926                   /* A local symbol.  */
2927                   isym = isymbuf + ELF32_R_SYM (hi_irelfn->r_info);
2928
2929                   if (isym->st_shndx == SHN_UNDEF)
2930                     sym_sec = bfd_und_section_ptr;
2931                   else if (isym->st_shndx == SHN_ABS)
2932                     sym_sec = bfd_abs_section_ptr;
2933                   else if (isym->st_shndx == SHN_COMMON)
2934                     sym_sec = bfd_com_section_ptr;
2935                   else
2936                     sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2937                   symval = (isym->st_value
2938                             + sym_sec->output_section->vma
2939                             + sym_sec->output_offset);
2940 #ifdef DEBUG_RELAX
2941                   {
2942                     char * name = bfd_elf_string_from_elf_section
2943                       (abfd, symtab_hdr->sh_link, isym->st_name);
2944
2945                     fprintf (stderr, "relax long jump local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x\n",
2946                              sym_sec->name, name, isym->st_name,
2947                              sym_sec->output_section->vma,
2948                              sym_sec->output_offset,
2949                              isym->st_value, irel->r_addend);
2950                   }
2951 #endif
2952                 }
2953               else
2954                 {
2955                   unsigned long indx;
2956                   struct elf_link_hash_entry * h;
2957
2958                   /* An external symbol.  */
2959                   indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2960                   h = elf_sym_hashes (abfd)[indx];
2961                   BFD_ASSERT (h != NULL);
2962
2963                   if (   h->root.type != bfd_link_hash_defined
2964                       && h->root.type != bfd_link_hash_defweak)
2965                     /* This appears to be a reference to an undefined
2966                        symbol.  Just ignore it--it will be caught by the
2967                        regular reloc processing.  */
2968                     continue;
2969
2970                   symval = (h->root.u.def.value
2971                             + h->root.u.def.section->output_section->vma
2972                             + h->root.u.def.section->output_offset);
2973 #ifdef DEBUG_RELAX
2974                   fprintf (stderr,
2975                            "relax longjump defined: sec: %s, name: %s, value: %x + %x + %x addend %x\n",
2976                            sec->name, h->root.root.string, h->root.u.def.value,
2977                            sec->output_section->vma, sec->output_offset, irel->r_addend);
2978 #endif
2979                 }
2980
2981               addend = irel->r_addend;
2982
2983               foff = (symval + addend
2984                       - (irel->r_offset
2985                          + sec->output_section->vma
2986                          + sec->output_offset
2987                          + 4));
2988 #ifdef DEBUG_RELAX
2989               fprintf (stderr, "relax longjump r_offset 0x%x ptr 0x%x symbol 0x%x addend 0x%x distance 0x%x\n",
2990                        irel->r_offset,
2991                        (irel->r_offset
2992                         + sec->output_section->vma
2993                         + sec->output_offset),
2994                        symval, addend, foff);
2995 #endif
2996               if (foff < -0x100000 || foff >= 0x100000)
2997                 /* After all that work, we can't shorten this function call.  */
2998                 continue;
2999
3000               /* For simplicity of coding, we are going to modify the section
3001                  contents, the section relocs, and the BFD symbol table.  We
3002                  must tell the rest of the code not to free up this
3003                  information.  It would be possible to instead create a table
3004                  of changes which have to be made, as is done in coff-mips.c;
3005                  that would be more work, but would require less memory when
3006                  the linker is run.  */
3007               elf_section_data (sec)->relocs = internal_relocs;
3008               elf_section_data (sec)->this_hdr.contents = contents;
3009               symtab_hdr->contents = (bfd_byte *) isymbuf;
3010
3011               if (foff < -0x100 || foff >= 0x100)
3012                 {
3013                   /* Replace the long jump with a jr.  */
3014
3015                   irel->r_info =
3016                     ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_22_PCREL);
3017
3018                   irel->r_addend = addend;
3019                   addend = 0;
3020
3021                   if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3022                     /* If this needs to be changed because of future relaxing,
3023                        it will be handled here like other internal IND12W
3024                        relocs.  */
3025                     bfd_put_32 (abfd,
3026                                 0x00000780 | ((addend << 15) & 0xffff0000) | ((addend >> 17) & 0xf),
3027                                 contents + irel->r_offset);
3028                   else
3029                     /* We can't fully resolve this yet, because the external
3030                        symbol value may be changed by future relaxing.
3031                        We let the final link phase handle it.  */
3032                     bfd_put_32 (abfd, 0x00000780, contents + irel->r_offset);
3033
3034                   hi_irelfn->r_info =
3035                         ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3036                   lo_irelfn->r_info =
3037                         ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3038                   if (!v850_elf_relax_delete_bytes (abfd, sec,
3039                                                     irel->r_offset + 4, toaddr, 6))
3040                     goto error_return;
3041
3042                   align_pad_size += 6;
3043                 }
3044               else
3045                 {
3046                   /* Replace the long jump with a br.  */
3047
3048                   irel->r_info =
3049                         ELF32_R_INFO (ELF32_R_SYM (irel->r_info), R_V850_9_PCREL);
3050
3051                   irel->r_addend = addend;
3052                   addend = 0;
3053
3054                   if (ELF32_R_SYM (hi_irelfn->r_info) < symtab_hdr->sh_info)
3055                     /* If this needs to be changed because of future relaxing,
3056                        it will be handled here like other internal IND12W
3057                        relocs.  */
3058                     bfd_put_16 (abfd,
3059                                 0x0585 | ((addend << 10) & 0xf800) | ((addend << 3) & 0x0070),
3060                                 contents + irel->r_offset);
3061                   else
3062                     /* We can't fully resolve this yet, because the external
3063                        symbol value may be changed by future relaxing.
3064                        We let the final link phase handle it.  */
3065                     bfd_put_16 (abfd, 0x0585, contents + irel->r_offset);
3066
3067                   hi_irelfn->r_info =
3068                         ELF32_R_INFO (ELF32_R_SYM (hi_irelfn->r_info), R_V850_NONE);
3069                   lo_irelfn->r_info =
3070                         ELF32_R_INFO (ELF32_R_SYM (lo_irelfn->r_info), R_V850_NONE);
3071                   if (!v850_elf_relax_delete_bytes (abfd, sec,
3072                                                     irel->r_offset + 2, toaddr, 8))
3073                     goto error_return;
3074
3075                   align_pad_size += 8;
3076                 }
3077             }
3078         }
3079
3080       irelalign = NULL;
3081       for (irel = internal_relocs; irel < irelend; irel++)
3082         {
3083           if (ELF32_R_TYPE (irel->r_info) == (int) R_V850_ALIGN
3084               && irel->r_offset == toaddr)
3085             {
3086               irel->r_offset -= align_pad_size;
3087
3088               if (irelalign == NULL || irelalign->r_addend > irel->r_addend)
3089                 irelalign = irel;
3090             }
3091         }
3092
3093       addr = toaddr;
3094     }
3095
3096   if (!irelalign)
3097     {
3098 #ifdef DEBUG_RELAX
3099       fprintf (stderr, "relax pad %d shorten %d -> %d\n",
3100                align_pad_size,
3101                sec->size,
3102                sec->size - align_pad_size);
3103 #endif
3104       sec->size -= align_pad_size;
3105     }
3106
3107  finish:
3108   if (internal_relocs != NULL
3109       && elf_section_data (sec)->relocs != internal_relocs)
3110     free (internal_relocs);
3111
3112   if (contents != NULL
3113       && elf_section_data (sec)->this_hdr.contents != (unsigned char *) contents)
3114     free (contents);
3115
3116   if (isymbuf != NULL
3117       && symtab_hdr->contents != (bfd_byte *) isymbuf)
3118     free (isymbuf);
3119
3120   return result;
3121
3122  error_return:
3123   result = FALSE;
3124   goto finish;
3125 }
3126
3127 static struct bfd_elf_special_section const
3128   v850_special_sections_c[]=
3129 {
3130   { ".call_table_data", 16,  0, SHT_PROGBITS,     (SHF_ALLOC
3131                                                    + SHF_WRITE) },
3132   { ".call_table_text", 16,  0, SHT_PROGBITS,     (SHF_ALLOC + SHF_WRITE
3133                                                    + SHF_EXECINSTR) },
3134   { NULL,        0, 0, 0,            0 }
3135 };
3136
3137 static struct bfd_elf_special_section const
3138   v850_special_sections_r[]=
3139 {
3140   { ".rosdata",          8, -2, SHT_PROGBITS,     (SHF_ALLOC
3141                                                    + SHF_V850_GPREL) },
3142   { ".rozdata",          8, -2, SHT_PROGBITS,     (SHF_ALLOC
3143                                                    + SHF_V850_R0REL) },
3144   { NULL,        0, 0, 0,            0 }
3145 };
3146
3147 static struct bfd_elf_special_section const
3148   v850_special_sections_s[]=
3149 {
3150   { ".sdata",            6, -2, SHT_PROGBITS,     (SHF_ALLOC + SHF_WRITE
3151                                                    + SHF_V850_GPREL) },
3152   { ".sbss",             5, -2, SHT_NOBITS,       (SHF_ALLOC + SHF_WRITE
3153                                                    + SHF_V850_GPREL) },
3154   { ".scommon",          8, -2, SHT_V850_SCOMMON, (SHF_ALLOC + SHF_WRITE
3155                                                    + SHF_V850_GPREL) },
3156   { NULL,        0, 0, 0,            0 }
3157 };
3158
3159 static struct bfd_elf_special_section const
3160   v850_special_sections_t[]=
3161 {
3162   { ".tdata",            6, -2, SHT_PROGBITS,     (SHF_ALLOC + SHF_WRITE
3163                                                    + SHF_V850_EPREL) },
3164   { ".tbss",             5, -2, SHT_NOBITS,       (SHF_ALLOC + SHF_WRITE
3165                                                    + SHF_V850_EPREL) },
3166   { ".tcommon",          8, -2, SHT_V850_TCOMMON, (SHF_ALLOC + SHF_WRITE
3167                                                    + SHF_V850_R0REL) },
3168   { NULL,               0,   0, 0,                0 }
3169 };
3170
3171 static struct bfd_elf_special_section const
3172   v850_special_sections_z[]=
3173 {
3174   { ".zdata",            6, -2, SHT_PROGBITS,     (SHF_ALLOC + SHF_WRITE
3175                                                    + SHF_V850_R0REL) },
3176   { ".zbss",             5, -2, SHT_NOBITS,       (SHF_ALLOC + SHF_WRITE
3177                                                    + SHF_V850_R0REL) },
3178   { ".zcommon",          8, -2, SHT_V850_ZCOMMON, (SHF_ALLOC + SHF_WRITE
3179                                                    + SHF_V850_R0REL) },
3180   { NULL,        0, 0, 0,            0 }
3181 };
3182
3183 static struct bfd_elf_special_section const *
3184   v850_elf_special_sections[27] =
3185 {
3186   NULL,                         /* 'a' */
3187   NULL,                         /* 'b' */
3188   v850_special_sections_c,      /* 'c' */
3189   NULL,                         /* 'd' */
3190   NULL,                         /* 'e' */
3191   NULL,                         /* 'f' */
3192   NULL,                         /* 'g' */
3193   NULL,                         /* 'h' */
3194   NULL,                         /* 'i' */
3195   NULL,                         /* 'j' */
3196   NULL,                         /* 'k' */
3197   NULL,                         /* 'l' */
3198   NULL,                         /* 'm' */
3199   NULL,                         /* 'n' */
3200   NULL,                         /* 'o' */
3201   NULL,                         /* 'p' */
3202   NULL,                         /* 'q' */
3203   v850_special_sections_r,      /* 'r' */
3204   v850_special_sections_s,      /* 's' */
3205   v850_special_sections_t,      /* 't' */
3206   NULL,                         /* 'u' */
3207   NULL,                         /* 'v' */
3208   NULL,                         /* 'w' */
3209   NULL,                         /* 'x' */
3210   NULL,                         /* 'y' */
3211   v850_special_sections_z,      /* 'z' */
3212   NULL                          /* other */
3213 };
3214 \f
3215 #define TARGET_LITTLE_SYM                       bfd_elf32_v850_vec
3216 #define TARGET_LITTLE_NAME                      "elf32-v850"
3217 #define ELF_ARCH                                bfd_arch_v850
3218 #define ELF_MACHINE_CODE                        EM_V850
3219 #define ELF_MACHINE_ALT1                        EM_CYGNUS_V850
3220 #define ELF_MAXPAGESIZE                         0x1000
3221
3222 #define elf_info_to_howto                       v850_elf_info_to_howto_rela
3223 #define elf_info_to_howto_rel                   v850_elf_info_to_howto_rel
3224
3225 #define elf_backend_check_relocs                v850_elf_check_relocs
3226 #define elf_backend_relocate_section            v850_elf_relocate_section
3227 #define elf_backend_object_p                    v850_elf_object_p
3228 #define elf_backend_final_write_processing      v850_elf_final_write_processing
3229 #define elf_backend_section_from_bfd_section    v850_elf_section_from_bfd_section
3230 #define elf_backend_symbol_processing           v850_elf_symbol_processing
3231 #define elf_backend_add_symbol_hook             v850_elf_add_symbol_hook
3232 #define elf_backend_link_output_symbol_hook     v850_elf_link_output_symbol_hook
3233 #define elf_backend_section_from_shdr           v850_elf_section_from_shdr
3234 #define elf_backend_fake_sections               v850_elf_fake_sections
3235 #define elf_backend_gc_mark_hook                v850_elf_gc_mark_hook
3236 #define elf_backend_gc_sweep_hook               v850_elf_gc_sweep_hook
3237 #define elf_backend_special_sections            v850_elf_special_sections
3238
3239 #define elf_backend_can_gc_sections 1
3240 #define elf_backend_rela_normal 1
3241
3242 #define bfd_elf32_bfd_is_local_label_name       v850_elf_is_local_label_name
3243 #define bfd_elf32_bfd_reloc_type_lookup         v850_elf_reloc_type_lookup
3244 #define bfd_elf32_bfd_merge_private_bfd_data    v850_elf_merge_private_bfd_data
3245 #define bfd_elf32_bfd_set_private_flags         v850_elf_set_private_flags
3246 #define bfd_elf32_bfd_print_private_bfd_data    v850_elf_print_private_bfd_data
3247 #define bfd_elf32_bfd_relax_section             v850_elf_relax_section
3248
3249 #define elf_symbol_leading_char                 '_'
3250
3251 #include "elf32-target.h"