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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [bfd/] [coff-i860.c] - Blame information for rev 578

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
/* BFD back-end for Intel 860 COFF files.
2
   Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1999, 2000
3
   Free Software Foundation, Inc.
4
   Created mostly by substituting "860" for "386" in coff-i386.c
5
   Harry Dolan <dolan@ssd.intel.com>, October 1995
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 02111-1307, USA.  */
22
 
23
#include "bfd.h"
24
#include "sysdep.h"
25
#include "libbfd.h"
26
 
27
#include "coff/i860.h"
28
 
29
#include "coff/internal.h"
30
 
31
#include "libcoff.h"
32
 
33
static bfd_reloc_status_type coff_i860_reloc
34
  PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
35
static reloc_howto_type *coff_i860_rtype_to_howto
36
  PARAMS ((bfd *, asection *, struct internal_reloc *,
37
           struct coff_link_hash_entry *, struct internal_syment *,
38
           bfd_vma *));
39
 
40
#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
41
/* The page size is a guess based on ELF.  */
42
 
43
#define COFF_PAGE_SIZE 0x1000
44
 
45
/* For some reason when using i860 COFF the value stored in the .text
46
   section for a reference to a common symbol is the value itself plus
47
   any desired offset.  Ian Taylor, Cygnus Support.  */
48
 
49
/* If we are producing relocateable output, we need to do some
50
   adjustments to the object file that are not done by the
51
   bfd_perform_relocation function.  This function is called by every
52
   reloc type to make any required adjustments.  */
53
 
54
static bfd_reloc_status_type
55
coff_i860_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd,
56
                 error_message)
57
     bfd *abfd;
58
     arelent *reloc_entry;
59
     asymbol *symbol;
60
     PTR data;
61
     asection *input_section ATTRIBUTE_UNUSED;
62
     bfd *output_bfd;
63
     char **error_message ATTRIBUTE_UNUSED;
64
{
65
  symvalue diff;
66
 
67
  if (output_bfd == (bfd *) NULL)
68
    return bfd_reloc_continue;
69
 
70
  if (bfd_is_com_section (symbol->section))
71
    {
72
      /* We are relocating a common symbol.  The current value in the
73
         object file is ORIG + OFFSET, where ORIG is the value of the
74
         common symbol as seen by the object file when it was compiled
75
         (this may be zero if the symbol was undefined) and OFFSET is
76
         the offset into the common symbol (normally zero, but may be
77
         non-zero when referring to a field in a common structure).
78
         ORIG is the negative of reloc_entry->addend, which is set by
79
         the CALC_ADDEND macro below.  We want to replace the value in
80
         the object file with NEW + OFFSET, where NEW is the value of
81
         the common symbol which we are going to put in the final
82
         object file.  NEW is symbol->value.  */
83
      diff = symbol->value + reloc_entry->addend;
84
    }
85
  else
86
    {
87
      /* For some reason bfd_perform_relocation always effectively
88
         ignores the addend for a COFF target when producing
89
         relocateable output.  This seems to be always wrong for 860
90
         COFF, so we handle the addend here instead.  */
91
      diff = reloc_entry->addend;
92
    }
93
 
94
#define DOIT(x) \
95
  x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + diff) & howto->dst_mask))
96
 
97
    if (diff != 0)
98
      {
99
        reloc_howto_type *howto = reloc_entry->howto;
100
        unsigned char *addr = (unsigned char *) data + reloc_entry->address;
101
 
102
        switch (howto->size)
103
          {
104
          case 0:
105
            {
106
              char x = bfd_get_8 (abfd, addr);
107
              DOIT (x);
108
              bfd_put_8 (abfd, x, addr);
109
            }
110
            break;
111
 
112
          case 1:
113
            {
114
              short x = bfd_get_16 (abfd, addr);
115
              DOIT (x);
116
              bfd_put_16 (abfd, x, addr);
117
            }
118
            break;
119
 
120
          case 2:
121
            {
122
              long x = bfd_get_32 (abfd, addr);
123
              DOIT (x);
124
              bfd_put_32 (abfd, x, addr);
125
            }
126
            break;
127
 
128
          default:
129
            abort ();
130
          }
131
      }
132
 
133
  /* Now let bfd_perform_relocation finish everything up.  */
