bfd/coff-tic4x.c

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