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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [bfd/] [aout-tic30.c] - Blame information for rev 816

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

Line No. Rev Author Line
1 24 jeremybenn
/* BFD back-end for TMS320C30 a.out binaries.
2 225 jeremybenn
   Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2009
3 24 jeremybenn
   Free Software Foundation, Inc.
4
   Contributed by Steven Haworth (steve@pm.cse.rmit.edu.au)
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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA
21
   02110-1301, USA.  */
22
 
23
#define TARGET_IS_BIG_ENDIAN_P
24
#define N_HEADER_IN_TEXT(x)     1
25
#define TEXT_START_ADDR         1024
26
#define TARGET_PAGE_SIZE        128
27
#define SEGMENT_SIZE            TARGET_PAGE_SIZE
28
#define DEFAULT_ARCH            bfd_arch_tic30
29
#define ARCH_SIZE 32
30
 
31
/* Do not "beautify" the CONCAT* macro args.  Traditional C will not
32
   remove whitespace added here, and thus will fail to concatenate
33
   the tokens.  */
34
#define MY(OP) CONCAT2 (tic30_aout_,OP)
35
#define TARGETNAME "a.out-tic30"
36
#define NAME(x,y) CONCAT3 (tic30_aout,_32_,y)
37
 
38
#include "sysdep.h"
39
#include "bfd.h"
40
#include "libaout.h"
41
#include "aout/aout64.h"
42
#include "aout/stab_gnu.h"
43
#include "aout/ar.h"
44
 
45
#define MY_reloc_howto(BFD, REL, IN, EX, PC)   tic30_aout_reloc_howto (BFD, REL, & IN, & EX, & PC)
46
 
47
#define MY_final_link_relocate    tic30_aout_final_link_relocate
48
#define MY_object_p               tic30_aout_object_p
49
#define MY_mkobject               NAME (aout,mkobject)
50
#define MY_write_object_contents  tic30_aout_write_object_contents
51
#define MY_set_sizes              tic30_aout_set_sizes
52
 
53
#ifndef MY_exec_hdr_flags
54
#define MY_exec_hdr_flags 1
55
#endif
56
 
57
#ifndef MY_backend_data
58
 
59
#ifndef MY_zmagic_contiguous
60
#define MY_zmagic_contiguous 0
61
#endif
62
#ifndef MY_text_includes_header
63
#define MY_text_includes_header 0
64
#endif
65
#ifndef MY_entry_is_text_address
66
#define MY_entry_is_text_address 0
67
#endif
68
#ifndef MY_exec_header_not_counted
69
#define MY_exec_header_not_counted 1
70
#endif
71
#ifndef MY_add_dynamic_symbols
72
#define MY_add_dynamic_symbols 0
73
#endif
74
#ifndef MY_add_one_symbol
75
#define MY_add_one_symbol 0
76
#endif
77
#ifndef MY_link_dynamic_object
78
#define MY_link_dynamic_object 0
79
#endif
80
#ifndef MY_write_dynamic_symbol
81
#define MY_write_dynamic_symbol 0
82
#endif
83
#ifndef MY_check_dynamic_reloc
84
#define MY_check_dynamic_reloc 0
85
#endif
86
#ifndef MY_finish_dynamic_link
87
#define MY_finish_dynamic_link 0
88
#endif
89
 
90
static bfd_boolean
91
tic30_aout_set_sizes (bfd *abfd)
92
{
93
  adata (abfd).page_size = TARGET_PAGE_SIZE;
94
 
95
#ifdef SEGMENT_SIZE
96
  adata (abfd).segment_size = SEGMENT_SIZE;
97
#else
98
  adata (abfd).segment_size = TARGET_PAGE_SIZE;
99
#endif
100
 
101
#ifdef ZMAGIC_DISK_BLOCK_SIZE
102
  adata (abfd).zmagic_disk_block_size = ZMAGIC_DISK_BLOCK_SIZE;
103
#else
104
  adata (abfd).zmagic_disk_block_size = TARGET_PAGE_SIZE;
105
#endif
106
 
107
  adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
108
 
109
  return TRUE;
110
}
111
 
112
static const struct aout_backend_data tic30_aout_backend_data =
113
{
114
  MY_zmagic_contiguous,
115
  MY_text_includes_header,
116
  MY_entry_is_text_address,
117
  MY_exec_hdr_flags,
118
  0,                             /* Text vma?  */
119
  MY_set_sizes,
120
  MY_exec_header_not_counted,
121
  MY_add_dynamic_symbols,
122
  MY_add_one_symbol,
123
  MY_link_dynamic_object,
124
  MY_write_dynamic_symbol,
125
  MY_check_dynamic_reloc,
126
  MY_finish_dynamic_link
127
};
128
#define MY_backend_data &tic30_aout_backend_data
129
#endif
130
 
131
static reloc_howto_type *
132
  tic30_aout_reloc_howto (bfd *, struct reloc_std_external *, int *, int *, int *);
133
static bfd_reloc_status_type
134
  tic30_aout_final_link_relocate
135
    (reloc_howto_type *, bfd *, asection *, bfd_byte *, bfd_vma, bfd_vma, bfd_vma);
136
 
137
/* FIXME: This is wrong.  aoutx.h should really only be included by
138
   aout32.c.  */
139
 
140
#include "aoutx.h"
141
 
142
/* This function is used to work out pc-relative offsets for the
143
   TMS320C30.  The data already placed by md_pcrel_from within gas is
144
   useless for a relocation, so we just get the offset value and place
145
   a version of this within the object code.
146
   tic30_aout_final_link_relocate will then calculate the required
147
   relocation to add on to the value in the object code.  */
