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