134
  return bfd_reloc_continue;
135
}
136
 
137
#ifndef PCRELOFFSET
138
#define PCRELOFFSET false
139
#endif
140
 
141
static reloc_howto_type howto_table[] =
142
{
143
  EMPTY_HOWTO (0),
144
  EMPTY_HOWTO (1),
145
  EMPTY_HOWTO (2),
146
  EMPTY_HOWTO (3),
147
  EMPTY_HOWTO (4),
148
  EMPTY_HOWTO (5),
149
  HOWTO (R_DIR32,               /* type */
150
         0,                      /* rightshift */
151
         2,                     /* size (0 = byte, 1 = short, 2 = long) */
152
         32,                    /* bitsize */
153
         false,                 /* pc_relative */
154
         0,                      /* bitpos */
155
         complain_overflow_bitfield, /* complain_on_overflow */
156
         coff_i860_reloc,       /* special_function */
157
         "dir32",               /* name */
158
         true,                  /* partial_inplace */
159
         0xffffffff,            /* src_mask */
160
         0xffffffff,            /* dst_mask */
161
         true),                /* pcrel_offset */
162
  /* {7}, */
163
  HOWTO (R_IMAGEBASE,            /* type */
164
         0,                      /* rightshift */
165
         2,                     /* size (0 = byte, 1 = short, 2 = long) */
166
         32,                    /* bitsize */
167
         false,                 /* pc_relative */
168
         0,                      /* bitpos */
169
         complain_overflow_bitfield, /* complain_on_overflow */
170
         coff_i860_reloc,       /* special_function */
171
         "rva32",                  /* name */
172
         true,                  /* partial_inplace */
173
         0xffffffff,            /* src_mask */
174
         0xffffffff,            /* dst_mask */
175
         false),                /* pcrel_offset */
176
  EMPTY_HOWTO (010),
177
  EMPTY_HOWTO (011),
178
  EMPTY_HOWTO (012),
179
  EMPTY_HOWTO (013),
180
  EMPTY_HOWTO (014),
181
  EMPTY_HOWTO (015),
182
  EMPTY_HOWTO (016),
183
  HOWTO (R_RELBYTE,             /* type */
184
         0,                      /* rightshift */
185
         0,                      /* size (0 = byte, 1 = short, 2 = long) */
186
         8,                     /* bitsize */
187
         false,                 /* pc_relative */
188
         0,                      /* bitpos */
189
         complain_overflow_bitfield, /* complain_on_overflow */
190
         coff_i860_reloc,       /* special_function */
191
         "8",                   /* name */
192
         true,                  /* partial_inplace */
193
         0x000000ff,            /* src_mask */
194
         0x000000ff,            /* dst_mask */
195
         PCRELOFFSET),          /* pcrel_offset */
196
  HOWTO (R_RELWORD,             /* type */
197
         0,                      /* rightshift */
198
         1,                     /* size (0 = byte, 1 = short, 2 = long) */
199
         16,                    /* bitsize */
200
         false,                 /* pc_relative */
201
         0,                      /* bitpos */
202
         complain_overflow_bitfield, /* complain_on_overflow */
203
         coff_i860_reloc,       /* special_function */
204
         "16",                  /* name */
205
         true,                  /* partial_inplace */
206
         0x0000ffff,            /* src_mask */
207
         0x0000ffff,            /* dst_mask */
208
         PCRELOFFSET),          /* pcrel_offset */
209
  HOWTO (R_RELLONG,             /* type */
210
         0,                      /* rightshift */
211
         2,                     /* size (0 = byte, 1 = short, 2 = long) */
212
         32,                    /* bitsize */
213
         false,                 /* pc_relative */
214
         0,                      /* bitpos */
215
         complain_overflow_bitfield, /* complain_on_overflow */
216
         coff_i860_reloc,       /* special_function */
217
         "32",                  /* name */
218
         true,                  /* partial_inplace */
219
         0xffffffff,            /* src_mask */
220
         0xffffffff,            /* dst_mask */
221
         PCRELOFFSET),          /* pcrel_offset */
222
  HOWTO (R_PCRBYTE,             /* type */
223
         0,                      /* rightshift */
224
         0,                      /* size (0 = byte, 1 = short, 2 = long) */
225
         8,                     /* bitsize */
226
         true,                  /* pc_relative */
227
         0,                      /* bitpos */
228
         complain_overflow_signed, /* complain_on_overflow */
229
         coff_i860_reloc,       /* special_function */
230
         "DISP8",               /* name */
231
         true,                  /* partial_inplace */
232
         0x000000ff,            /* src_mask */
233
         0x000000ff,            /* dst_mask */
234
         PCRELOFFSET),          /* pcrel_offset */
235
  HOWTO (R_PCRWORD,             /* type */
236
         0,                      /* rightshift */
237
         1,                     /* size (0 = byte, 1 = short, 2 = long) */
238
         16,                    /* bitsize */
239
         true,                  /* pc_relative */
240
         0,                      /* bitpos */
241
         complain_overflow_signed, /* complain_on_overflow */
242
         coff_i860_reloc,       /* special_function */
243
         "DISP16",              /* name */
244
         true,                  /* partial_inplace */
245
         0x0000ffff,            /* src_mask */
246
         0x0000ffff,            /* dst_mask */
247
         PCRELOFFSET),          /* pcrel_offset */
248
  HOWTO (R_PCRLONG,             /* type */
249
         0,                      /* rightshift */
250
         2,                     /* size (0 = byte, 1 = short, 2 = long) */
251
         32,                    /* bitsize */
252
         true,                  /* pc_relative */
253
         0,                      /* bitpos */
254
         complain_overflow_signed, /* complain_on_overflow */
255
         coff_i860_reloc,       /* special_function */
256
         "DISP32",              /* name */
257
         true,                  /* partial_inplace */
258
         0xffffffff,            /* src_mask */
259
         0xffffffff,            /* dst_mask */
260
         PCRELOFFSET)           /* pcrel_offset */
261
};
262
 