148
 
149
static bfd_reloc_status_type
150
tic30_aout_fix_pcrel_16 (bfd *abfd,
151
                         arelent *reloc_entry,
152
                         asymbol *symbol ATTRIBUTE_UNUSED,
153
                         void * data,
154
                         asection *input_section ATTRIBUTE_UNUSED,
155
                         bfd *output_bfd ATTRIBUTE_UNUSED,
156
                         char **error_message ATTRIBUTE_UNUSED)
157
{
158
  bfd_vma relocation = 1;
159
  bfd_byte offset_data = bfd_get_8 (abfd, (bfd_byte *) data + reloc_entry->address - 1);
160
 
161
  /* The byte before the location of the fix contains bits 23-16 of
162
     the pcrel instruction.  Bit 21 is set for a delayed instruction
163
     which requires on offset of 3 instead of 1.  */
164
  if (offset_data & 0x20)
165
    relocation -= 3;
166
  else
167
    relocation -= 1;
168
  bfd_put_16 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
169
  return bfd_reloc_ok;
170
}
171
 
172
/* This function is used as a callback for 16-bit relocs.  This is
173
   required for relocations between segments.  A line in aoutx.h
174
   requires that any relocations for the data section should point to
175
   the end of the aligned text section, plus an offset.  By default,
176
   this does not happen, therefore this function takes care of
177
   that.  */
178
 
179
static bfd_reloc_status_type
180
tic30_aout_fix_16 (bfd *abfd,
181
                   arelent *reloc_entry,
182
                   asymbol *symbol,
183
                   void * data,
184
                   asection *input_section ATTRIBUTE_UNUSED,
185
                   bfd *output_bfd,
186
                   char **error_message ATTRIBUTE_UNUSED)
187
{
188
  bfd_vma relocation;
189
 
190
  /* Make sure that the symbol's section is defined.  */
191
  if (symbol->section == &bfd_und_section && (symbol->flags & BSF_WEAK) == 0)
192
    return output_bfd ? bfd_reloc_ok : bfd_reloc_undefined;
193
  /* Get the size of the input section and turn it into the TMS320C30
194
     32-bit address format.  */
195
  relocation = (symbol->section->vma >> 2);
196
  relocation += bfd_get_16 (abfd, (bfd_byte *) data + reloc_entry->address);
197
  bfd_put_16 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
198
  return bfd_reloc_ok;
199
}
200
 
201
/* This function does the same thing as tic30_aout_fix_16 except for 32
202
   bit relocations.  */
203
 
204
static bfd_reloc_status_type
205
tic30_aout_fix_32 (bfd *abfd,
206
                   arelent *reloc_entry,
207
                   asymbol *symbol,
208
                   void * data,
209
                   asection *input_section ATTRIBUTE_UNUSED,
210
                   bfd *output_bfd,
211
                   char **error_message ATTRIBUTE_UNUSED)
212
{
213
  bfd_vma relocation;
214
 
215
  /* Make sure that the symbol's section is defined.  */
216
  if (symbol->section == &bfd_und_section && (symbol->flags & BSF_WEAK) == 0)
217
    return output_bfd ? bfd_reloc_ok : bfd_reloc_undefined;
218
  /* Get the size of the input section and turn it into the TMS320C30
219
     32-bit address format.  */
220
  relocation = (symbol->section->vma >> 2);
221
  relocation += bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
222
  bfd_put_32 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
223
  return bfd_reloc_ok;
224
}
225
 
226
/* This table lists the relocation types for the TMS320C30.  There are
227
   only a few relocations required, and all must be divided by 4 (>>
228
   2) to get the 32-bit addresses in the format the TMS320C30 likes
229
   it.  */
230
reloc_howto_type tic30_aout_howto_table[] =
231
{
232
  EMPTY_HOWTO (-1),
233
  HOWTO (1, 2, 1, 16, FALSE, 0, 0, tic30_aout_fix_16,
234
         "16", FALSE, 0x0000FFFF, 0x0000FFFF, FALSE),
235
  HOWTO (2, 2, 2, 24, FALSE, 0, complain_overflow_bitfield, NULL,
236
         "24", FALSE, 0x00FFFFFF, 0x00FFFFFF, FALSE),
237
  HOWTO (3, 18, 3, 24, FALSE, 0, complain_overflow_bitfield, NULL,
238
         "LDP", FALSE, 0x00FF0000, 0x000000FF, FALSE),
239
  HOWTO (4, 2, 4, 32, FALSE, 0, complain_overflow_bitfield, tic30_aout_fix_32,
240
         "32", FALSE, 0xFFFFFFFF, 0xFFFFFFFF, FALSE),
241
  HOWTO (5, 2, 1, 16, TRUE, 0, complain_overflow_signed,
242
         tic30_aout_fix_pcrel_16, "PCREL", TRUE, 0x0000FFFF, 0x0000FFFF, TRUE),
243
  EMPTY_HOWTO (-1),
244
  EMPTY_HOWTO (-1),
245
  EMPTY_HOWTO (-1),
246
  EMPTY_HOWTO (-1),
247
  EMPTY_HOWTO (-1)
248
};
249
 
250
 
251
static reloc_howto_type *
252
tic30_aout_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
253
                              bfd_reloc_code_real_type code)
254
{
255
  switch (code)
256
    {
257
    case BFD_RELOC_8:
258
    case BFD_RELOC_TIC30_LDP:
259
      return &tic30_aout_howto_table[3];
260
    case BFD_RELOC_16:
261
      return &tic30_aout_howto_table[1];
262
    case BFD_RELOC_24:
263
      return &tic30_aout_howto_table[2];
264
    case BFD_RELOC_16_PCREL:
265
      return &tic30_aout_howto_table[5];
266
    case BFD_RELOC_32:
267
      return &tic30_aout_howto_table[4];
268
    default:
269
      return NULL;
270
    }
271
}
272
 
