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

Subversion Repositories or1k

[/] [or1k/] [branches/] [oc/] [gdb-5.0/] [bfd/] [coff-i860.c] - Blame information for rev 104

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

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

powered by: WebSVN 2.1.0

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