bfd/elf32-v850.c

   1 /* V850-specific support for 32-bit ELF
   2    Copyright (C) 1996, 1997 Free Software Foundation, Inc.
   3
   4 This file is part of BFD, the Binary File Descriptor library.
   5
   6 This program is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2 of the License, or
   9 (at your option) any later version.
  10
  11 This program is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with this program; if not, write to the Free Software
  18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  19
  20
  21
  22 /* XXX FIXME: This code is littered with 32bit int, 16bit short, 8bit char
  23    dependencies.  As is the gas & simulator code or the v850.  */
  24
  25
  26 #include "bfd.h"
  27 #include "sysdep.h"
  28 #include "bfdlink.h"
  29 #include "libbfd.h"
  30 #include "elf-bfd.h"
  31 #include "elf/v850.h"
  32
  33 static reloc_howto_type *v850_elf_reloc_type_lookup
  34   PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
  35 static void v850_elf_info_to_howto_rel
  36   PARAMS ((bfd *, arelent *, Elf32_Internal_Rel *));
  37 static bfd_reloc_status_type v850_elf_reloc
  38   PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
  39 static boolean v850_elf_is_local_label_name PARAMS ((bfd *, const char *));
  40 static boolean v850_elf_relocate_section PARAMS((bfd *,
  41                                                  struct bfd_link_info *,
  42                                                  bfd *,
  43                                                  asection *,
  44                                                  bfd_byte *,
  45                                                  Elf_Internal_Rela *,
  46                                                  Elf_Internal_Sym *,
  47                                                  asection **));
  48 /* Try to minimize the amount of space occupied by relocation tables
  49    on the ROM (not that the ROM won't be swamped by other ELF overhead).  */
  50 #define USE_REL
  51
  52 /* Note: It is REQUIRED that the 'type' value of each entry in this array
  53    match the index of the entry in the array.  */
  54 static reloc_howto_type v850_elf_howto_table[] =
  55 {
  56   /* This reloc does nothing.  */
  57   HOWTO (R_V850_NONE,                   /* type */
  58          0,                             /* rightshift */
  59          2,                             /* size (0 = byte, 1 = short, 2 = long) */
  60          32,                            /* bitsize */
  61          false,                         /* pc_relative */
  62          0,                             /* bitpos */
  63          complain_overflow_bitfield,    /* complain_on_overflow */
  64          bfd_elf_generic_reloc,         /* special_function */
  65          "R_V850_NONE",                 /* name */
  66          false,                         /* partial_inplace */
  67          0,                             /* src_mask */
  68          0,                             /* dst_mask */
  69          false),                        /* pcrel_offset */
  70
  71   /* A PC relative 9 bit branch. */
  72   HOWTO (R_V850_9_PCREL,                /* type */
  73          2,                             /* rightshift */
  74          2,                             /* size (0 = byte, 1 = short, 2 = long) */
  75          26,                            /* bitsize */
  76          true,                          /* pc_relative */
  77          0,                             /* bitpos */
  78          complain_overflow_bitfield,    /* complain_on_overflow */
  79          v850_elf_reloc,                /* special_function */
  80          "R_V850_9_PCREL",              /* name */
  81          false,                         /* partial_inplace */
  82          0x00ffffff,                    /* src_mask */
  83          0x00ffffff,                    /* dst_mask */
  84          true),                         /* pcrel_offset */
  85
  86   /* A PC relative 22 bit branch. */
  87   HOWTO (R_V850_22_PCREL,               /* type */
  88          2,                             /* rightshift */
  89          2,                             /* size (0 = byte, 1 = short, 2 = long) */
  90          22,                            /* bitsize */
  91          true,                          /* pc_relative */
  92          7,                             /* bitpos */
  93          complain_overflow_signed,      /* complain_on_overflow */
  94          v850_elf_reloc,                /* special_function */
  95          "R_V850_22_PCREL",             /* name */
  96          false,                         /* partial_inplace */
  97          0x07ffff80,                    /* src_mask */
  98          0x07ffff80,                    /* dst_mask */
  99          true),                         /* pcrel_offset */
 100
 101   /* High 16 bits of symbol value.  */
 102   HOWTO (R_V850_HI16_S,                 /* type */
 103          0,                             /* rightshift */
 104          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 105          16,                            /* bitsize */
 106          false,                         /* pc_relative */
 107          0,                             /* bitpos */
 108          complain_overflow_dont,        /* complain_on_overflow */
 109          v850_elf_reloc,                /* special_function */
 110          "R_V850_HI16_S",               /* name */
 111          true,                          /* partial_inplace */
 112          0xffff,                        /* src_mask */
 113          0xffff,                        /* dst_mask */
 114          false),                        /* pcrel_offset */
 115
 116   /* High 16 bits of symbol value.  */
 117   HOWTO (R_V850_HI16,                   /* type */
 118          0,                             /* rightshift */
 119          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 120          16,                            /* bitsize */
 121          false,                         /* pc_relative */
 122          0,                             /* bitpos */
 123          complain_overflow_dont,        /* complain_on_overflow */
 124          v850_elf_reloc,                /* special_function */
 125          "R_V850_HI16",                 /* name */
 126          true,                          /* partial_inplace */
 127          0xffff,                        /* src_mask */
 128          0xffff,                        /* dst_mask */
 129          false),                        /* pcrel_offset */
 130
 131   /* Low 16 bits of symbol value.  */
 132   HOWTO (R_V850_LO16,                   /* type */
 133          0,                             /* rightshift */
 134          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 135          16,                            /* bitsize */
 136          false,                         /* pc_relative */
 137          0,                             /* bitpos */
 138          complain_overflow_dont,        /* complain_on_overflow */
 139          v850_elf_reloc,                /* special_function */
 140          "R_V850_LO16",                 /* name */
 141          true,                          /* partial_inplace */
 142          0xffff,                        /* src_mask */
 143          0xffff,                        /* dst_mask */
 144          false),                        /* pcrel_offset */
 145
 146   /* Simple 32bit reloc.  */
 147   HOWTO (R_V850_32,                     /* type */
 148          0,                             /* rightshift */
 149          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 150          32,                            /* bitsize */
 151          false,                         /* pc_relative */
 152          0,                             /* bitpos */
 153          complain_overflow_dont,        /* complain_on_overflow */
 154          bfd_elf_generic_reloc,         /* special_function */
 155          "R_V850_32",                   /* name */
 156          true,                          /* partial_inplace */
 157          0xffffffff,                    /* src_mask */
 158          0xffffffff,                    /* dst_mask */
 159          false),                        /* pcrel_offset */
 160
 161   /* Simple 16bit reloc.  */
 162   HOWTO (R_V850_16,                     /* type */
 163          0,                             /* rightshift */
 164          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 165          16,                            /* bitsize */
 166          false,                         /* pc_relative */
 167          0,                             /* bitpos */
 168          complain_overflow_dont,        /* complain_on_overflow */
 169          bfd_elf_generic_reloc,         /* special_function */
 170          "R_V850_16",                   /* name */
 171          true,                          /* partial_inplace */
 172          0xffff,                        /* src_mask */
 173          0xffff,                        /* dst_mask */
 174          false),                        /* pcrel_offset */
 175
 176   /* Simple 8bit reloc.  */
 177   HOWTO (R_V850_8,                      /* type */
 178          0,                             /* rightshift */
 179          0,                             /* size (0 = byte, 1 = short, 2 = long) */
 180          8,                             /* bitsize */
 181          false,                         /* pc_relative */
 182          0,                             /* bitpos */
 183          complain_overflow_dont,        /* complain_on_overflow */
 184          bfd_elf_generic_reloc,         /* special_function */
 185          "R_V850_8",                    /* name */
 186          true,                          /* partial_inplace */
 187          0xff,                          /* src_mask */
 188          0xff,                          /* dst_mask */
 189          false),                        /* pcrel_offset */
 190
 191   /* 16 bit offset from the short data area pointer.  */
 192   HOWTO (R_V850_SDA_16_16_OFFSET,       /* type */
 193          0,                             /* rightshift */
 194          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 195          16,                            /* bitsize */
 196          false,                         /* pc_relative */
 197          0,                             /* bitpos */
 198          complain_overflow_dont,        /* complain_on_overflow */
 199          v850_elf_reloc,                /* special_function */
 200          "R_V850_SDA_16_16_OFFSET",     /* name */
 201          false,                         /* partial_inplace */
 202          0xffff,                        /* src_mask */
 203          0xffff,                        /* dst_mask */
 204          false),                        /* pcrel_offset */
 205
 206   /* 15 bit offset from the short data area pointer.  */
 207   HOWTO (R_V850_SDA_15_16_OFFSET,       /* type */
 208          1,                             /* rightshift */
 209          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 210          16,                            /* bitsize */
 211          false,                         /* pc_relative */
 212          1,                             /* bitpos */
 213          complain_overflow_dont,        /* complain_on_overflow */
 214          v850_elf_reloc,                /* special_function */
 215          "R_V850_SDA_15_16_OFFSET",     /* name */
 216          false,                         /* partial_inplace */
 217          0xfffe,                        /* src_mask */
 218          0xfffe,                        /* dst_mask */
 219          false),                        /* pcrel_offset */
 220
 221   /* 16 bit offset from the zero data area pointer.  */
 222   HOWTO (R_V850_ZDA_16_16_OFFSET,       /* type */
 223          0,                             /* rightshift */
 224          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 225          16,                            /* bitsize */
 226          false,                         /* pc_relative */
 227          0,                             /* bitpos */
 228          complain_overflow_dont,        /* complain_on_overflow */
 229          v850_elf_reloc,                /* special_function */
 230          "R_V850_ZDA_16_16_OFFSET",     /* name */
 231          false,                         /* partial_inplace */
 232          0xffff,                        /* src_mask */
 233          0xffff,                        /* dst_mask */
 234          false),                        /* pcrel_offset */
 235
 236   /* 15 bit offset from the zero data area pointer.  */
 237   HOWTO (R_V850_ZDA_15_16_OFFSET,       /* type */
 238          1,                             /* rightshift */
 239          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 240          16,                            /* bitsize */
 241          false,                         /* pc_relative */
 242          1,                             /* bitpos */
 243          complain_overflow_dont,        /* complain_on_overflow */
 244          v850_elf_reloc,                /* special_function */
 245          "R_V850_ZDA_15_16_OFFSET",     /* name */
 246          false,                         /* partial_inplace */
 247          0xfffe,                        /* src_mask */
 248          0xfffe,                        /* dst_mask */
 249          false),                        /* pcrel_offset */
 250
 251   /* 6 bit offset from the tiny data area pointer.  */
 252   HOWTO (R_V850_TDA_6_8_OFFSET,         /* type */
 253          2,                             /* rightshift */
 254          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 255          8,                             /* bitsize */
 256          false,                         /* pc_relative */
 257          1,                             /* bitpos */
 258          complain_overflow_dont,        /* complain_on_overflow */
 259          v850_elf_reloc,                /* special_function */
 260          "R_V850_TDA_6_8_OFFSET",       /* name */
 261          false,                         /* partial_inplace */
 262          0x7e,                          /* src_mask */
 263          0x7e,                          /* dst_mask */
 264          false),                        /* pcrel_offset */
 265
 266   /* 8 bit offset from the tiny data area pointer.  */
 267   HOWTO (R_V850_TDA_7_8_OFFSET,         /* type */
 268          1,                             /* rightshift */
 269          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 270          8,                             /* bitsize */
 271          false,                         /* pc_relative */
 272          0,                             /* bitpos */
 273          complain_overflow_dont,        /* complain_on_overflow */
 274          v850_elf_reloc,                /* special_function */
 275          "R_V850_TDA_7_8_OFFSET",       /* name */
 276          false,                         /* partial_inplace */
 277          0x7f,                          /* src_mask */
 278          0x7f,                          /* dst_mask */
 279          false),                        /* pcrel_offset */
 280
 281   /* 7 bit offset from the tiny data area pointer.  */
 282   HOWTO (R_V850_TDA_7_7_OFFSET,         /* type */
 283          0,                             /* rightshift */
 284          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 285          7,                             /* bitsize */
 286          false,                         /* pc_relative */
 287          0,                             /* bitpos */
 288          complain_overflow_dont,        /* complain_on_overflow */
 289          v850_elf_reloc,                /* special_function */
 290          "R_V850_TDA_7_7_OFFSET",       /* name */
 291          false,                         /* partial_inplace */
 292          0x7f,                          /* src_mask */
 293          0x7f,                          /* dst_mask */
 294          false),                        /* pcrel_offset */
 295
 296   /* 16 bit offset from the tiny data area pointer!  */
 297   HOWTO (R_V850_TDA_16_16_OFFSET,       /* type */
 298          0,                             /* rightshift */
 299          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 300          16,                            /* bitsize */
 301          false,                         /* pc_relative */
 302          0,                             /* bitpos */
 303          complain_overflow_dont,        /* complain_on_overflow */
 304          v850_elf_reloc,                /* special_function */
 305          "R_V850_TDA_16_16_OFFSET",     /* name */
 306          false,                         /* partial_inplace */
 307          0xffff,                        /* src_mask */
 308          0xfff,                         /* dst_mask */
 309          false),                        /* pcrel_offset */
 310
 311 /* start-sanitize-v850e */
 312
 313   /* 5 bit offset from the tiny data area pointer.  */
 314   HOWTO (R_V850_TDA_4_5_OFFSET,         /* type */
 315          1,                             /* rightshift */
 316          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 317          5,                             /* bitsize */
 318          false,                         /* pc_relative */
 319          0,                             /* bitpos */
 320          complain_overflow_dont,        /* complain_on_overflow */
 321          v850_elf_reloc,                /* special_function */
 322          "R_V850_TDA_4_5_OFFSET",       /* name */
 323          false,                         /* partial_inplace */
 324          0x0f,                          /* src_mask */
 325          0x0f,                          /* dst_mask */
 326          false),                        /* pcrel_offset */
 327
 328   /* 4 bit offset from the tiny data area pointer.  */
 329   HOWTO (R_V850_TDA_4_4_OFFSET,         /* type */
 330          0,                             /* rightshift */
 331          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 332          4,                             /* bitsize */
 333          false,                         /* pc_relative */
 334          0,                             /* bitpos */
 335          complain_overflow_dont,        /* complain_on_overflow */
 336          v850_elf_reloc,                /* special_function */
 337          "R_V850_TDA_4_4_OFFSET",       /* name */
 338          false,                         /* partial_inplace */
 339          0x0f,                          /* src_mask */
 340          0x0f,                          /* dst_mask */
 341          false),                        /* pcrel_offset */
 342
 343   /* 16 bit offset from the short data area pointer.  */
 344   HOWTO (R_V850_SDA_16_16_SPLIT_OFFSET, /* type */
 345          0,                             /* rightshift */
 346          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 347          16,                            /* bitsize */
 348          false,                         /* pc_relative */
 349          0,                             /* bitpos */
 350          complain_overflow_dont,        /* complain_on_overflow */
 351          v850_elf_reloc,                /* special_function */
 352          "R_V850_SDA_16_16_SPLIT_OFFSET",/* name */
 353          false,                         /* partial_inplace */
 354          0xfffe0020,                    /* src_mask */
 355          0xfffe0020,                    /* dst_mask */
 356          false),                        /* pcrel_offset */
 357
 358   /* 16 bit offset from the zero data area pointer.  */
 359   HOWTO (R_V850_ZDA_16_16_SPLIT_OFFSET, /* type */
 360          0,                             /* rightshift */
 361          2,                             /* size (0 = byte, 1 = short, 2 = long) */
 362          16,                            /* bitsize */
 363          false,                         /* pc_relative */
 364          0,                             /* bitpos */
 365          complain_overflow_dont,        /* complain_on_overflow */
 366          v850_elf_reloc,                /* special_function */
 367          "R_V850_ZDA_16_16_SPLIT_OFFSET",/* name */
 368          false,                         /* partial_inplace */
 369          0xfffe0020,                    /* src_mask */
 370          0xfffe0020,                    /* dst_mask */
 371          false),                        /* pcrel_offset */
 372
 373   /* 6 bit offset from the call table base pointer.  */
 374   HOWTO (R_V850_CALLT_6_7_OFFSET,       /* type */
 375          0,                             /* rightshift */
 376          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 377          7,                             /* bitsize */
 378          false,                         /* pc_relative */
 379          0,                             /* bitpos */
 380          complain_overflow_dont,        /* complain_on_overflow */
 381          v850_elf_reloc,                /* special_function */
 382          "R_V850_CALLT_6_7_OFFSET",     /* name */
 383          false,                         /* partial_inplace */
 384          0x3f,                          /* src_mask */
 385          0x3f,                          /* dst_mask */
 386          false),                        /* pcrel_offset */
 387
 388   /* 16 bit offset from the call table base pointer.  */
 389   HOWTO (R_V850_CALLT_16_16_OFFSET,     /* type */
 390          0,                             /* rightshift */
 391          1,                             /* size (0 = byte, 1 = short, 2 = long) */
 392          16,                            /* bitsize */
 393          false,                         /* pc_relative */
 394          0,                             /* bitpos */
 395          complain_overflow_dont,        /* complain_on_overflow */
 396          v850_elf_reloc,                /* special_function */
 397          "R_V850_CALLT_16_16_OFFSET",   /* name */
 398          false,                         /* partial_inplace */
 399          0xffff,                        /* src_mask */
 400          0xffff,                        /* dst_mask */
 401          false),                        /* pcrel_offset */
 402
 403 /* end-sanitize-v850e */
 404 };
 405
 406 /* Map BFD reloc types to V850 ELF reloc types.  */
 407
 408 struct v850_elf_reloc_map
 409 {
 410   unsigned char bfd_reloc_val;
 411   unsigned char elf_reloc_val;
 412 };
 413
 414 static const struct v850_elf_reloc_map v850_elf_reloc_map[] =
 415 {
 416   { BFD_RELOC_NONE,             R_V850_NONE },
 417   { BFD_RELOC_V850_9_PCREL,     R_V850_9_PCREL },
 418   { BFD_RELOC_V850_22_PCREL,    R_V850_22_PCREL },
 419   { BFD_RELOC_HI16_S,           R_V850_HI16_S },
 420   { BFD_RELOC_HI16,             R_V850_HI16 },
 421   { BFD_RELOC_LO16,             R_V850_LO16 },
 422   { BFD_RELOC_32,               R_V850_32 },
 423   { BFD_RELOC_16,               R_V850_16 },
 424   { BFD_RELOC_8,                R_V850_8 },
 425   { BFD_RELOC_V850_SDA_16_16_OFFSET, R_V850_SDA_16_16_OFFSET },
 426   { BFD_RELOC_V850_SDA_15_16_OFFSET, R_V850_SDA_15_16_OFFSET },
 427   { BFD_RELOC_V850_ZDA_16_16_OFFSET, R_V850_ZDA_16_16_OFFSET },
 428   { BFD_RELOC_V850_ZDA_15_16_OFFSET, R_V850_ZDA_15_16_OFFSET },
 429   { BFD_RELOC_V850_TDA_6_8_OFFSET,   R_V850_TDA_6_8_OFFSET   },
 430   { BFD_RELOC_V850_TDA_7_8_OFFSET,   R_V850_TDA_7_8_OFFSET   },
 431   { BFD_RELOC_V850_TDA_7_7_OFFSET,   R_V850_TDA_7_7_OFFSET   },
 432   { BFD_RELOC_V850_TDA_16_16_OFFSET, R_V850_TDA_16_16_OFFSET },
 433 /* start-sanitize-v850e */
 434   { BFD_RELOC_V850_TDA_4_5_OFFSET,         R_V850_TDA_4_5_OFFSET         },
 435   { BFD_RELOC_V850_TDA_4_4_OFFSET,         R_V850_TDA_4_4_OFFSET         },
 436   { BFD_RELOC_V850_SDA_16_16_SPLIT_OFFSET, R_V850_SDA_16_16_SPLIT_OFFSET },
 437   { BFD_RELOC_V850_ZDA_16_16_SPLIT_OFFSET, R_V850_ZDA_16_16_SPLIT_OFFSET },
 438   { BFD_RELOC_V850_CALLT_6_7_OFFSET,       R_V850_CALLT_6_7_OFFSET       },
 439   { BFD_RELOC_V850_CALLT_16_16_OFFSET,     R_V850_CALLT_16_16_OFFSET     },
 440 /* end-sanitize-v850e */
 441 };
 442
 443 \f
 444 /* Map a bfd relocation into the appropriate howto structure */
 445 static reloc_howto_type *
 446 v850_elf_reloc_type_lookup (abfd, code)
 447      bfd *                     abfd;
 448      bfd_reloc_code_real_type  code;
 449 {
 450   unsigned int i;
 451
 452   for (i = 0;
 453        i < sizeof (v850_elf_reloc_map) / sizeof (struct v850_elf_reloc_map);
 454        i++)
 455     {
 456       if (v850_elf_reloc_map[i].bfd_reloc_val == code)
 457         {
 458           BFD_ASSERT (v850_elf_howto_table[v850_elf_reloc_map[i].elf_reloc_val].type == v850_elf_reloc_map[i].elf_reloc_val);
 459
 460           return & v850_elf_howto_table[v850_elf_reloc_map[i].elf_reloc_val];
 461         }
 462     }
 463
 464   return NULL;
 465 }
 466
 467 \f
 468 /* Set the howto pointer for an V850 ELF reloc.  */
 469 static void
 470 v850_elf_info_to_howto_rel (abfd, cache_ptr, dst)
 471      bfd *                 abfd;
 472      arelent *             cache_ptr;
 473      Elf32_Internal_Rel *  dst;
 474 {
 475   unsigned int r_type;
 476
 477   r_type = ELF32_R_TYPE (dst->r_info);
 478   BFD_ASSERT (r_type < (unsigned int) R_V850_max);
 479   cache_ptr->howto = &v850_elf_howto_table[r_type];
 480 }
 481
 482 \f
 483 /* Look through the relocs for a section during the first phase, and
 484    allocate space in the global offset table or procedure linkage
 485    table.  */
 486
 487 static boolean
 488 v850_elf_check_relocs (abfd, info, sec, relocs)
 489      bfd *                      abfd;
 490      struct bfd_link_info *     info;
 491      asection *                 sec;
 492      const Elf_Internal_Rela *  relocs;
 493 {
 494   boolean ret = true;
 495   bfd *dynobj;
 496   Elf_Internal_Shdr *symtab_hdr;
 497   struct elf_link_hash_entry **sym_hashes;
 498   const Elf_Internal_Rela *rel;
 499   const Elf_Internal_Rela *rel_end;
 500   asection *sreloc;
 501   enum reloc_type r_type;
 502   int other = 0;
 503   const char *common = (const char *)0;
 504
 505   if (info->relocateable)
 506     return true;
 507
 508 #ifdef DEBUG
 509   fprintf (stderr, "v850_elf_check_relocs called for section %s in %s\n",
 510            bfd_get_section_name (abfd, sec),
 511            bfd_get_filename (abfd));
 512 #endif
 513
 514   dynobj = elf_hash_table (info)->dynobj;
 515   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
 516   sym_hashes = elf_sym_hashes (abfd);
 517   sreloc = NULL;
 518
 519   rel_end = relocs + sec->reloc_count;
 520   for (rel = relocs; rel < rel_end; rel++)
 521     {
 522       unsigned long r_symndx;
 523       struct elf_link_hash_entry *h;
 524
 525       r_symndx = ELF32_R_SYM (rel->r_info);
 526       if (r_symndx < symtab_hdr->sh_info)
 527         h = NULL;
 528       else
 529         h = sym_hashes[r_symndx - symtab_hdr->sh_info];
 530
 531       r_type = (enum reloc_type) ELF32_R_TYPE (rel->r_info);
 532       switch (r_type)
 533         {
 534         default:
 535         case R_V850_NONE:
 536         case R_V850_9_PCREL:
 537         case R_V850_22_PCREL:
 538         case R_V850_HI16_S:
 539         case R_V850_HI16:
 540         case R_V850_LO16:
 541         case R_V850_32:
 542         case R_V850_16:
 543         case R_V850_8:
 544 /* start-sanitize-v850e */
 545         case R_V850_CALLT_6_7_OFFSET:
 546         case R_V850_CALLT_16_16_OFFSET:
 547 /* end-sanitize-v850e */
 548           break;
 549
 550 /* start-sanitize-v850e */
 551         case R_V850_SDA_16_16_SPLIT_OFFSET:
 552 /* end-sanitize-v850e */
 553         case R_V850_SDA_16_16_OFFSET:
 554         case R_V850_SDA_15_16_OFFSET:
 555           other = V850_OTHER_SDA;
 556           common = ".scommon";
 557           goto small_data_common;
 558
 559 /* start-sanitize-v850e */
 560         case R_V850_ZDA_16_16_SPLIT_OFFSET:
 561 /* end-sanitize-v850e */
 562         case R_V850_ZDA_16_16_OFFSET:
 563         case R_V850_ZDA_15_16_OFFSET:
 564           other = V850_OTHER_ZDA;
 565           common = ".zcommon";
 566           goto small_data_common;
 567
 568 /* start-sanitize-v850e */
 569         case R_V850_TDA_4_5_OFFSET:
 570         case R_V850_TDA_4_4_OFFSET:
 571 /* end-sanitize-v850e */
 572         case R_V850_TDA_6_8_OFFSET:
 573         case R_V850_TDA_7_8_OFFSET:
 574         case R_V850_TDA_7_7_OFFSET:
 575         case R_V850_TDA_16_16_OFFSET:
 576           other = V850_OTHER_TDA;
 577           common = ".tcommon";
 578           /* fall through */
 579
 580 #define V850_OTHER_MASK (V850_OTHER_TDA | V850_OTHER_SDA | V850_OTHER_ZDA)
 581
 582         small_data_common:
 583           if (h)
 584             {
 585               h->other |= other;        /* flag which type of relocation was used */
 586               if ((h->other & V850_OTHER_MASK) != (other & V850_OTHER_MASK)
 587                   && (h->other & V850_OTHER_ERROR) == 0)
 588                 {
 589                   const char * msg;
 590                   static char  buff[100]; /* XXX */
 591
 592                   switch (h->other & V850_OTHER_MASK)
 593                     {
 594                     default:
 595                       msg = "cannot occupy in multiple small data regions";
 596                       break;
 597                     case V850_OTHER_SDA | V850_OTHER_ZDA | V850_OTHER_TDA:
 598                       msg = "can only be in one of the small, zero, and tiny data regions";
 599                       break;
 600                     case V850_OTHER_SDA | V850_OTHER_ZDA:
 601                       msg = "cannot be in both small and zero data regions simultaneously";
 602                       break;
 603                     case V850_OTHER_SDA | V850_OTHER_TDA:
 604                       msg = "cannot be in both small and tiny data regions simultaneously";
 605                       break;
 606                     case V850_OTHER_ZDA | V850_OTHER_TDA:
 607                       msg = "cannot be in both zero and tiny data regions simultaneously";
 608                       break;
 609                     }
 610
 611                   sprintf (buff, "Variable '%s' %s", h->root.root.string, msg );
 612                   info->callbacks->warning (info, buff, h->root.root.string,
 613                                             abfd, h->root.u.def.section, 0);
 614
 615                   bfd_set_error (bfd_error_bad_value);
 616                   h->other |= V850_OTHER_ERROR;
 617                   ret = false;
 618                 }
 619             }
 620
 621           if (h && h->root.type == bfd_link_hash_common
 622               && h->root.u.c.p
 623               && !strcmp (bfd_get_section_name (abfd, h->root.u.c.p->section), "COMMON"))
 624             {
 625               asection *section = h->root.u.c.p->section = bfd_make_section_old_way (abfd, common);
 626               section->flags |= SEC_IS_COMMON;
 627             }
 628
 629 #ifdef DEBUG
 630           fprintf (stderr, "v850_elf_check_relocs, found %s relocation for %s%s\n",
 631                    v850_elf_howto_table[ (int)r_type ].name,
 632                    (h && h->root.root.string) ? h->root.root.string : "<unknown>",
 633                    (h->root.type == bfd_link_hash_common) ? ", symbol is common" : "");
 634 #endif
 635           break;
 636         }
 637     }
 638
 639   return ret;
 640 }
 641
 642 \f
 643 /* Insert the addend into the instruction.  */
 644 static bfd_reloc_status_type
 645 v850_elf_reloc (abfd, reloc, symbol, data, isection, obfd, err)
 646      bfd *       abfd;
 647      arelent *   reloc;
 648      asymbol *   symbol;
 649      PTR         data;
 650      asection *  isection;
 651      bfd *       obfd;
 652      char **     err;
 653 {
 654   long relocation;
 655   long insn;
 656
 657
 658   /* If there is an output BFD,
 659      and the symbol is not a section name (which is only defined at final link time),
 660      and either we are not putting the addend into the instruction
 661          or the addend is zero, so there is nothing to add into the instruction
 662      then just fixup the address and return.  */
 663   if (obfd != (bfd *) NULL
 664       && (symbol->flags & BSF_SECTION_SYM) == 0
 665       && (! reloc->howto->partial_inplace
 666           || reloc->addend == 0))
 667     {
 668       reloc->address += isection->output_offset;
 669       return bfd_reloc_ok;
 670     }
 671 #if 0
 672   else if (obfd != NULL)
 673     {
 674       return bfd_reloc_continue;
 675     }
 676 #endif
 677
 678   /* Catch relocs involving undefined symbols.  */
 679   if (bfd_is_und_section (symbol->section)
 680       && (symbol->flags & BSF_WEAK) == 0
 681       && obfd == NULL)
 682     return bfd_reloc_undefined;
 683
 684   /* We handle final linking of some relocs ourselves.  */
 685
 686   /* Is the address of the relocation really within the section?  */
 687   if (reloc->address > isection->_cooked_size)
 688     return bfd_reloc_outofrange;
 689
 690   /* Work out which section the relocation is targetted at and the
 691      initial relocation command value.  */
 692
 693   /* Get symbol value.  (Common symbols are special.)  */
 694   if (bfd_is_com_section (symbol->section))
 695     relocation = 0;
 696   else
 697     relocation = symbol->value;
 698
 699   /* Convert input-section-relative symbol value to absolute + addend.  */
 700   relocation += symbol->section->output_section->vma;
 701   relocation += symbol->section->output_offset;
 702   relocation += reloc->addend;
 703
 704   if (reloc->howto->pc_relative == true)
 705     {
 706       /* Here the variable relocation holds the final address of the
 707          symbol we are relocating against, plus any addend.  */
 708       relocation -= isection->output_section->vma + isection->output_offset;
 709
 710       /* Deal with pcrel_offset */
 711       relocation -= reloc->address;
 712     }
 713
 714   /* I've got no clue... */
 715   reloc->addend = 0;
 716
 717   switch (reloc->howto->type)
 718     {
 719     default:
 720       /* fprintf (stderr, "reloc type %d not SUPPORTED\n", reloc->howto->type ); */
 721       return bfd_reloc_notsupported;
 722
 723     case R_V850_22_PCREL:
 724       if (relocation > 0x1fffff || relocation < -0x200000)
 725         return bfd_reloc_overflow;
 726
 727       if ((relocation % 2) != 0)
 728         return bfd_reloc_dangerous;
 729
 730       insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc->address);
 731       insn &= ~0xfffe003f;
 732       insn |= (((relocation & 0xfffe) << 16)
 733                | ((relocation & 0x3f0000) >> 16));
 734       bfd_put_32 (abfd, insn, (bfd_byte *)data + reloc->address);
 735       return bfd_reloc_ok;
 736
 737     case R_V850_9_PCREL:
 738       if (relocation > 0xff || relocation < -0x100)
 739         return bfd_reloc_overflow;
 740
 741       if ((relocation % 2) != 0)
 742         return bfd_reloc_dangerous;
 743
 744       insn = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 745       insn &= ~ 0xf870;
 746       insn |= ((relocation & 0x1f0) << 7) | ((relocation & 0x0e) << 3);
 747       bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
 748       return bfd_reloc_ok;
 749
 750     case R_V850_HI16_S:
 751       relocation += bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 752       relocation = (relocation >> 16) + ((relocation & 0x8000) != 0);
 753       bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
 754       return bfd_reloc_ok;
 755
 756     case R_V850_HI16:
 757       relocation += bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 758       relocation = (relocation >> 16);
 759       bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
 760       return bfd_reloc_ok;
 761
 762     case R_V850_LO16:
 763       relocation += (short)bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 764       /* Do not complain if value has top bit set, as this has been anticipated.  */
 765       bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
 766       return bfd_reloc_ok;
 767
 768     case R_V850_16:
 769       relocation += (short)bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 770       /* drop through */
 771
 772     case R_V850_SDA_16_16_OFFSET:
 773     case R_V850_ZDA_16_16_OFFSET:
 774     case R_V850_TDA_16_16_OFFSET:
 775       if ((long)relocation > 0x7fff || (long)relocation < -0x8000)
 776         return bfd_reloc_overflow;
 777       bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
 778       return bfd_reloc_ok;
 779
 780     case R_V850_SDA_15_16_OFFSET:
 781     case R_V850_ZDA_15_16_OFFSET:
 782       if ((long)relocation > 0x7ffe || (long)relocation < -0x8000)
 783         return bfd_reloc_overflow;
 784
 785       if (relocation & 1)
 786         return bfd_reloc_dangerous;
 787
 788       insn  = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 789       insn &= 1;
 790       insn |= (relocation >> 1) & ~1;
 791
 792       bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
 793       return bfd_reloc_ok;
 794
 795     case R_V850_TDA_6_8_OFFSET:
 796       if ((long) relocation > 0xfc || (long) relocation < 0)
 797         return bfd_reloc_overflow;
 798
 799       if (relocation & 3)
 800         return bfd_reloc_dangerous;
 801
 802       insn  = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 803       insn &= 0xff81;
 804       insn |= (relocation >> 1);
 805
 806       bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
 807       return bfd_reloc_ok;
 808
 809     case R_V850_TDA_7_8_OFFSET:
 810       if ((long) relocation > 0xfe || (long) relocation < 0)
 811         return bfd_reloc_overflow;
 812
 813       if (relocation & 1)
 814         return bfd_reloc_dangerous;
 815
 816       insn  = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 817       insn &= 0xff80;
 818       insn |= (relocation >> 1);
 819
 820       bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
 821       return bfd_reloc_ok;
 822
 823     case R_V850_TDA_7_7_OFFSET:
 824       if ((long) relocation > 0x7f || (long) relocation < 0)
 825         return bfd_reloc_overflow;
 826
 827       insn  = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 828       insn &= 0xff80;
 829       insn |= relocation;
 830
 831       bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
 832       return bfd_reloc_ok;
 833
 834 /* start-sanitize-v850e */
 835     case R_V850_TDA_4_5_OFFSET:
 836       if ((long) relocation > 0x1e || (long) relocation < 0)
 837         return bfd_reloc_overflow;
 838
 839       if (relocation & 1)
 840         return bfd_reloc_dangerous;
 841
 842       insn  = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 843       insn &= 0xfff0;
 844       insn |= (relocation >> 1);
 845
 846       bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
 847       return bfd_reloc_ok;
 848
 849     case R_V850_TDA_4_4_OFFSET:
 850       if ((long) relocation > 0xf || (long) relocation < 0)
 851         return bfd_reloc_overflow;
 852
 853       insn  = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 854       insn &= 0xfff0;
 855       insn |= relocation;
 856
 857       bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
 858       return bfd_reloc_ok;
 859
 860     case R_V850_ZDA_16_16_SPLIT_OFFSET:
 861     case R_V850_SDA_16_16_SPLIT_OFFSET:
 862       if ((long) relocation > 0xffff || (long) relocation < 0)
 863         return bfd_reloc_overflow;
 864
 865       insn  = bfd_get_32 (abfd, (bfd_byte *) data + reloc->address);
 866
 867       insn &= 0x0001ffdf;
 868       insn |= (relocation & 1) << 5;
 869       insn |= (relocation & ~1) << 16;
 870
 871       bfd_put_32 (abfd, insn, (bfd_byte *)data + reloc->address);
 872       return bfd_reloc_ok;
 873
 874     case R_V850_CALLT_6_7_OFFSET:
 875       if ((long) relocation > 0x7e || (long) relocation < 0)
 876         return bfd_reloc_overflow;
 877
 878       if (relocation & 1)
 879         return bfd_reloc_dangerous;
 880
 881       insn  = bfd_get_16 (abfd, (bfd_byte *) data + reloc->address);
 882       insn &= 0xff80;
 883       insn |= (relocation >> 1);
 884
 885       bfd_put_16 (abfd, insn, (bfd_byte *)data + reloc->address);
 886       return bfd_reloc_ok;
 887
 888     case R_V850_CALLT_16_16_OFFSET:
 889       bfd_put_16 (abfd, relocation, (bfd_byte *)data + reloc->address);
 890       return bfd_reloc_ok;
 891
 892 /* end-sanitize-v850e */
 893     }
 894
 895   return bfd_reloc_continue;
 896 }
 897
 898 \f
 899 /*ARGSUSED*/
 900 static boolean
 901 v850_elf_is_local_label_name (abfd, name)
 902      bfd *         abfd;
 903      const char *  name;
 904 {
 905   return ((name[0] == '.' && (name[1] == 'L' || name[1] == '.'))
 906           || (name[0] == '_' && name[1] == '.' && name[2] == 'L'
 907               && name[3] == '_'));
 908 }
 909
 910 \f
 911 /* Perform a relocation as part of a final link.  */
 912 static bfd_reloc_status_type
 913 v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
 914                                     input_section, contents, offset, value,
 915                                     addend, info, sym_sec, is_local)
 916      reloc_howto_type *      howto;
 917      bfd *                   input_bfd;
 918      bfd *                   output_bfd;
 919      asection *              input_section;
 920      bfd_byte *              contents;
 921      bfd_vma                 offset;
 922      bfd_vma                 value;
 923      bfd_vma                 addend;
 924      struct bfd_link_info *  info;
 925      asection *              sym_sec;
 926      int                     is_local;
 927 {
 928   unsigned long  insn;
 929   unsigned long  r_type   = howto->type;
 930   bfd_byte *     hit_data = contents + offset;
 931
 932   switch (r_type)
 933     {
 934     case R_V850_9_PCREL:
 935       value -= (input_section->output_section->vma
 936                 + input_section->output_offset);
 937       value -= offset;
 938
 939       if ((long)value > 0xff || (long)value < -0x100)
 940         return bfd_reloc_overflow;
 941
 942       if ((value % 2) != 0)
 943         return bfd_reloc_dangerous;
 944
 945       insn = bfd_get_16 (input_bfd, hit_data);
 946       insn &= 0x078f;
 947       insn |= ((value & 0x1f0) << 7) | ((value & 0x0e) << 3);
 948       bfd_put_16 (input_bfd, insn, hit_data);
 949       return bfd_reloc_ok;
 950
 951     case R_V850_22_PCREL:
 952       value -= (input_section->output_section->vma
 953                 + input_section->output_offset);
 954       value -= offset;
 955
 956       if ((long)value > 0x1fffff || (long)value < -0x200000)
 957         return bfd_reloc_overflow;
 958
 959       if ((value % 2) != 0)
 960         return bfd_reloc_dangerous;
 961
 962       insn = bfd_get_32 (input_bfd, hit_data);
 963       insn &= 0x1ffc0;
 964       insn |= (((value & 0xfffe) << 16) | ((value & 0x3f0000) >> 16));
 965       bfd_put_32 (input_bfd, insn, hit_data);
 966       return bfd_reloc_ok;
 967
 968     case R_V850_HI16_S:
 969       value += (short)bfd_get_16 (input_bfd, hit_data);
 970       value = (value >> 16) + ((value & 0x8000) != 0);
 971
 972       if ((long)value > 0x7fff || (long)value < -0x8000)
 973         {
 974           /* This relocation cannot overflow. */
 975
 976           value = 0;
 977         }
 978
 979       bfd_put_16 (input_bfd, value, hit_data);
 980       return bfd_reloc_ok;
 981
 982     case R_V850_HI16:
 983       value += (short)bfd_get_16 (input_bfd, hit_data);
 984       value >>= 16;
 985
 986       bfd_put_16 (input_bfd, value, hit_data);
 987       return bfd_reloc_ok;
 988
 989     case R_V850_LO16:
 990       value += (short)bfd_get_16 (input_bfd, hit_data);
 991       value &= 0xffff;
 992
 993       bfd_put_16 (input_bfd, value, hit_data);
 994       return bfd_reloc_ok;
 995
 996     case R_V850_16:
 997       value += (short) bfd_get_16 (input_bfd, hit_data);
 998
 999       if ((long) value > 0x7fff || (long) value < -0x8000)
1000         return bfd_reloc_overflow;
1001
1002       bfd_put_16 (input_bfd, value, hit_data);
1003       return bfd_reloc_ok;
1004
1005     case R_V850_ZDA_16_16_OFFSET:
1006       if (sym_sec == NULL)
1007         return bfd_reloc_undefined;
1008
1009       value -= sym_sec->output_section->vma;
1010       value += (short) bfd_get_16 (input_bfd, hit_data);
1011
1012       if ((long) value > 0x7fff || (long) value < -0x8000)
1013         return bfd_reloc_overflow;
1014
1015       bfd_put_16 (input_bfd, value, hit_data);
1016       return bfd_reloc_ok;
1017
1018     case R_V850_ZDA_15_16_OFFSET:
1019       if (sym_sec == NULL)
1020         return bfd_reloc_undefined;
1021
1022       insn = bfd_get_16 (input_bfd, hit_data);
1023
1024       value -= sym_sec->output_section->vma;
1025       value += ((insn & 0xfffe) << 1);
1026
1027       if ((long) value > 0x7ffe || (long) value < -0x8000)
1028         return bfd_reloc_overflow;
1029
1030       value &= ~1;
1031       value |= (insn & 1);
1032
1033       bfd_put_16 (input_bfd, value, hit_data);
1034       return bfd_reloc_ok;
1035
1036     case R_V850_32:
1037       value += bfd_get_32 (input_bfd, hit_data);
1038       bfd_put_32 (input_bfd, value, hit_data);
1039       return bfd_reloc_ok;
1040
1041     case R_V850_8:
1042       value += (char)bfd_get_8 (input_bfd, hit_data);
1043
1044       if ((long)value > 0x7f || (long)value < -0x80)
1045         return bfd_reloc_overflow;
1046
1047       bfd_put_8 (input_bfd, value, hit_data);
1048       return bfd_reloc_ok;
1049
1050     case R_V850_SDA_16_16_OFFSET:
1051       if (sym_sec == NULL)
1052         return bfd_reloc_undefined;
1053
1054       {
1055         unsigned long                gp;
1056         struct bfd_link_hash_entry * h;
1057
1058         /* Get the value of __gp.  */
1059         h = bfd_link_hash_lookup (info->hash, "__gp", false, false, true);
1060         if (h == (struct bfd_link_hash_entry *) NULL
1061             || h->type != bfd_link_hash_defined)
1062           return bfd_reloc_other;
1063
1064         gp = (h->u.def.value
1065               + h->u.def.section->output_section->vma
1066               + h->u.def.section->output_offset);
1067
1068         value -= sym_sec->output_section->vma;
1069         value -= (gp - sym_sec->output_section->vma);
1070         value += (short) bfd_get_16 (input_bfd, hit_data);
1071
1072         if ((long)value > 0x7fff || (long)value < -0x8000)
1073           return bfd_reloc_overflow;
1074
1075         bfd_put_16 (input_bfd, value, hit_data);
1076         return bfd_reloc_ok;
1077       }
1078
1079     case R_V850_SDA_15_16_OFFSET:
1080       if (sym_sec == NULL)
1081         return bfd_reloc_undefined;
1082
1083       {
1084         unsigned long                gp;
1085         struct bfd_link_hash_entry * h;
1086
1087         /* Get the value of __gp.  */
1088         h = bfd_link_hash_lookup (info->hash, "__gp", false, false, true);
1089         if (h == (struct bfd_link_hash_entry *) NULL
1090             || h->type != bfd_link_hash_defined)
1091           return bfd_reloc_other;
1092
1093         gp = (h->u.def.value
1094               + h->u.def.section->output_section->vma
1095               + h->u.def.section->output_offset);
1096
1097         value -= sym_sec->output_section->vma;
1098         value -= (gp - sym_sec->output_section->vma);
1099
1100         insn = bfd_get_16 (input_bfd, hit_data);
1101
1102         value += ((insn & 0xfffe) << 1);
1103
1104         if ((long)value > 0x7ffe || (long)value < -0x8000)
1105           return bfd_reloc_overflow;
1106
1107         value &= ~1;
1108         value |= (insn & 1);
1109
1110         bfd_put_16 (input_bfd, value, hit_data);
1111         return bfd_reloc_ok;
1112       }
1113
1114     case R_V850_TDA_6_8_OFFSET:
1115       {
1116         unsigned long                ep;
1117         struct bfd_link_hash_entry * h;
1118
1119         insn = bfd_get_16 (input_bfd, hit_data);
1120
1121         /* Get the value of __ep.  */
1122         h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1123         if (h == (struct bfd_link_hash_entry *) NULL
1124             || h->type != bfd_link_hash_defined)
1125           return bfd_reloc_continue;  /* Actually this indicates that __ep could not be found. */
1126
1127         ep = (h->u.def.value
1128               + h->u.def.section->output_section->vma
1129               + h->u.def.section->output_offset);
1130
1131         value -= ep;
1132         value += ((insn & 0x7e) << 1);
1133
1134         if ((long) value > 0xfc || (long) value < 0)
1135           return bfd_reloc_overflow;
1136
1137         if ((value % 2) != 0)
1138           return bfd_reloc_dangerous;
1139
1140         insn &= 0xff81;
1141         insn |= (value >> 1);
1142
1143         bfd_put_16 (input_bfd, insn, hit_data);
1144         return bfd_reloc_ok;
1145       }
1146
1147     case R_V850_TDA_7_8_OFFSET:
1148       {
1149         unsigned long                ep;
1150         struct bfd_link_hash_entry * h;
1151
1152         insn = bfd_get_16 (input_bfd, hit_data);
1153
1154         /* Get the value of __ep.  */
1155         h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1156         if (h == (struct bfd_link_hash_entry *) NULL
1157             || h->type != bfd_link_hash_defined)
1158           return bfd_reloc_continue;    /* Actually this indicates that __ep could not be found. */
1159
1160         ep = (h->u.def.value
1161               + h->u.def.section->output_section->vma
1162               + h->u.def.section->output_offset);
1163
1164         value -= ep;
1165         value += ((insn & 0x7f) << 1);
1166
1167         if ((long) value > 0xfe || (long) value < 0)
1168           return bfd_reloc_overflow;
1169
1170         insn &= 0xff80;
1171         insn |= (value >> 1);
1172
1173         bfd_put_16 (input_bfd, insn, hit_data);
1174         return bfd_reloc_ok;
1175       }
1176
1177     case R_V850_TDA_7_7_OFFSET:
1178       {
1179         unsigned long                ep;
1180         struct bfd_link_hash_entry * h;
1181
1182         insn = bfd_get_16 (input_bfd, hit_data);
1183
1184         /* Get the value of __ep.  */
1185         h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1186         if (h == (struct bfd_link_hash_entry *) NULL
1187             || h->type != bfd_link_hash_defined)
1188           return bfd_reloc_continue;  /* Actually this indicates that __ep could not be found. */
1189
1190         ep = (h->u.def.value
1191               + h->u.def.section->output_section->vma
1192               + h->u.def.section->output_offset);
1193         value -= ep;
1194
1195         value += insn & 0x7f;
1196
1197         if ((long) value > 0x7f || (long) value < 0)
1198           return bfd_reloc_overflow;
1199
1200         insn &= 0xff80;
1201         insn |= value;
1202         bfd_put_16 (input_bfd, insn, hit_data);
1203         return bfd_reloc_ok;
1204       }
1205
1206     case R_V850_TDA_16_16_OFFSET:
1207       {
1208         unsigned long                ep;
1209         struct bfd_link_hash_entry * h;
1210
1211         /* Get the value of __ep.  */
1212         h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1213         if (h == (struct bfd_link_hash_entry *) NULL
1214             || h->type != bfd_link_hash_defined)
1215           return bfd_reloc_other;
1216
1217         ep = (h->u.def.value
1218               + h->u.def.section->output_section->vma
1219               + h->u.def.section->output_offset);
1220         value -= ep;
1221
1222         value += (short) bfd_get_16 (input_bfd, hit_data);
1223
1224         if ((long)value > 0x7fff || (long)value < -0x8000)
1225           return bfd_reloc_overflow;
1226
1227         bfd_put_16 (input_bfd, value, hit_data);
1228         return bfd_reloc_ok;
1229       }
1230
1231 /* start-sanitize-v850e */
1232     case R_V850_TDA_4_5_OFFSET:
1233       {
1234         unsigned long                ep;
1235         struct bfd_link_hash_entry * h;
1236
1237         /* Get the value of __ep.  */
1238         h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1239         if (h == (struct bfd_link_hash_entry *) NULL
1240             || h->type != bfd_link_hash_defined)
1241           return bfd_reloc_continue;  /* Actually this indicates that __ep could not be found. */
1242
1243         ep = (h->u.def.value
1244               + h->u.def.section->output_section->vma
1245               + h->u.def.section->output_offset);
1246         value -= ep;
1247
1248         insn = bfd_get_16 (input_bfd, hit_data);
1249
1250         value += ((insn & 0xf) << 1);
1251
1252         if ((long) value > 0x1e || (long) value < 0)
1253           return bfd_reloc_overflow;
1254
1255         insn &= 0xfff0;
1256         insn |= (value >> 1);
1257         bfd_put_16 (input_bfd, insn, hit_data);
1258         return bfd_reloc_ok;
1259       }
1260
1261     case R_V850_TDA_4_4_OFFSET:
1262       {
1263         unsigned long                ep;
1264         struct bfd_link_hash_entry * h;
1265
1266         /* Get the value of __ep.  */
1267         h = bfd_link_hash_lookup (info->hash, "__ep", false, false, true);
1268         if (h == (struct bfd_link_hash_entry *) NULL
1269             || h->type != bfd_link_hash_defined)
1270           return bfd_reloc_continue;  /* Actually this indicates that __ep could not be found. */
1271
1272         ep = (h->u.def.value
1273               + h->u.def.section->output_section->vma
1274               + h->u.def.section->output_offset);
1275         value -= ep;
1276
1277         insn = bfd_get_16 (input_bfd, hit_data);
1278
1279         value += insn & 0xf;
1280
1281         if ((long) value > 0xf || (long) value < 0)
1282           return bfd_reloc_overflow;
1283
1284         insn &= 0xfff0;
1285         insn |= value;
1286         bfd_put_16 (input_bfd, insn, hit_data);
1287         return bfd_reloc_ok;
1288       }
1289
1290     case R_V850_SDA_16_16_SPLIT_OFFSET:
1291       if (sym_sec == NULL)
1292         return bfd_reloc_undefined;
1293
1294       {
1295         unsigned long                gp;
1296         struct bfd_link_hash_entry * h;
1297
1298         /* Get the value of __gp.  */
1299         h = bfd_link_hash_lookup (info->hash, "__gp", false, false, true);
1300         if (h == (struct bfd_link_hash_entry *) NULL
1301             || h->type != bfd_link_hash_defined)
1302           return bfd_reloc_other;
1303
1304         gp = (h->u.def.value
1305               + h->u.def.section->output_section->vma
1306               + h->u.def.section->output_offset);
1307
1308         value -= sym_sec->output_section->vma;
1309         value -= (gp - sym_sec->output_section->vma);
1310
1311         insn = bfd_get_32 (input_bfd, hit_data);
1312
1313         value += ((insn & 0xfffe0000) >> 16);
1314         value += ((insn & 0x20) >> 5);
1315
1316         if ((long)value > 0x7fff || (long)value < -0x8000)
1317           return bfd_reloc_overflow;
1318
1319         insn &= 0x0001ffdf;
1320         insn |= (value & 1) << 5;
1321         insn |= (value & ~1) << 16;
1322
1323         bfd_put_32 (input_bfd, insn, hit_data);
1324         return bfd_reloc_ok;
1325       }
1326
1327     case R_V850_ZDA_16_16_SPLIT_OFFSET:
1328       if (sym_sec == NULL)
1329         return bfd_reloc_undefined;
1330
1331       insn = bfd_get_32 (input_bfd, hit_data);
1332
1333       value -= sym_sec->output_section->vma;
1334       value += ((insn & 0xfffe0000) >> 16);
1335       value += ((insn & 0x20) >> 5);
1336
1337       if ((long)value > 0x7fff || (long)value < -0x8000)
1338         return bfd_reloc_overflow;
1339
1340       insn &= 0x0001ffdf;
1341       insn |= (value & 1) << 5;
1342       insn |= (value & ~1) << 16;
1343
1344       bfd_put_32 (input_bfd, insn, hit_data);
1345       return bfd_reloc_ok;
1346
1347     case R_V850_CALLT_6_7_OFFSET:
1348       {
1349         unsigned long                ctbp;
1350         struct bfd_link_hash_entry * h;
1351
1352         /* Get the value of __ctbp.  */
1353         h = bfd_link_hash_lookup (info->hash, "__ctbp", false, false, true);
1354         if (h == (struct bfd_link_hash_entry *) NULL
1355             || h->type != bfd_link_hash_defined)
1356           return (bfd_reloc_dangerous + 1);  /* Actually this indicates that __ctbp could not be found. */
1357
1358         ctbp = (h->u.def.value
1359               + h->u.def.section->output_section->vma
1360               + h->u.def.section->output_offset);
1361         value -= ctbp;
1362
1363         insn = bfd_get_16 (input_bfd, hit_data);
1364
1365         value += ((insn & 0x3f) << 1);
1366
1367         if ((long) value > 0x7e || (long) value < 0)
1368           return bfd_reloc_overflow;
1369
1370         insn &= 0xff80;
1371         insn |= (value >> 1);
1372         bfd_put_16 (input_bfd, insn, hit_data);
1373         return bfd_reloc_ok;
1374       }
1375
1376     case R_V850_CALLT_16_16_OFFSET:
1377       if (sym_sec == NULL)
1378         return bfd_reloc_undefined;
1379
1380       {
1381         unsigned long                ctbp;
1382         struct bfd_link_hash_entry * h;
1383
1384         /* Get the value of __ctbp.  */
1385         h = bfd_link_hash_lookup (info->hash, "__ctbp", false, false, true);
1386         if (h == (struct bfd_link_hash_entry *) NULL
1387             || h->type != bfd_link_hash_defined)
1388           return (bfd_reloc_dangerous + 1);
1389
1390         ctbp = (h->u.def.value
1391               + h->u.def.section->output_section->vma
1392               + h->u.def.section->output_offset);
1393
1394         value -= sym_sec->output_section->vma;
1395         value -= (ctbp - sym_sec->output_section->vma);
1396         value += (short) bfd_get_16 (input_bfd, hit_data);
1397
1398         if ((long) value > 0xffff || (long) value < 0)
1399           return bfd_reloc_overflow;
1400
1401         bfd_put_16 (input_bfd, value, hit_data);
1402         return bfd_reloc_ok;
1403       }
1404
1405 /* end-sanitize-v850e */
1406
1407     case R_V850_NONE:
1408       return bfd_reloc_ok;
1409
1410     default:
1411       return bfd_reloc_notsupported;
1412     }
1413 }
1414
1415 \f
1416 /* Relocate an V850 ELF section.  */
1417 static boolean
1418 v850_elf_relocate_section (output_bfd, info, input_bfd, input_section,
1419                            contents, relocs, local_syms, local_sections)
1420      bfd *                  output_bfd;
1421      struct bfd_link_info * info;
1422      bfd *                  input_bfd;
1423      asection *             input_section;
1424      bfd_byte *             contents;
1425      Elf_Internal_Rela *    relocs;
1426      Elf_Internal_Sym *     local_syms;
1427      asection **            local_sections;
1428 {
1429   Elf_Internal_Shdr *           symtab_hdr;
1430   struct elf_link_hash_entry ** sym_hashes;
1431   Elf_Internal_Rela *           rel;
1432   Elf_Internal_Rela *           relend;
1433
1434   symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
1435   sym_hashes = elf_sym_hashes (input_bfd);
1436
1437   rel    = relocs;
1438   relend = relocs + input_section->reloc_count;
1439   for (; rel < relend; rel++)
1440     {
1441       int                          r_type;
1442       reloc_howto_type *           howto;
1443       unsigned long                r_symndx;
1444       Elf_Internal_Sym *           sym;
1445       asection *                   sec;
1446       struct elf_link_hash_entry * h;
1447       bfd_vma                      relocation;
1448       bfd_reloc_status_type        r;
1449
1450       r_symndx = ELF32_R_SYM (rel->r_info);
1451       r_type   = ELF32_R_TYPE (rel->r_info);
1452       howto    = v850_elf_howto_table + r_type;
1453
1454       if (info->relocateable)
1455         {
1456           /* This is a relocateable link.  We don't have to change
1457              anything, unless the reloc is against a section symbol,
1458              in which case we have to adjust according to where the
1459              section symbol winds up in the output section.  */
1460           if (r_symndx < symtab_hdr->sh_info)
1461             {
1462               sym = local_syms + r_symndx;
1463               if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
1464                 {
1465                   sec = local_sections[r_symndx];
1466                   rel->r_addend += sec->output_offset + sym->st_value;
1467                 }
1468             }
1469
1470           continue;
1471         }
1472
1473       /* This is a final link.  */
1474       h = NULL;
1475       sym = NULL;
1476       sec = NULL;
1477       if (r_symndx < symtab_hdr->sh_info)
1478         {
1479           sym = local_syms + r_symndx;
1480           sec = local_sections[r_symndx];
1481           relocation = (sec->output_section->vma
1482                         + sec->output_offset
1483                         + sym->st_value);
1484 #if 0
1485           {
1486             char * name;
1487             name = bfd_elf_string_from_elf_section (input_bfd, symtab_hdr->sh_link, sym->st_name);
1488             name = (name == NULL) ? "<none>" : name;
1489 fprintf (stderr, "local: sec: %s, sym: %s (%d), value: %x + %x + %x addend %x rel %x\n", sec->name, name, sym->st_name,
1490          sec->output_section->vma, sec->output_offset, sym->st_value, rel->r_addend, rel);
1491           }
1492 #endif
1493         }
1494       else
1495         {
1496           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1497
1498           while (h->root.type == bfd_link_hash_indirect
1499                  || h->root.type == bfd_link_hash_warning)
1500             h = (struct elf_link_hash_entry *) h->root.u.i.link;
1501
1502           if (h->root.type == bfd_link_hash_defined
1503               || h->root.type == bfd_link_hash_defweak)
1504             {
1505               sec = h->root.u.def.section;
1506               relocation = (h->root.u.def.value
1507                             + sec->output_section->vma
1508                             + sec->output_offset);
1509 #if 0
1510 fprintf (stderr, "defined: sec: %s, name: %s, value: %x + %x + %x gives: %x\n",
1511          sec->name, h->root.root.string, h->root.u.def.value, sec->output_section->vma, sec->output_offset, relocation);
1512 #endif
1513             }
1514           else if (h->root.type == bfd_link_hash_undefweak)
1515             {
1516 #if 0
1517 fprintf (stderr, "undefined: sec: %s, name: %s\n",
1518          sec->name, h->root.root.string);
1519 #endif
1520               relocation = 0;
1521             }
1522           else
1523             {
1524               if (! ((*info->callbacks->undefined_symbol)
1525                      (info, h->root.root.string, input_bfd,
1526                       input_section, rel->r_offset)))
1527                 return false;
1528 #if 0
1529 fprintf (stderr, "unknown: name: %s\n", h->root.root.string);
1530 #endif
1531               relocation = 0;
1532             }
1533         }
1534
1535       /* FIXME: We should use the addend, but the COFF relocations
1536          don't.  */
1537       r = v850_elf_final_link_relocate (howto, input_bfd, output_bfd,
1538                                         input_section,
1539                                         contents, rel->r_offset,
1540                                         relocation, rel->r_addend,
1541                                         info, sec, h == NULL);
1542
1543       if (r != bfd_reloc_ok)
1544         {
1545           const char * name;
1546           const char * msg = (const char *)0;
1547
1548           if (h != NULL)
1549             name = h->root.root.string;
1550           else
1551             {
1552               name = (bfd_elf_string_from_elf_section
1553                       (input_bfd, symtab_hdr->sh_link, sym->st_name));
1554               if (name == NULL || *name == '\0')
1555                 name = bfd_section_name (input_bfd, sec);
1556             }
1557
1558           switch (r)
1559             {
1560             case bfd_reloc_overflow:
1561               if (! ((*info->callbacks->reloc_overflow)
1562                      (info, name, howto->name, (bfd_vma) 0,
1563                       input_bfd, input_section, rel->r_offset)))
1564                 return false;
1565               break;
1566
1567             case bfd_reloc_undefined:
1568               if (! ((*info->callbacks->undefined_symbol)
1569                      (info, name, input_bfd, input_section,
1570                       rel->r_offset)))
1571                 return false;
1572               break;
1573
1574             case bfd_reloc_outofrange:
1575               msg = "internal error: out of range error";
1576               goto common_error;
1577
1578             case bfd_reloc_notsupported:
1579               msg = "internal error: unsupported relocation error";
1580               goto common_error;
1581
1582             case bfd_reloc_dangerous:
1583               msg = "internal error: dangerous relocation";
1584               goto common_error;
1585
1586             case bfd_reloc_other:
1587               msg = "could not locate special linker symbol __gp";
1588               goto common_error;
1589
1590             case bfd_reloc_continue:
1591               msg = "could not locate special linker symbol __ep";
1592               goto common_error;
1593
1594             case (bfd_reloc_dangerous + 1):
1595               msg = "could not locate special linker symbol __ctbp";
1596               goto common_error;
1597
1598             default:
1599               msg = "internal error: unknown error";
1600               /* fall through */
1601
1602             common_error:
1603               if (!((*info->callbacks->warning)
1604                     (info, msg, name, input_bfd, input_section,
1605                      rel->r_offset)))
1606                 return false;
1607               break;
1608             }
1609         }
1610     }
1611
1612   return true;
1613 }
1614
1615 /* Set the right machine number.  */
1616 static boolean
1617 v850_elf_object_p (abfd)
1618      bfd *abfd;
1619 {
1620   switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
1621     {
1622     default:
1623     case E_V850_ARCH:   (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, 0); break;
1624 /* start-sanitize-v850e */
1625     case E_V850E_ARCH:  (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850e); break;
1626     case E_V850EQ_ARCH: (void) bfd_default_set_arch_mach (abfd, bfd_arch_v850, bfd_mach_v850eq); break;
1627 /* end-sanitize-v850e */
1628     }
1629 }
1630
1631 /* Store the machine number in the flags field.  */
1632 void
1633 v850_elf_final_write_processing (abfd, linker)
1634      bfd *   abfd;
1635      boolean linker;
1636 {
1637   unsigned long val;
1638
1639   switch (bfd_get_mach (abfd))
1640     {
1641     default:
1642     case 0: val = E_V850_ARCH; break;
1643 /* start-sanitize-v850e */
1644     case bfd_mach_v850e:  val = E_V850E_ARCH; break;
1645     case bfd_mach_v850eq: val = E_V850EQ_ARCH;  break;
1646 /* end-sanitize-v850e */
1647     }
1648
1649   elf_elfheader (abfd)->e_flags &=~ EF_V850_ARCH;
1650   elf_elfheader (abfd)->e_flags |= val;
1651 }
1652
1653 /* Function to keep V850 specific file flags. */
1654 boolean
1655 v850_elf_set_private_flags (abfd, flags)
1656      bfd *    abfd;
1657      flagword flags;
1658 {
1659   BFD_ASSERT (!elf_flags_init (abfd)
1660               || elf_elfheader (abfd)->e_flags == flags);
1661
1662   elf_elfheader (abfd)->e_flags = flags;
1663   elf_flags_init (abfd) = true;
1664   return true;
1665 }
1666
1667 /* Copy backend specific data from one object module to another */
1668 boolean
1669 v850_elf_copy_private_bfd_data (ibfd, obfd)
1670      bfd * ibfd;
1671      bfd * obfd;
1672 {
1673   if (   bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1674       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1675     return true;
1676
1677   BFD_ASSERT (!elf_flags_init (obfd)
1678               || (elf_elfheader (obfd)->e_flags
1679                   == elf_elfheader (ibfd)->e_flags));
1680
1681   elf_gp (obfd) = elf_gp (ibfd);
1682   elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
1683   elf_flags_init (obfd) = true;
1684   return true;
1685 }
1686
1687 /* Merge backend specific data from an object file to the output
1688    object file when linking.  */
1689 boolean
1690 v850_elf_merge_private_bfd_data (ibfd, obfd)
1691      bfd * ibfd;
1692      bfd * obfd;
1693 {
1694   flagword old_flags;
1695   flagword new_flags;
1696
1697   if (   bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1698       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1699     return true;
1700
1701   new_flags = elf_elfheader (ibfd)->e_flags;
1702   old_flags = elf_elfheader (obfd)->e_flags;
1703
1704   if (! elf_flags_init (obfd))
1705     {
1706       elf_flags_init (obfd) = true;
1707       elf_elfheader (obfd)->e_flags = new_flags;
1708
1709       if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
1710           && bfd_get_arch_info (obfd)->the_default)
1711         {
1712           return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
1713         }
1714
1715       return true;
1716     }
1717
1718   /* Check flag compatibility.  */
1719
1720   if (new_flags == old_flags)
1721     return true;
1722
1723   if ((new_flags & EF_V850_ARCH) != (old_flags & EF_V850_ARCH))
1724     {
1725       _bfd_error_handler ("%s: Architecture mismatch with previous modules",
1726              bfd_get_filename (ibfd));
1727 #if 0
1728       bfd_set_error (bfd_error_bad_value);
1729       return false;
1730 #else
1731       return true;
1732 #endif
1733     }
1734
1735   return true;
1736 }
1737 /* Display the flags field */
1738
1739 static boolean
1740 v850_elf_print_private_bfd_data (abfd, ptr)
1741      bfd *   abfd;
1742      PTR     ptr;
1743 {
1744   FILE * file = (FILE *) ptr;
1745
1746   BFD_ASSERT (abfd != NULL && ptr != NULL)
1747
1748   fprintf (file, "private flags = %x", elf_elfheader (abfd)->e_flags);
1749
1750   switch (elf_elfheader (abfd)->e_flags & EF_V850_ARCH)
1751     {
1752     default:
1753     case E_V850_ARCH: fprintf (file, ": v850 architecture"); break;
1754 /* start-sanitize-v850e */
1755     case E_V850E_ARCH:  fprintf (file, ": v850e architecture"); break;
1756     case E_V850EQ_ARCH: fprintf (file, ": v850eq architecture"); break;
1757 /* end-sanitize-v850e */
1758     }
1759
1760   fputc ('\n', file);
1761
1762   return true;
1763 }
1764 \f
1765 #define TARGET_LITTLE_SYM                       bfd_elf32_v850_vec
1766 #define TARGET_LITTLE_NAME                      "elf32-v850"
1767 #define ELF_ARCH                                bfd_arch_v850
1768 #define ELF_MACHINE_CODE                        EM_CYGNUS_V850
1769 #define ELF_MAXPAGESIZE                         0x1000
1770
1771 #define elf_info_to_howto                       0
1772 #define elf_info_to_howto_rel                   v850_elf_info_to_howto_rel
1773 #define elf_backend_check_relocs                v850_elf_check_relocs
1774 #define elf_backend_relocate_section            v850_elf_relocate_section
1775 #define elf_backend_object_p                    v850_elf_object_p
1776 #define elf_backend_final_write_processing      v850_elf_final_write_processing
1777 #define bfd_elf32_bfd_is_local_label_name       v850_elf_is_local_label_name
1778 #define bfd_elf32_bfd_reloc_type_lookup         v850_elf_reloc_type_lookup
1779 #define bfd_elf32_bfd_copy_private_bfd_data     v850_elf_copy_private_bfd_data
1780 #define bfd_elf32_bfd_merge_private_bfd_data    v850_elf_merge_private_bfd_data
1781 #define bfd_elf32_bfd_set_private_flags         v850_elf_set_private_flags
1782 #define bfd_elf32_bfd_print_private_bfd_data    v850_elf_print_private_bfd_data
1783
1784 #define elf_symbol_leading_char                 '_'
1785
1786 #include "elf32-target.h"