273
static reloc_howto_type *
274
tic30_aout_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
275
                              const char *r_name)
276
{
277
  unsigned int i;
278
 
279
  for (i = 0;
280
       i < (sizeof (tic30_aout_howto_table)
281
            / sizeof (tic30_aout_howto_table[0]));
282
       i++)
283
    if (tic30_aout_howto_table[i].name != NULL
284
        && strcasecmp (tic30_aout_howto_table[i].name, r_name) == 0)
285
      return &tic30_aout_howto_table[i];
286
 
287
  return NULL;
288
}
289
 
290
static reloc_howto_type *
291
tic30_aout_reloc_howto (bfd *abfd,
292
                        struct reloc_std_external *relocs,
293
                        int *r_index,
294
                        int *r_extern,
295
                        int *r_pcrel)
296
{
297
  unsigned int r_length;
298
  unsigned int r_pcrel_done;
299
  int index;
300
 
301
  *r_pcrel = 0;
302
  if (bfd_header_big_endian (abfd))
303
    {
304
      *r_index = ((relocs->r_index[0] << 16) | (relocs->r_index[1] << 8) | relocs->r_index[2]);
305
      *r_extern = (0 != (relocs->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
306
      r_pcrel_done = (0 != (relocs->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
307
      r_length = ((relocs->r_type[0] & RELOC_STD_BITS_LENGTH_BIG) >> RELOC_STD_BITS_LENGTH_SH_BIG);
308
    }
309
  else
310
    {
311
      *r_index = ((relocs->r_index[2] << 16) | (relocs->r_index[1] << 8) | relocs->r_index[0]);
312
      *r_extern = (0 != (relocs->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
313
      r_pcrel_done = (0 != (relocs->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
314
      r_length = ((relocs->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE) >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
315
    }
316
  index = r_length + 4 * r_pcrel_done;
317
  return tic30_aout_howto_table + index;
318
}
319
 
320
/* These macros will get 24-bit values from the bfd definition.
321
   Big-endian only.  */
322
#define bfd_getb_24(BFD,ADDR)                   \
323
 (bfd_get_8 (BFD, ADDR    ) << 16) |            \
324
 (bfd_get_8 (BFD, ADDR + 1) <<  8) |            \
325
 (bfd_get_8 (BFD, ADDR + 2)      )
326
 
327
#define bfd_putb_24(BFD,DATA,ADDR)                              \
328
 bfd_put_8 (BFD, (bfd_byte) ((DATA >> 16) & 0xFF), ADDR    );   \
329
 bfd_put_8 (BFD, (bfd_byte) ((DATA >>  8) & 0xFF), ADDR + 1);   \
330
 bfd_put_8 (BFD, (bfd_byte) ( DATA        & 0xFF), ADDR + 2)
331
 
332
/* Set parameters about this a.out file that are machine-dependent.
333
   This routine is called from some_aout_object_p just before it returns.  */
334
 
335
static const bfd_target *
336
tic30_aout_callback (bfd *abfd)
337
{
338
  struct internal_exec *execp = exec_hdr (abfd);
339
  unsigned int arch_align_power;
340
  unsigned long arch_align;
341
 
342
  /* Calculate the file positions of the parts of a newly read aout header.  */
343
  obj_textsec (abfd)->size = N_TXTSIZE (*execp);
344
 
345
  /* The virtual memory addresses of the sections.  */
346
  obj_textsec (abfd)->vma = N_TXTADDR (*execp);
347
  obj_datasec (abfd)->vma = N_DATADDR (*execp);
348
  obj_bsssec (abfd)->vma = N_BSSADDR (*execp);
349
 
350
  obj_textsec (abfd)->lma = obj_textsec (abfd)->vma;
351
  obj_datasec (abfd)->lma = obj_datasec (abfd)->vma;
352
  obj_bsssec (abfd)->lma = obj_bsssec (abfd)->vma;
353
 
354
  /* The file offsets of the sections.  */
355
  obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
356
  obj_datasec (abfd)->filepos = N_DATOFF (*execp);
357
 
358
  /* The file offsets of the relocation info.  */
359
  obj_textsec (abfd)->rel_filepos = N_TRELOFF (*execp);
360
  obj_datasec (abfd)->rel_filepos = N_DRELOFF (*execp);
361
 
362
  /* The file offsets of the string table and symbol table.  */
363
  obj_sym_filepos (abfd) = N_SYMOFF (*execp);
364
  obj_str_filepos (abfd) = N_STROFF (*execp);
365
 
366
  /* Determine the architecture and machine type of the object file.  */
367
#ifdef SET_ARCH_MACH
368
  SET_ARCH_MACH (abfd, *execp);
369
#else
370
  bfd_default_set_arch_mach (abfd, DEFAULT_ARCH, 0L);
371
#endif
372
 
373
  /* Now that we know the architecture, set the alignments of the
374
     sections.  This is normally done by NAME (aout,new_section_hook),
375
     but when the initial sections were created the architecture had
376
     not yet been set.  However, for backward compatibility, we don't
377
     set the alignment power any higher than as required by the size
378
     of the section.  */
379
  arch_align_power = bfd_get_arch_info (abfd)->section_align_power;
380
  arch_align = 1 << arch_align_power;
381
  if ((BFD_ALIGN (obj_textsec (abfd)->size, arch_align)
382
       == obj_textsec (abfd)->size)
383
      && (BFD_ALIGN (obj_datasec (abfd)->size, arch_align)
384
          == obj_datasec (abfd)->size)
385
      && (BFD_ALIGN (obj_bsssec (abfd)->size, arch_align)
386
          == obj_bsssec (abfd)->size))
387
    {
388
      obj_textsec (abfd)->alignment_power = arch_align_power;
389
      obj_datasec (abfd)->alignment_power = arch_align_power;
390
      obj_bsssec (abfd)->alignment_power = arch_align_power;
391
    }
392
  return abfd->xvec;
393
}
394
 
395
static bfd_reloc_status_type
396
tic30_aout_relocate_contents (reloc_howto_type *howto,
397
                              bfd *input_bfd,
398
                              bfd_vma relocation,
399
                              bfd_byte *location)
400
{
401
  bfd_vma x;
402
  bfd_boolean overflow;
403
 
404
  if (howto->size < 0)
405
    relocation = -relocation;
406
 
407
  switch (howto->size)
408
    {
409
    default:
410
    case 0:
411
      abort ();
412
      break;
413
    case 1:
414
      x = bfd_get_16 (input_bfd, location);
415
      break;
416
    case 2:
417
      x = bfd_getb_24 (input_bfd, location);
418
      break;
419
    case 3:
420
      x = bfd_get_8 (input_bfd, location);
421
      break;
422
    case 4:
423
      x = bfd_get_32 (input_bfd, location);
424
      break;
425
    }
426
 
427
  overflow = FALSE;
428
 
429
  if (howto->complain_on_overflow != complain_overflow_dont)
430
    {
431
      bfd_vma check;
432
      bfd_signed_vma signed_check;
433
      bfd_vma add;
434
      bfd_signed_vma signed_add;
435
 
436
      if (howto->rightshift == 0)
437
        {
438
          check = relocation;
439
          signed_check = (bfd_signed_vma) relocation;
440
        }
441
      else
442
        {
443
          check = relocation >> howto->rightshift;
444
          if ((bfd_signed_vma) relocation >= 0)
445
            signed_check = check;
446
          else
447
            signed_check = (check | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->rightshift)));
448
        }
449
      add = x & howto->src_mask;
450
      signed_add = add;
451
      if ((add & (((~howto->src_mask) >> 1) & howto->src_mask)) != 0)
452
        signed_add -= (((~howto->src_mask) >> 1) & howto->src_mask) << 1;
453
      if (howto->bitpos == 0)
454
        {
455
          check += add;
456
          signed_check += signed_add;
457
        }
458
      else
459
        {
460
          check += add >> howto->bitpos;
461
          if (signed_add >= 0)
462
            signed_check += add >> howto->bitpos;
463
          else
464
            signed_check += ((add >> howto->bitpos) | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->bitpos)));
465
        }
466
      switch (howto->complain_on_overflow)
467
        {
468
        case complain_overflow_signed:
469
          {
470
            bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1;
471
            bfd_signed_vma reloc_signed_min = ~reloc_signed_max;
472
 
473
            if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
474
              overflow = TRUE;
475
          }
476
          break;
477
        case complain_overflow_unsigned:
478
          {
479
            bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
480
 
481
            if (check > reloc_unsigned_max)
482
              overflow = TRUE;
483
          }
484
          break;
485
        case complain_overflow_bitfield:
486
          {
487
            bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
488
 
489
            if ((check & ~reloc_bits) != 0
490
                && (((bfd_vma) signed_check & ~reloc_bits)
491
                    != ((bfd_vma) -1 & ~reloc_bits)))
492
              overflow = TRUE;
493
          }
494
          break;
495
        default:
496
          abort ();
497
        }
498
    }
499
  relocation >>= (bfd_vma) howto->rightshift;
500
  relocation <<= (bfd_vma) howto->bitpos;
501
  x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask));
502
  switch (howto->size)
503
    {
504
    default:
505
    case 0:
506
      abort ();
507
      break;
508
    case 1:
509
      bfd_put_16 (input_bfd, x, location);
510
      break;
511
    case 2:
512
      bfd_putb_24 (input_bfd, x, location);
513
      break;
514
    case 3:
515
      bfd_put_8 (input_bfd, x, location);
516
      break;
517
    case 4:
518
      bfd_put_32 (input_bfd, x, location);
519
      break;
520
    }
521
  return overflow ? bfd_reloc_overflow : bfd_reloc_ok;
522
}
523
 
524
static bfd_reloc_status_type
525
tic30_aout_final_link_relocate (reloc_howto_type *howto,
526
                                bfd *input_bfd,
527
                                asection *input_section,
528
                                bfd_byte *contents,
529
                                bfd_vma address,
530
                                bfd_vma value,
531
                                bfd_vma addend)
532
{
533
  bfd_vma relocation;
534
 
535
  if (address > bfd_get_section_limit (input_bfd, input_section))
536
    return bfd_reloc_outofrange;
537
 
538
  relocation = value + addend;
539
  if (howto->pc_relative)
540
    {
541
      relocation -= (input_section->output_section->vma + input_section->output_offset);
542
      if (howto->pcrel_offset)
543
        relocation -= address;
544
    }
545
  return tic30_aout_relocate_contents (howto, input_bfd, relocation,
546
                                       contents + address);
547
}
548
 
549
/* Finish up the reading of an a.out file header.  */
550
 
551
static const bfd_target *
552
tic30_aout_object_p (bfd *abfd)
553
{
554
  struct external_exec exec_bytes;      /* Raw exec header from file.  */
555
  struct internal_exec exec;            /* Cleaned-up exec header.  */
556
  const bfd_target *target;
557
  bfd_size_type amt = EXEC_BYTES_SIZE;
558
 
559
  if (bfd_bread (& exec_bytes, amt, abfd) != amt)
560
    {
561
      if (bfd_get_error () != bfd_error_system_call)
562
        bfd_set_error (bfd_error_wrong_format);
563
      return 0;
564
    }
565
 
566
#ifdef SWAP_MAGIC
567
  exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
568
#else
569
  exec.a_info = H_GET_32 (abfd, exec_bytes.e_info);
570
#endif /* SWAP_MAGIC */
571
 
572
  if (N_BADMAG (exec))
573
    return 0;
574
#ifdef MACHTYPE_OK
575
  if (!(MACHTYPE_OK (N_MACHTYPE (exec))))
576
    return 0;
577
#endif
578
 
579
  NAME (aout, swap_exec_header_in) (abfd, &exec_bytes, &exec);
580
 
581
#ifdef SWAP_MAGIC
582
  /* Swap_exec_header_in read in a_info with the wrong byte order.  */
583
  exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
584
#endif
585
 
586
  target = NAME (aout, some_aout_object_p) (abfd, &exec, tic30_aout_callback);
587
 
588
#ifdef ENTRY_CAN_BE_ZERO
589
  /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
590
     means that it isn't obvious if EXEC_P should be set.
591
     All of the following must be true for an executable:
592
     There must be no relocations, the bfd can be neither an
593
     archive nor an archive element, and the file must be executable.  */
594
 
595
  if (exec.a_trsize + exec.a_drsize == 0
596
      && bfd_get_format (abfd) == bfd_object && abfd->my_archive == NULL)
597
    {
598
      struct stat buf;
599
#ifndef S_IXUSR
600
#define S_IXUSR 0100            /* Execute by owner.  */
601
#endif
602
      if (stat (abfd->filename, &buf) == 0 && (buf.st_mode & S_IXUSR))
603
        abfd->flags |= EXEC_P;
604
    }
605
#endif
606
 
607
  return target;
608
}
609
 
610
/* Copy private section data.  This actually does nothing with the
611
   sections.  It copies the subformat field.  We copy it here, because
612
   we need to know whether this is a QMAGIC file before we set the
613
   section contents, and copy_private_bfd_data is not called until
614
   after the section contents have been set.  */
615
 
616
static bfd_boolean
617
MY_bfd_copy_private_section_data (bfd *ibfd,
618
                                  asection *isec ATTRIBUTE_UNUSED,
619
                                  bfd *obfd,
620
                                  asection *osec ATTRIBUTE_UNUSED)
621
{
622
  if (bfd_get_flavour (obfd) == bfd_target_aout_flavour)
623
    obj_aout_subformat (obfd) = obj_aout_subformat (ibfd);
624
  return TRUE;
625
}
626
 
627
/* Write an object file.
628
   Section contents have already been written.  We write the
629
   file header, symbols, and relocation.  */
630
 
631
static bfd_boolean
632
tic30_aout_write_object_contents (bfd *abfd)
633
{
634
  struct external_exec exec_bytes;
635
  struct internal_exec *execp = exec_hdr (abfd);
636
 
637
  obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
638
 
639
  {
640
    bfd_size_type text_size;    /* Dummy vars.  */
641
    file_ptr text_end;
642
 
643
    if (adata (abfd).magic == undecided_magic)
644
      NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end);
645
 
646
    execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;
647
    execp->a_entry = bfd_get_start_address (abfd);
648
 
649
    execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
650
    execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
651
    NAME (aout, swap_exec_header_out) (abfd, execp, &exec_bytes);
652
 
653
    if (adata (abfd).exec_bytes_size > 0)
654
      {
655
        bfd_size_type amt;
656
 
657
        if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
658
          return FALSE;
659
        amt = adata (abfd).exec_bytes_size;
660
        if (bfd_bwrite (& exec_bytes, amt, abfd) != amt)
661
          return FALSE;
662
      }
663
 
664
    /* Now write out reloc info, followed by syms and strings.  */
665
    if (bfd_get_outsymbols (abfd) != (asymbol **) NULL
666
        && bfd_get_symcount (abfd) != 0)
667
      {
668
        if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (*execp)), SEEK_SET) != 0)
669
          return FALSE;
670
 
671
        if (!NAME (aout, write_syms) (abfd))
672
          return FALSE;
673
      }
674
 
675
    if (bfd_seek (abfd, (file_ptr) (N_TRELOFF (*execp)), SEEK_SET) != 0)
676
      return FALSE;
677
    if (!NAME (aout, squirt_out_relocs) (abfd, obj_textsec (abfd)))
678
      return FALSE;
679
 
680
    if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (*execp)), SEEK_SET) != 0)