263
/* Turn a howto into a reloc  nunmber */
264
 
265
#define SELECT_RELOC(x,howto) { x.r_type = howto->type; }
266
#define BADMAG(x) I860BADMAG(x)
267
#define I860 1                  /* Customize coffcode.h */
268
 
269
#define RTYPE2HOWTO(cache_ptr, dst) \
270
            (cache_ptr)->howto = howto_table + (dst)->r_type;
271
 
272
/* For 860 COFF a STYP_NOLOAD | STYP_BSS section is part of a shared
273
   library.  On some other COFF targets STYP_BSS is normally
274
   STYP_NOLOAD.  */
275
#define BSS_NOLOAD_IS_SHARED_LIBRARY
276
 
277
/* Compute the addend of a reloc.  If the reloc is to a common symbol,
278
   the object file contains the value of the common symbol.  By the
279
   time this is called, the linker may be using a different symbol
280
   from a different object file with a different value.  Therefore, we
281
   hack wildly to locate the original symbol from this file so that we
282
   can make the correct adjustment.  This macro sets coffsym to the
283
   symbol from the original file, and uses it to set the addend value
284
   correctly.  If this is not a common symbol, the usual addend
285
   calculation is done, except that an additional tweak is needed for
286
   PC relative relocs.
287
   FIXME: This macro refers to symbols and asect; these are from the
288
   calling function, not the macro arguments.  */
289
 
290
#define CALC_ADDEND(abfd, ptr, reloc, cache_ptr)                \
291
  {                                                             \
292
    coff_symbol_type *coffsym = (coff_symbol_type *) NULL;      \
293
    if (ptr && bfd_asymbol_bfd (ptr) != abfd)                   \
294
      coffsym = (obj_symbols (abfd)                             \
295
                 + (cache_ptr->sym_ptr_ptr - symbols));         \
296
    else if (ptr)                                               \
297
      coffsym = coff_symbol_from (abfd, ptr);                   \
298
    if (coffsym != (coff_symbol_type *) NULL                    \
299
        && coffsym->native->u.syment.n_scnum == 0)               \
300
      cache_ptr->addend = - coffsym->native->u.syment.n_value;  \
301
    else if (ptr && bfd_asymbol_bfd (ptr) == abfd               \
302
             && ptr->section != (asection *) NULL)              \
303
      cache_ptr->addend = - (ptr->section->vma + ptr->value);   \
304
    else                                                        \
305
      cache_ptr->addend = 0;                                     \
306
    if (ptr && howto_table[reloc.r_type].pc_relative)           \
307
      cache_ptr->addend += asect->vma;                          \
308
  }
