bfd/coff-tic4x.c

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