681
      return FALSE;
682
    if (!NAME (aout, squirt_out_relocs) (abfd, obj_datasec (abfd)))
683
      return FALSE;
684
  }
685
 
686
  return TRUE;
687
}
688
 
689
#ifndef MY_final_link_callback
690
 
691
/* Callback for the final_link routine to set the section offsets.  */
692
 
693
static void
694
MY_final_link_callback (bfd *abfd,
695
                        file_ptr *ptreloff,
696
                        file_ptr *pdreloff,
697
                        file_ptr *psymoff)
698
{
699
  struct internal_exec *execp = exec_hdr (abfd);
700
 
701
  *ptreloff = obj_datasec (abfd)->filepos + execp->a_data;
702
  *pdreloff = *ptreloff + execp->a_trsize;
703
  *psymoff = *pdreloff + execp->a_drsize;;
704
}
705
 
706
#endif
707
 
708
#ifndef MY_bfd_final_link
709
 
710
/* Final link routine.  We need to use a call back to get the correct
711
   offsets in the output file.  */
712
 
713
static bfd_boolean
714
MY_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
715
{
716
  struct internal_exec *execp = exec_hdr (abfd);
717
  file_ptr pos;
718
  bfd_vma vma = 0;
719
  int pad;
720
 
721
  /* Set the executable header size to 0, as we don't want one for an
722
     output.  */
723
  adata (abfd).exec_bytes_size = 0;
724
  pos = adata (abfd).exec_bytes_size;
725
  /* Text.  */
726
  vma = info->create_object_symbols_section->vma;
727
  pos += vma;
728
  obj_textsec (abfd)->filepos = pos;
729
  obj_textsec (abfd)->vma = vma;
730
  obj_textsec (abfd)->user_set_vma = 1;
731
  pos += obj_textsec (abfd)->size;
732
  vma += obj_textsec (abfd)->size;
733
 
734
  /* Data.  */
735
  if (abfd->flags & D_PAGED)
736
    {
737
      if (info->create_object_symbols_section->next->vma > 0)
738
        obj_datasec (abfd)->vma = info->create_object_symbols_section->next->vma;
739
      else
740
        obj_datasec (abfd)->vma = BFD_ALIGN (vma, adata (abfd).segment_size);
741
    }
742
  else
743
    obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
744
 
745
  if (obj_datasec (abfd)->vma < vma)
746
    obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
747
 
748
  obj_datasec (abfd)->user_set_vma = 1;
749
  vma = obj_datasec (abfd)->vma;
750
  obj_datasec (abfd)->filepos = vma + adata (abfd).exec_bytes_size;
751
  execp->a_text = vma - obj_textsec (abfd)->vma;
752
  obj_textsec (abfd)->size = execp->a_text;
753
 
754
  /* Since BSS follows data immediately, see if it needs alignment.  */
755
  vma += obj_datasec (abfd)->size;
756
  pad = align_power (vma, obj_bsssec (abfd)->alignment_power) - vma;
757
  obj_datasec (abfd)->size += pad;
758
  pos += obj_datasec (abfd)->size;
759
  execp->a_data = obj_datasec (abfd)->size;
760
 
761
  /* BSS.  */
762
  obj_bsssec (abfd)->vma = vma;
763
  obj_bsssec (abfd)->user_set_vma = 1;
764
 
765
  /* We are fully resized, so don't readjust in final_link.  */
766
  adata (abfd).magic = z_magic;
767
 
768
  return NAME (aout, final_link) (abfd, info, MY_final_link_callback);
769
}
770
 