309
 
310
/* We use the special COFF backend linker.  */
311
#define coff_relocate_section _bfd_coff_generic_relocate_section
312
 
313
static reloc_howto_type *
314
coff_i860_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
315
     bfd *abfd ATTRIBUTE_UNUSED;
316
     asection *sec;
317
     struct internal_reloc *rel;
318
     struct coff_link_hash_entry *h;
319
     struct internal_syment *sym;
320
     bfd_vma *addendp;
321
{
322
 
323
  reloc_howto_type *howto;
324
 
325
  howto = howto_table + rel->r_type;
326
 
327
  if (howto->pc_relative)
328
    *addendp += sec->vma;
329
 
330
  if (sym != NULL && sym->n_scnum == 0 && sym->n_value != 0)
331
    {
332
      /* This is a common symbol.  The section contents include the
333
         size (sym->n_value) as an addend.  The relocate_section
334
         function will be adding in the final value of the symbol.  We
335
         need to subtract out the current size in order to get the
336
         correct result.  */
337
 
338
      BFD_ASSERT (h != NULL);
339
 
340
      /* I think we *do* want to bypass this.  If we don't, I have seen some data
341
         parameters get the wrong relcation address.  If I link two versions
342
         with and without this section bypassed and then do a binary comparison,
343
         the addresses which are different can be looked up in the map.  The
344
         case in which this section has been bypassed has addresses which correspond
345
         to values I can find in the map */
346
      *addendp -= sym->n_value;
347
    }
348
 
349
  /* If the output symbol is common (in which case this must be a
350
     relocateable link), we need to add in the final size of the
351
     common symbol.  */
352
  if (h != NULL && h->root.type == bfd_link_hash_common)
353
    *addendp += h->root.u.c.size;
354
 
355
  return howto;
356
}
357
 
358
#define coff_rtype_to_howto coff_i860_rtype_to_howto
359
 
360
#include "coffcode.h"
361
 
362
static const bfd_target *
363
i3coff_object_p(a)
364
     bfd *a;
365
{
366
  return coff_object_p(a);
367
}
368
 
369
const bfd_target
370
#ifdef TARGET_SYM
371
  TARGET_SYM =
372
#else
373
  i860coff_vec =
374
#endif
375
{
376
#ifdef TARGET_NAME
377
  TARGET_NAME,
378
#else
379
  "coff-i860",                  /* name */
380
#endif
381
  bfd_target_coff_flavour,
382
  BFD_ENDIAN_LITTLE,            /* data byte order is little */
383
  BFD_ENDIAN_LITTLE,            /* header byte order is little */
384
 
385
  (HAS_RELOC | EXEC_P |         /* object flags */
386
   HAS_LINENO | HAS_DEBUG |
387
   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
388
 
389
  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
390
  '_',                          /* leading underscore */
391
  '/',                          /* ar_pad_char */
392
  15,                           /* ar_max_namelen */
393
 
394
  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
395
     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
396
     bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
397
  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
398
     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
399
     bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
400
 
401
/* Note that we allow an object file to be treated as a core file as well.  */
402
    {_bfd_dummy_target, i3coff_object_p, /* bfd_check_format */
403
       bfd_generic_archive_p, i3coff_object_p},
404
    {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
405
       bfd_false},
406
    {bfd_false, coff_write_object_contents, /* bfd_write_contents */
407
       _bfd_write_archive_contents, bfd_false},
408
 
409
     BFD_JUMP_TABLE_GENERIC (coff),
410
     BFD_JUMP_TABLE_COPY (coff),
411
     BFD_JUMP_TABLE_CORE (_bfd_nocore),
412
     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
413
     BFD_JUMP_TABLE_SYMBOLS (coff),
414
     BFD_JUMP_TABLE_RELOCS (coff),
415
     BFD_JUMP_TABLE_WRITE (coff),
416
     BFD_JUMP_TABLE_LINK (coff),
417
     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
418
 
419
  NULL,
420
 
421
  COFF_SWAP_TABLE
422
};

powered by: WebSVN 2.1.0

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