OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.18.50/] [bfd/] [coff-tic4x.c] - Blame information for rev 156

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
/* 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);

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.