771
#endif
772
 
773
static enum machine_type
774
tic30_aout_machine_type (enum bfd_architecture arch,
775
                         unsigned long machine ATTRIBUTE_UNUSED,
776
                         bfd_boolean *unknown)
777
{
778
  enum machine_type arch_flags;
779
 
780
  arch_flags = M_UNKNOWN;
781
  *unknown = TRUE;
782
 
783
  switch (arch)
784
    {
785
    case bfd_arch_tic30:
786
      *unknown = FALSE;
787
      break;
788
    default:
789
      arch_flags = M_UNKNOWN;
790
    }
791
  if (arch_flags != M_UNKNOWN)
792
    *unknown = FALSE;
793
  return arch_flags;
794
}
795
 
796
static bfd_boolean
797
tic30_aout_set_arch_mach (bfd *abfd,
798
                          enum bfd_architecture arch,
799
                          unsigned long machine)
800
{
801
  if (!bfd_default_set_arch_mach (abfd, arch, machine))
802
    return FALSE;
803
  if (arch != bfd_arch_unknown)
804
    {
805
      bfd_boolean unknown;
806
      tic30_aout_machine_type (arch, machine, &unknown);
807
      if (unknown)
808
        return FALSE;
809
    }
810
  obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
811
  return (*aout_backend_info (abfd)->set_sizes) (abfd);
812
}
813
 
