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