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 35static bfd_boolean ticoff_bfd_is_local_label_name 36 PARAMS ((bfd *, const char *)); 37static bfd_reloc_status_type tic4x_relocation 38 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char ** )); 39static reloc_howto_type *tic4x_coff_reloc_type_lookup 40 PARAMS ((bfd *, bfd_reloc_code_real_type )); 41static void tic4x_lookup_howto 42 PARAMS ((arelent *, struct internal_reloc * )); 43static 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 * )); 45static 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. */ 51static bfd_boolean 52ticoff_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 73static bfd_reloc_status_type 74tic4x_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 95reloc_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 120static reloc_howto_type * 121tic4x_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. */ 153static void 154tic4x_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 178static reloc_howto_type * 179coff_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 201static void 202tic4x_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). */ 255CREATE_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). */ 258CREATE_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). */ 261CREATE_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). */ 264CREATE_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). */ 267CREATE_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). */ 270CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff2_beh_vec, "coff2-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff2_vec, COFF_SWAP_TABLE); 271