814
/* We assume BFD generic archive files.  */
815
#ifndef MY_openr_next_archived_file
816
#define MY_openr_next_archived_file     bfd_generic_openr_next_archived_file
817
#endif
818
#ifndef MY_get_elt_at_index
819
#define MY_get_elt_at_index             _bfd_generic_get_elt_at_index
820
#endif
821
#ifndef MY_generic_stat_arch_elt
822
#define MY_generic_stat_arch_elt        bfd_generic_stat_arch_elt
823
#endif
824
#ifndef MY_slurp_armap
825
#define MY_slurp_armap                  bfd_slurp_bsd_armap
826
#endif
827
#ifndef MY_slurp_extended_name_table
828
#define MY_slurp_extended_name_table    _bfd_slurp_extended_name_table
829
#endif
830
#ifndef MY_construct_extended_name_table
831
#define MY_construct_extended_name_table \
832
  _bfd_archive_bsd_construct_extended_name_table
833
#endif
834
#ifndef MY_write_armap
835
#define MY_write_armap                  bsd_write_armap
836
#endif
837
#ifndef MY_read_ar_hdr
838
#define MY_read_ar_hdr                  _bfd_generic_read_ar_hdr
839
#endif
840
#ifndef MY_truncate_arname
841
#define MY_truncate_arname              bfd_bsd_truncate_arname
842
#endif
843
#ifndef MY_update_armap_timestamp
844
#define MY_update_armap_timestamp       _bfd_archive_bsd_update_armap_timestamp
845
#endif
846
 
