7015becc8d13251992a3b7dee8fa75e74bef7fa2
[deliverable/binutils-gdb.git] / 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);
This page took 0.036542 seconds and 3 git commands to generate.