bfd/coff-tic4x.c

   1 /* BFD back-end for TMS320C4X coff binaries.
   2    Copyright 1996, 1997, 1998, 1999, 2000, 2002, 2003
   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 2 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., 59 Temple Place - Suite 330, Boston, MA
  22    02111-1307, USA.  */
  23
  24 #include "bfd.h"
  25 #include "sysdep.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 #include "coffcode.h"
  72
  73 static bfd_reloc_status_type
  74 tic4x_relocation (abfd, reloc_entry, symbol, data, input_section,
  75                   output_bfd, error_message)
  76   bfd *abfd ATTRIBUTE_UNUSED;
  77   arelent *reloc_entry;
  78   asymbol *symbol ATTRIBUTE_UNUSED;
  79   PTR data ATTRIBUTE_UNUSED;
  80   asection *input_section;
  81   bfd *output_bfd;
  82   char **error_message ATTRIBUTE_UNUSED;
  83 {
  84   if (output_bfd != (bfd *) NULL)
  85     {
  86       /* This is a partial relocation, and we want to apply the
  87          relocation to the reloc entry rather than the raw data.
  88          Modify the reloc inplace to reflect what we now know.  */
  89       reloc_entry->address += input_section->output_offset;
  90       return bfd_reloc_ok;
  91     }
  92   return bfd_reloc_continue;
  93 }
  94
  95 reloc_howto_type tic4x_howto_table[] =
  96 {
  97     HOWTO(R_RELWORD,     0,  2, 16, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "RELWORD",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
  98     HOWTO(R_REL24,       0,  2, 24, FALSE, 0, complain_overflow_bitfield, tic4x_relocation, "REL24",     TRUE, 0x00ffffff, 0x00ffffff, FALSE),
  99     HOWTO(R_RELLONG,     0,  2, 32, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "RELLONG",   TRUE, 0xffffffff, 0xffffffff, FALSE),
 100     HOWTO(R_PCRWORD,     0,  2, 16, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "PCRWORD",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 101     HOWTO(R_PCR24,       0,  2, 24, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "PCR24",     TRUE, 0x00ffffff, 0x00ffffff, FALSE),
 102     HOWTO(R_PARTLS16,    0,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "PARTLS16",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 103     HOWTO(R_PARTMS8,    16,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "PARTMS8",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 104     HOWTO(R_RELWORD,     0,  2, 16, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "ARELWORD",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 105     HOWTO(R_REL24,       0,  2, 24, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "AREL24",    TRUE, 0x00ffffff, 0x00ffffff, FALSE),
 106     HOWTO(R_RELLONG,     0,  2, 32, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "ARELLONG",  TRUE, 0xffffffff, 0xffffffff, FALSE),
 107     HOWTO(R_PCRWORD,     0,  2, 16, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "APCRWORD",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 108     HOWTO(R_PCR24,       0,  2, 24, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "APCR24",    TRUE, 0x00ffffff, 0x00ffffff, FALSE),
 109     HOWTO(R_PARTLS16,    0,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "APARTLS16", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 110     HOWTO(R_PARTMS8,    16,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "APARTMS8",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 111 };
 112 #define HOWTO_SIZE (sizeof(tic4x_howto_table) / sizeof(tic4x_howto_table[0]))
 113
 114 #undef coff_bfd_reloc_type_lookup
 115 #define coff_bfd_reloc_type_lookup tic4x_coff_reloc_type_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 (abfd, code)
 122     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
 150 /* Code to turn a r_type into a howto ptr, uses the above howto table.
 151    Called after some initial checking by the tic4x_rtype_to_howto fn
 152    below.  */
 153 static void
 154 tic4x_lookup_howto (internal, dst)
 155      arelent *internal;
 156      struct internal_reloc *dst;
 157 {
 158   unsigned int i;
 159   int bank = (dst->r_symndx == -1) ? HOWTO_BANK : 0;
 160
 161   for (i = 0; i < HOWTO_SIZE; i++)
 162     {
 163       if (tic4x_howto_table[i].type == dst->r_type)
 164         {
 165           internal->howto = tic4x_howto_table + i + bank;
 166           return;
 167         }
 168     }
 169
 170   (*_bfd_error_handler) (_("Unrecognized reloc type 0x%x"),
 171                          (unsigned int) dst->r_type);
 172   abort();
 173 }
 174
 175 #undef coff_rtype_to_howto
 176 #define coff_rtype_to_howto coff_tic4x_rtype_to_howto
 177
 178 static reloc_howto_type *
 179 coff_tic4x_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
 180      bfd *abfd ATTRIBUTE_UNUSED;
 181      asection *sec;
 182      struct internal_reloc *rel;
 183      struct coff_link_hash_entry *h ATTRIBUTE_UNUSED;
 184      struct internal_syment *sym ATTRIBUTE_UNUSED;
 185      bfd_vma *addendp;
 186 {
 187   arelent genrel;
 188
 189   if (rel->r_symndx == -1 && addendp != NULL)
 190     /* This is a TI "internal relocation", which means that the relocation
 191        amount is the amount by which the current section is being relocated
 192        in the output section.  */
 193     *addendp = (sec->output_section->vma + sec->output_offset) - sec->vma;
 194
 195   tic4x_lookup_howto (&genrel, rel);
 196
 197   return genrel.howto;
 198 }
 199
 200
 201 static void
 202 tic4x_reloc_processing (relent, reloc, symbols, abfd, section)
 203      arelent *relent;
 204      struct internal_reloc *reloc;
 205      asymbol **symbols;
 206      bfd *abfd;
 207      asection *section;
 208 {
 209   asymbol *ptr;
 210
 211   relent->address = reloc->r_vaddr;
 212
 213   if (reloc->r_symndx != -1)
 214     {
 215       if (reloc->r_symndx < 0 || reloc->r_symndx >= obj_conv_table_size (abfd))
 216         {
 217           (*_bfd_error_handler)
 218             (_("%s: warning: illegal symbol index %ld in relocs"),
 219              bfd_get_filename (abfd), reloc->r_symndx);
 220           relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr;
 221           ptr = NULL;
 222         }
 223       else
 224         {
 225           relent->sym_ptr_ptr = (symbols
 226                                  + obj_convert (abfd)[reloc->r_symndx]);
 227           ptr = *(relent->sym_ptr_ptr);
 228         }
 229     }
 230   else
 231     {
 232       relent->sym_ptr_ptr = section->symbol_ptr_ptr;
 233       ptr = *(relent->sym_ptr_ptr);
 234     }
 235
 236   /* The symbols definitions that we have read in have been relocated
 237      as if their sections started at 0.  But the offsets refering to
 238      the symbols in the raw data have not been modified, so we have to
 239      have a negative addend to compensate.
 240
 241      Note that symbols which used to be common must be left alone.  */
 242
 243   /* Calculate any reloc addend by looking at the symbol.  */
 244   CALC_ADDEND (abfd, ptr, *reloc, relent);
 245
 246   relent->address -= section->vma;
 247   /* !!     relent->section = (asection *) NULL;  */
 248
 249   /* Fill in the relent->howto field from reloc->r_type.  */
 250   tic4x_lookup_howto (relent, reloc);
 251 }
 252
 253
 254 /* TI COFF v0, DOS tools (little-endian headers).  */
 255 CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff0_vec, "coff0-tic4x", HAS_LOAD_PAGE, 0, '_', NULL, (PTR)&ticoff0_swap_table);
 256
 257 /* TI COFF v0, SPARC tools (big-endian headers).  */
 258 CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff0_beh_vec, "coff0-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff0_vec, (PTR)&ticoff0_swap_table);
 259
 260 /* TI COFF v1, DOS tools (little-endian headers).  */
 261 CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff1_vec, "coff1-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff0_beh_vec, (PTR)&ticoff1_swap_table);
 262
 263 /* TI COFF v1, SPARC tools (big-endian headers).  */
 264 CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff1_beh_vec, "coff1-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff1_vec, (PTR)&ticoff1_swap_table);
 265
 266 /* TI COFF v2, TI DOS tools output (little-endian headers).  */
 267 CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff2_vec, "coff2-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff1_beh_vec, COFF_SWAP_TABLE);
 268
 269 /* TI COFF v2, TI SPARC tools output (big-endian headers).  */
 270 CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff2_beh_vec, "coff2-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff2_vec, COFF_SWAP_TABLE);