847
/* No core file defined here -- configure in trad-core.c separately.  */
848
#ifndef MY_core_file_failing_command
849
#define MY_core_file_failing_command    _bfd_nocore_core_file_failing_command
850
#endif
851
#ifndef MY_core_file_failing_signal
852
#define MY_core_file_failing_signal     _bfd_nocore_core_file_failing_signal
853
#endif
854
#ifndef MY_core_file_matches_executable_p
855
#define MY_core_file_matches_executable_p       \
856
                                _bfd_nocore_core_file_matches_executable_p
857
#endif
858
#ifndef MY_core_file_p
859
#define MY_core_file_p                  _bfd_dummy_target
860
#endif
861
 
862
#ifndef MY_bfd_debug_info_start
863
#define MY_bfd_debug_info_start         bfd_void
864
#endif
865
#ifndef MY_bfd_debug_info_end
866
#define MY_bfd_debug_info_end           bfd_void
867
#endif
868
#ifndef MY_bfd_debug_info_accumulate
869
#define MY_bfd_debug_info_accumulate    \
870
                (void (*) (bfd*, struct bfd_section *)) bfd_void
871
#endif
872
 
873
#ifndef MY_core_file_failing_command
874
#define MY_core_file_failing_command NAME (aout, core_file_failing_command)
875
#endif
876
#ifndef MY_core_file_failing_signal
877
#define MY_core_file_failing_signal NAME (aout, core_file_failing_signal)
878
#endif
879
#ifndef MY_core_file_matches_executable_p
880
#define MY_core_file_matches_executable_p NAME (aout, core_file_matches_executable_p)
881
#endif
882
#ifndef MY_set_section_contents
883
#define MY_set_section_contents NAME (aout, set_section_contents)
884
#endif
885
#ifndef MY_get_section_contents
886
#define MY_get_section_contents aout_32_get_section_contents
887
#endif
888
#ifndef MY_get_section_contents_in_window
889
#define MY_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
890
#endif
891
#ifndef MY_new_section_hook
892
#define MY_new_section_hook NAME (aout, new_section_hook)
893
#endif
894
#ifndef MY_get_symtab_upper_bound
895
#define MY_get_symtab_upper_bound NAME (aout, get_symtab_upper_bound)
896
#endif
897
#ifndef MY_canonicalize_symtab
898
#define MY_canonicalize_symtab NAME (aout, canonicalize_symtab)
899
#endif
900
#ifndef MY_get_reloc_upper_bound
901
#define MY_get_reloc_upper_bound NAME (aout, get_reloc_upper_bound)
902
#endif
903
#ifndef MY_canonicalize_reloc
904
#define MY_canonicalize_reloc NAME (aout, canonicalize_reloc)
905
#endif
906
#ifndef MY_make_empty_symbol
907
#define MY_make_empty_symbol NAME (aout, make_empty_symbol)
908
#endif
909
#ifndef MY_print_symbol
910
#define MY_print_symbol NAME (aout, print_symbol)
911
#endif
912
#ifndef MY_get_symbol_info
913
#define MY_get_symbol_info NAME (aout, get_symbol_info)
914
#endif
915
#ifndef MY_get_lineno
916
#define MY_get_lineno NAME (aout, get_lineno)
917
#endif
918
#ifndef MY_set_arch_mach
919
#define MY_set_arch_mach tic30_aout_set_arch_mach
920
#endif
921
#ifndef MY_find_nearest_line
922
#define MY_find_nearest_line NAME (aout, find_nearest_line)
923
#endif
924
#ifndef MY_find_inliner_info
925
#define MY_find_inliner_info _bfd_nosymbols_find_inliner_info
926
#endif
927
#ifndef MY_sizeof_headers
928
#define MY_sizeof_headers NAME (aout, sizeof_headers)
929
#endif
930
#ifndef MY_bfd_get_relocated_section_contents
931
#define MY_bfd_get_relocated_section_contents \
932
                        bfd_generic_get_relocated_section_contents
933
#endif
934
#ifndef MY_bfd_relax_section
935
#define MY_bfd_relax_section bfd_generic_relax_section
936
#endif
937
#ifndef MY_bfd_gc_sections
938
#define MY_bfd_gc_sections bfd_generic_gc_sections
939
#endif
940
#ifndef MY_bfd_merge_sections
941
#define MY_bfd_merge_sections bfd_generic_merge_sections
942
#endif
943
#ifndef MY_bfd_is_group_section
944
#define MY_bfd_is_group_section bfd_generic_is_group_section
945
#endif
946
#ifndef MY_bfd_discard_group
947
#define MY_bfd_discard_group bfd_generic_discard_group
948
#endif
949
#ifndef MY_section_already_linked
950
#define MY_section_already_linked \
951
  _bfd_generic_section_already_linked
952
#endif
953 225 jeremybenn
#ifndef MY_bfd_define_common_symbol
954
#define MY_bfd_define_common_symbol bfd_generic_define_common_symbol
955
#endif
956 24 jeremybenn
#ifndef MY_bfd_reloc_type_lookup
957
#define MY_bfd_reloc_type_lookup tic30_aout_reloc_type_lookup
958
#endif
959
#ifndef MY_bfd_reloc_name_lookup
960
#define MY_bfd_reloc_name_lookup tic30_aout_reloc_name_lookup
961
#endif
962
#ifndef MY_bfd_make_debug_symbol
963
#define MY_bfd_make_debug_symbol 0
964
#endif
965
#ifndef MY_read_minisymbols
966
#define MY_read_minisymbols NAME (aout, read_minisymbols)
967
#endif
968
#ifndef MY_minisymbol_to_symbol
969
#define MY_minisymbol_to_symbol NAME (aout, minisymbol_to_symbol)
970
#endif
971
#ifndef MY_bfd_link_hash_table_create
972
#define MY_bfd_link_hash_table_create NAME (aout, link_hash_table_create)
973
#endif
974
#ifndef MY_bfd_link_hash_table_free
975
#define MY_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
976
#endif
977
#ifndef MY_bfd_link_add_symbols
978
#define MY_bfd_link_add_symbols NAME (aout, link_add_symbols)
979
#endif
980
#ifndef MY_bfd_link_just_syms
981
#define MY_bfd_link_just_syms _bfd_generic_link_just_syms
982
#endif
983
#ifndef MY_bfd_link_split_section
984
#define MY_bfd_link_split_section  _bfd_generic_link_split_section
985
#endif
986
 
