bfd/coff-tic4x.c

   1 /* BFD back-end for TMS320C4X coff binaries.
   2    Copyright (C) 1996-2014 Free Software Foundation, Inc.
   3
   4    Contributed by Michael Hayes (m.hayes@elec.canterbury.ac.nz)
   5
   6    This file is part of BFD, the Binary File Descriptor library.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
  21    02110-1301, USA.  */
  22
  23 #include "sysdep.h"
  24 #include "bfd.h"
  25 #include "libbfd.h"
  26 #include "bfdlink.h"
  27 #include "coff/tic4x.h"
  28 #include "coff/internal.h"
  29 #include "libcoff.h"
  30
  31 #undef  F_LSYMS
  32 #define F_LSYMS         F_LSYMS_TICOFF
  33
  34 static reloc_howto_type *
  35 coff_tic4x_rtype_to_howto (bfd *, asection *, struct internal_reloc *,
  36                            struct coff_link_hash_entry *,
  37                            struct internal_syment *,  bfd_vma *);
  38 static void
  39 tic4x_reloc_processing (arelent *, struct internal_reloc *,
  40                         asymbol **, bfd *, asection *);
  41
  42 /* Replace the stock _bfd_coff_is_local_label_name to recognize TI COFF local
  43    labels.  */
  44 static bfd_boolean
  45 ticoff_bfd_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED,
  46                                 const char *name)
  47 {
  48   if (TICOFF_LOCAL_LABEL_P(name))
  49     return TRUE;
  50   return FALSE;
  51 }
  52
  53 #define coff_bfd_is_local_label_name ticoff_bfd_is_local_label_name
  54
  55 #define RELOC_PROCESSING(RELENT,RELOC,SYMS,ABFD,SECT)\
  56  tic4x_reloc_processing (RELENT,RELOC,SYMS,ABFD,SECT)
  57
  58 /* Customize coffcode.h; the default coff_ functions are set up to use
  59    COFF2; coff_bad_format_hook uses BADMAG, so set that for COFF2.
  60    The COFF1 and COFF0 vectors use custom _bad_format_hook procs
  61    instead of setting BADMAG.  */
  62 #define BADMAG(x) COFF2_BADMAG(x)
  63
  64 #undef  coff_rtype_to_howto
  65 #define coff_rtype_to_howto     coff_tic4x_rtype_to_howto
  66
  67 #ifndef bfd_pe_print_pdata
  68 #define bfd_pe_print_pdata      NULL
  69 #endif
  70
  71 #include "coffcode.h"
  72
  73 static bfd_reloc_status_type
  74 tic4x_relocation (bfd *abfd ATTRIBUTE_UNUSED,
  75                   arelent *reloc_entry,
  76                   asymbol *symbol ATTRIBUTE_UNUSED,
  77                   void * data ATTRIBUTE_UNUSED,
  78                   asection *input_section,
  79                   bfd *output_bfd,
  80                   char **error_message ATTRIBUTE_UNUSED)
  81 {
  82   if (output_bfd != (bfd *) NULL)
  83     {
  84       /* This is a partial relocation, and we want to apply the
  85          relocation to the reloc entry rather than the raw data.
  86          Modify the reloc inplace to reflect what we now know.  */
  87       reloc_entry->address += input_section->output_offset;
  88       return bfd_reloc_ok;
  89     }
  90   return bfd_reloc_continue;
  91 }
  92
  93 reloc_howto_type tic4x_howto_table[] =
  94 {
  95     HOWTO(R_RELWORD,     0,  2, 16, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "RELWORD",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
  96     HOWTO(R_REL24,       0,  2, 24, FALSE, 0, complain_overflow_bitfield, tic4x_relocation, "REL24",     TRUE, 0x00ffffff, 0x00ffffff, FALSE),
  97     HOWTO(R_RELLONG,     0,  2, 32, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "RELLONG",   TRUE, 0xffffffff, 0xffffffff, FALSE),
  98     HOWTO(R_PCRWORD,     0,  2, 16, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "PCRWORD",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
  99     HOWTO(R_PCR24,       0,  2, 24, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "PCR24",     TRUE, 0x00ffffff, 0x00ffffff, FALSE),
 100     HOWTO(R_PARTLS16,    0,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "PARTLS16",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 101     HOWTO(R_PARTMS8,    16,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "PARTMS8",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 102     HOWTO(R_RELWORD,     0,  2, 16, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "ARELWORD",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 103     HOWTO(R_REL24,       0,  2, 24, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "AREL24",    TRUE, 0x00ffffff, 0x00ffffff, FALSE),
 104     HOWTO(R_RELLONG,     0,  2, 32, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "ARELLONG",  TRUE, 0xffffffff, 0xffffffff, FALSE),
 105     HOWTO(R_PCRWORD,     0,  2, 16, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "APCRWORD",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 106     HOWTO(R_PCR24,       0,  2, 24, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "APCR24",    TRUE, 0x00ffffff, 0x00ffffff, FALSE),
 107     HOWTO(R_PARTLS16,    0,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "APARTLS16", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 108     HOWTO(R_PARTMS8,    16,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "APARTMS8",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 109 };
 110 #define HOWTO_SIZE (sizeof(tic4x_howto_table) / sizeof(tic4x_howto_table[0]))
 111
 112 #undef coff_bfd_reloc_type_lookup
 113 #define coff_bfd_reloc_type_lookup tic4x_coff_reloc_type_lookup
 114 #undef coff_bfd_reloc_name_lookup
 115 #define coff_bfd_reloc_name_lookup tic4x_coff_reloc_name_lookup
 116
 117 /* For the case statement use the code values used tc_gen_reloc (defined in
 118    bfd/reloc.c) to map to the howto table entries.  */
 119
 120 static reloc_howto_type *
 121 tic4x_coff_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 122                               bfd_reloc_code_real_type code)
 123 {
 124   unsigned int type;
 125   unsigned int i;
 126
 127   switch (code)
 128     {
 129     case BFD_RELOC_32:          type = R_RELLONG; break;
 130     case BFD_RELOC_24:          type = R_REL24; break;
 131     case BFD_RELOC_16:          type = R_RELWORD; break;
 132     case BFD_RELOC_24_PCREL:    type = R_PCR24; break;
 133     case BFD_RELOC_16_PCREL:    type = R_PCRWORD; break;
 134     case BFD_RELOC_HI16:        type = R_PARTMS8; break;
 135     case BFD_RELOC_LO16:        type = R_PARTLS16; break;
 136     default:
 137       return NULL;
 138     }
 139
 140   for (i = 0; i < HOWTO_SIZE; i++)
 141     {
 142       if (tic4x_howto_table[i].type == type)
 143         return tic4x_howto_table + i;
 144     }
 145   return NULL;
 146 }
 147
 148 static reloc_howto_type *
 149 tic4x_coff_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 150                               const char *r_name)
 151 {
 152   unsigned int i;
 153
 154   for (i = 0;
 155        i < sizeof (tic4x_howto_table) / sizeof (tic4x_howto_table[0]);
 156        i++)
 157     if (tic4x_howto_table[i].name != NULL
 158         && strcasecmp (tic4x_howto_table[i].name, r_name) == 0)
 159       return &tic4x_howto_table[i];
 160
 161   return NULL;
 162 }
 163
 164 /* Code to turn a r_type into a howto ptr, uses the above howto table.
 165    Called after some initial checking by the tic4x_rtype_to_howto fn
 166    below.  */
 167 static void
 168 tic4x_lookup_howto (arelent *internal,
 169                     struct internal_reloc *dst)
 170 {
 171   unsigned int i;
 172   int bank = (dst->r_symndx == -1) ? HOWTO_BANK : 0;
 173
 174   for (i = 0; i < HOWTO_SIZE; i++)
 175     {
 176       if (tic4x_howto_table[i].type == dst->r_type)
 177         {
 178           internal->howto = tic4x_howto_table + i + bank;
 179           return;
 180         }
 181     }
 182
 183   (*_bfd_error_handler) (_("Unrecognized reloc type 0x%x"),
 184                          (unsigned int) dst->r_type);
 185   abort();
 186 }
 187
 188 static reloc_howto_type *
 189 coff_tic4x_rtype_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
 190                            asection *sec,
 191                            struct internal_reloc *rel,
 192                            struct coff_link_hash_entry *h ATTRIBUTE_UNUSED,
 193                            struct internal_syment *sym ATTRIBUTE_UNUSED,
 194                            bfd_vma *addendp)
 195 {
 196   arelent genrel;
 197
 198   if (rel->r_symndx == -1 && addendp != NULL)
 199     /* This is a TI "internal relocation", which means that the relocation
 200        amount is the amount by which the current section is being relocated
 201        in the output section.  */
 202     *addendp = (sec->output_section->vma + sec->output_offset) - sec->vma;
 203
 204   tic4x_lookup_howto (&genrel, rel);
 205
 206   return genrel.howto;
 207 }
 208
 209
 210 static void
 211 tic4x_reloc_processing (arelent *relent,
 212                         struct internal_reloc *reloc,
 213                         asymbol **symbols,
 214                         bfd *abfd,
 215                         asection *section)
 216 {
 217   asymbol *ptr;
 218
 219   relent->address = reloc->r_vaddr;
 220
 221   if (reloc->r_symndx != -1)
 222     {
 223       if (reloc->r_symndx < 0 || reloc->r_symndx >= obj_conv_table_size (abfd))
 224         {
 225           (*_bfd_error_handler)
 226             (_("%s: warning: illegal symbol index %ld in relocs"),
 227              bfd_get_filename (abfd), reloc->r_symndx);
 228           relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr;
 229           ptr = NULL;
 230         }
 231       else
 232         {
 233           relent->sym_ptr_ptr = (symbols
 234                                  + obj_convert (abfd)[reloc->r_symndx]);
 235           ptr = *(relent->sym_ptr_ptr);
 236         }
 237     }
 238   else
 239     {
 240       relent->sym_ptr_ptr = section->symbol_ptr_ptr;
 241       ptr = *(relent->sym_ptr_ptr);
 242     }
 243
 244   /* The symbols definitions that we have read in have been relocated
 245      as if their sections started at 0.  But the offsets refering to
 246      the symbols in the raw data have not been modified, so we have to
 247      have a negative addend to compensate.
 248
 249      Note that symbols which used to be common must be left alone.  */
 250
 251   /* Calculate any reloc addend by looking at the symbol.  */
 252   CALC_ADDEND (abfd, ptr, *reloc, relent);
 253
 254   relent->address -= section->vma;
 255   /* !!     relent->section = (asection *) NULL;  */
 256
 257   /* Fill in the relent->howto field from reloc->r_type.  */
 258   tic4x_lookup_howto (relent, reloc);
 259 }
 260
 261
 262 /* TI COFF v0, DOS tools (little-endian headers).  */
 263 CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff0_vec, "coff0-tic4x",
 264                               0, SEC_CODE | SEC_READONLY, '_',
 265                               NULL, &ticoff0_swap_table);
 266
 267 /* TI COFF v0, SPARC tools (big-endian headers).  */
 268 CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff0_beh_vec, "coff0-beh-tic4x",
 269                               0, SEC_CODE | SEC_READONLY, '_',
 270                               &tic4x_coff0_vec, &ticoff0_swap_table);
 271
 272 /* TI COFF v1, DOS tools (little-endian headers).  */
 273 CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff1_vec, "coff1-tic4x",
 274                               0, SEC_CODE | SEC_READONLY, '_',
 275                               &tic4x_coff0_beh_vec, &ticoff1_swap_table);
 276
 277 /* TI COFF v1, SPARC tools (big-endian headers).  */
 278 CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff1_beh_vec, "coff1-beh-tic4x",
 279                               0, SEC_CODE | SEC_READONLY, '_',
 280                               &tic4x_coff1_vec, &ticoff1_swap_table);
 281
 282 /* TI COFF v2, TI DOS tools output (little-endian headers).  */
 283 CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff2_vec, "coff2-tic4x",
 284                               0, SEC_CODE | SEC_READONLY, '_',
 285                               &tic4x_coff1_beh_vec, COFF_SWAP_TABLE);
 286
 287 /* TI COFF v2, TI SPARC tools output (big-endian headers).  */
 288 CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff2_beh_vec, "coff2-beh-tic4x",
 289                               0, SEC_CODE | SEC_READONLY, '_',
 290                               &tic4x_coff2_vec, COFF_SWAP_TABLE);