987
#ifndef MY_bfd_copy_private_bfd_data
988
#define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
989
#endif
990
 
991
#ifndef MY_bfd_merge_private_bfd_data
992
#define MY_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
993
#endif
994
 
995
#ifndef MY_bfd_copy_private_symbol_data
996
#define MY_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
997
#endif
998
 
999
#ifndef MY_bfd_copy_private_header_data
1000
#define MY_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
1001
#endif
1002
 
1003
#ifndef MY_bfd_print_private_bfd_data
1004
#define MY_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
1005
#endif
1006
 
1007
#ifndef MY_bfd_set_private_flags
1008
#define MY_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
1009
#endif
1010
 
1011
#ifndef MY_bfd_is_local_label_name
1012
#define MY_bfd_is_local_label_name bfd_generic_is_local_label_name
1013
#endif
1014
 
1015
#ifndef MY_bfd_is_target_special_symbol
1016
#define MY_bfd_is_target_special_symbol  \
1017
  ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
1018
#endif
1019
 
1020
#ifndef MY_bfd_free_cached_info
1021
#define MY_bfd_free_cached_info NAME (aout, bfd_free_cached_info)
1022
#endif
1023
 
1024
#ifndef MY_close_and_cleanup
1025
#define MY_close_and_cleanup MY_bfd_free_cached_info
1026
#endif
1027
 
1028
#ifndef MY_get_dynamic_symtab_upper_bound
1029
#define MY_get_dynamic_symtab_upper_bound \
1030
  _bfd_nodynamic_get_dynamic_symtab_upper_bound
1031
#endif
1032
#ifndef MY_canonicalize_dynamic_symtab
1033
#define MY_canonicalize_dynamic_symtab \
1034
  _bfd_nodynamic_canonicalize_dynamic_symtab
1035
#endif
1036
#ifndef MY_get_synthetic_symtab
1037
#define MY_get_synthetic_symtab \
1038
  _bfd_nodynamic_get_synthetic_symtab
1039
#endif
1040
#ifndef MY_get_dynamic_reloc_upper_bound
1041
#define MY_get_dynamic_reloc_upper_bound \
1042
  _bfd_nodynamic_get_dynamic_reloc_upper_bound
1043
#endif
1044
#ifndef MY_canonicalize_dynamic_reloc
1045
#define MY_canonicalize_dynamic_reloc \
1046
  _bfd_nodynamic_canonicalize_dynamic_reloc
1047
#endif
1048
 
1049
/* Aout symbols normally have leading underscores.  */
1050
#ifndef MY_symbol_leading_char
1051
#define MY_symbol_leading_char '_'
1052
#endif
1053
 
1054
/* Aout archives normally use spaces for padding.  */
1055
#ifndef AR_PAD_CHAR
1056
#define AR_PAD_CHAR ' '
1057
#endif
1058
 
1059
#ifndef MY_BFD_TARGET
1060
const bfd_target tic30_aout_vec =
1061
{
1062
  TARGETNAME,                   /* Name.  */
1063
  bfd_target_aout_flavour,
1064
  BFD_ENDIAN_BIG,               /* Target byte order (big).  */
1065
  BFD_ENDIAN_BIG,               /* Target headers byte order (big).  */
1066
  (HAS_RELOC |                  /* Object flags.  */
1067
   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
1068
  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC),        /* Section flags.  */
1069
  MY_symbol_leading_char,
1070
  AR_PAD_CHAR,                  /* AR_pad_char.  */
1071
  15,                           /* AR_max_namelen.  */
1072
  bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1073
  bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1074
  bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* Data.  */
1075
  bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1076
  bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1077
  bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* Headers.  */
1078
  {_bfd_dummy_target, MY_object_p,              /* bfd_check_format.  */
1079
   bfd_generic_archive_p, MY_core_file_p},
1080
  {bfd_false, MY_mkobject,                      /* bfd_set_format.  */
1081
   _bfd_generic_mkarchive, bfd_false},
1082
  {bfd_false, MY_write_object_contents,         /* bfd_write_contents.  */
1083
   _bfd_write_archive_contents, bfd_false},
1084
 
1085
  BFD_JUMP_TABLE_GENERIC (MY),
1086
  BFD_JUMP_TABLE_COPY (MY),
1087
  BFD_JUMP_TABLE_CORE (MY),
1088
  BFD_JUMP_TABLE_ARCHIVE (MY),
1089
  BFD_JUMP_TABLE_SYMBOLS (MY),
1090
  BFD_JUMP_TABLE_RELOCS (MY),
1091
  BFD_JUMP_TABLE_WRITE (MY),
1092
  BFD_JUMP_TABLE_LINK (MY),
1093
  BFD_JUMP_TABLE_DYNAMIC (MY),
1094
 
1095
  NULL,
1096
 
1097
  MY_backend_data
1098
};
1099
#endif /* MY_BFD_TARGET */

powered by: WebSVN 2.1.0

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