]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - bfd/aout-tic30.c
projects / thirdparty / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
missed entry
[thirdparty/binutils-gdb.git] / bfd / aout-tic30.c
CommitLineData
252b5132 1/* BFD back-end for TMS320C30 a.out binaries.
7920ce38 2 Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
72adc230 3 Free Software Foundation, Inc.
252b5132
RH		 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 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
3e110533 20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
53e09e0a 21 02110-1301, USA. */
252b5132
RH		 22
23#define TARGET_IS_BIG_ENDIAN_P
7920ce38
NC		 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
252b5132
RH		 29#define ARCH_SIZE 32
30
e43d48cc
AM		 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)
252b5132 35#define TARGETNAME "a.out-tic30"
e43d48cc 36#define NAME(x,y) CONCAT3 (tic30_aout,_32_,y)
252b5132
RH		 37
38#include "bfd.h"
39#include "sysdep.h"
40#include "libaout.h"
252b5132
RH		 41#include "aout/aout64.h"
42#include "aout/stab_gnu.h"
43#include "aout/ar.h"
44
7920ce38
NC		 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
252b5132
RH		 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
7920ce38
NC		 90static bfd_boolean
91tic30_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
dc810e39 112static const struct aout_backend_data tic30_aout_backend_data =
252b5132
RH		 113{
114 MY_zmagic_contiguous,
115 MY_text_includes_header,
116 MY_entry_is_text_address,
117 MY_exec_hdr_flags,
7920ce38 118 0, /* Text vma? */
252b5132
RH		 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
7920ce38
NC		 131static reloc_howto_type *
132 tic30_aout_reloc_howto (bfd *, struct reloc_std_external *, int *, int *, int *);
133static 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
252b5132
RH		 137/* FIXME: This is wrong. aoutx.h should really only be included by
138 aout32.c. */
139
140#include "aoutx.h"
141
7920ce38
NC		 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. */
252b5132 148
7920ce38
NC		 149static bfd_reloc_status_type
150tic30_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)
252b5132 157{
7920ce38
NC		 158 bfd_vma relocation = 1;
159 bfd_byte offset_data = bfd_get_8 (abfd, (bfd_byte *) data + reloc_entry->address - 1);
252b5132 160
7920ce38
NC		 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;
252b5132 166 else
7920ce38
NC		 167 relocation -= 1;
168 bfd_put_16 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
169 return bfd_reloc_ok;
252b5132
RH		 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
c4dfa77f 177 that. */
252b5132
RH		 178
179static bfd_reloc_status_type
7920ce38
NC		 180tic30_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)
252b5132
RH		 187{
188 bfd_vma relocation;
189
c4dfa77f 190 /* Make sure that the symbol's section is defined. */
252b5132
RH		 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
c4dfa77f 194 32-bit address format. */
252b5132
RH		 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
c4dfa77f 202 bit relocations. */
252b5132
RH		 203
204static bfd_reloc_status_type
7920ce38
NC		 205tic30_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)
252b5132
RH		 212{
213 bfd_vma relocation;
214
c4dfa77f 215 /* Make sure that the symbol's section is defined. */
252b5132
RH		 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
c4dfa77f 219 32-bit address format. */
252b5132
RH		 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
7920ce38
NC		 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. */
230reloc_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};
252b5132 249
7920ce38
NC		 250
251static reloc_howto_type *
252tic30_aout_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
253 bfd_reloc_code_real_type code)
252b5132 254{
7920ce38
NC		 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}
252b5132 272
7920ce38
NC		 273static reloc_howto_type *
274tic30_aout_reloc_howto (bfd *abfd,
275 struct reloc_std_external *relocs,
276 int *r_index,
277 int *r_extern,
278 int *r_pcrel)
279{
280 unsigned int r_length;
281 unsigned int r_pcrel_done;
282 int index;
283
284 *r_pcrel = 0;
285 if (bfd_header_big_endian (abfd))
286 {
287 *r_index = ((relocs->r_index[0] << 16) | (relocs->r_index[1] << 8) | relocs->r_index[2]);
288 *r_extern = (0 != (relocs->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
289 r_pcrel_done = (0 != (relocs->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
290 r_length = ((relocs->r_type[0] & RELOC_STD_BITS_LENGTH_BIG) >> RELOC_STD_BITS_LENGTH_SH_BIG);
291 }
252b5132 292 else
7920ce38
NC		 293 {
294 *r_index = ((relocs->r_index[2] << 16) | (relocs->r_index[1] << 8) | relocs->r_index[0]);
295 *r_extern = (0 != (relocs->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
296 r_pcrel_done = (0 != (relocs->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
297 r_length = ((relocs->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE) >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
298 }
299 index = r_length + 4 * r_pcrel_done;
300 return tic30_aout_howto_table + index;
252b5132
RH		 301}
302
303/* These macros will get 24-bit values from the bfd definition.
c4dfa77f 304 Big-endian only. */
beb0d161
KH		 305#define bfd_getb_24(BFD,ADDR) \
306 (bfd_get_8 (BFD, ADDR ) << 16) | \
307 (bfd_get_8 (BFD, ADDR + 1) << 8) | \
308 (bfd_get_8 (BFD, ADDR + 2) )
309
310#define bfd_putb_24(BFD,DATA,ADDR) \
311 bfd_put_8 (BFD, (bfd_byte) ((DATA >> 16) & 0xFF), ADDR ); \
312 bfd_put_8 (BFD, (bfd_byte) ((DATA >> 8) & 0xFF), ADDR + 1); \
313 bfd_put_8 (BFD, (bfd_byte) ( DATA & 0xFF), ADDR + 2)
252b5132
RH		 314
315/* Set parameters about this a.out file that are machine-dependent.
316 This routine is called from some_aout_object_p just before it returns. */
317
318static const bfd_target *
7920ce38 319tic30_aout_callback (bfd *abfd)
252b5132
RH		 320{
321 struct internal_exec *execp = exec_hdr (abfd);
322 unsigned int arch_align_power;
323 unsigned long arch_align;
324
1725a96e 325 /* Calculate the file positions of the parts of a newly read aout header. */
eea6121a 326 obj_textsec (abfd)->size = N_TXTSIZE (*execp);
252b5132 327
1725a96e 328 /* The virtual memory addresses of the sections. */
252b5132
RH		 329 obj_textsec (abfd)->vma = N_TXTADDR (*execp);
330 obj_datasec (abfd)->vma = N_DATADDR (*execp);
331 obj_bsssec (abfd)->vma = N_BSSADDR (*execp);
332
333 obj_textsec (abfd)->lma = obj_textsec (abfd)->vma;
334 obj_datasec (abfd)->lma = obj_datasec (abfd)->vma;
335 obj_bsssec (abfd)->lma = obj_bsssec (abfd)->vma;
336
1725a96e 337 /* The file offsets of the sections. */
252b5132
RH		 338 obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
339 obj_datasec (abfd)->filepos = N_DATOFF (*execp);
340
1725a96e 341 /* The file offsets of the relocation info. */
252b5132
RH		 342 obj_textsec (abfd)->rel_filepos = N_TRELOFF (*execp);
343 obj_datasec (abfd)->rel_filepos = N_DRELOFF (*execp);
344
345 /* The file offsets of the string table and symbol table. */
346 obj_sym_filepos (abfd) = N_SYMOFF (*execp);
347 obj_str_filepos (abfd) = N_STROFF (*execp);
348
349 /* Determine the architecture and machine type of the object file. */
350#ifdef SET_ARCH_MACH
351 SET_ARCH_MACH (abfd, *execp);
352#else
dc810e39 353 bfd_default_set_arch_mach (abfd, DEFAULT_ARCH, 0L);
252b5132
RH		 354#endif
355
356 /* Now that we know the architecture, set the alignments of the
7920ce38 357 sections. This is normally done by NAME (aout,new_section_hook),
252b5132
RH		 358 but when the initial sections were created the architecture had
359 not yet been set. However, for backward compatibility, we don't
360 set the alignment power any higher than as required by the size
361 of the section. */
362 arch_align_power = bfd_get_arch_info (abfd)->section_align_power;
363 arch_align = 1 << arch_align_power;
eea6121a
AM		 364 if ((BFD_ALIGN (obj_textsec (abfd)->size, arch_align)
365 == obj_textsec (abfd)->size)
366 && (BFD_ALIGN (obj_datasec (abfd)->size, arch_align)
367 == obj_datasec (abfd)->size)
368 && (BFD_ALIGN (obj_bsssec (abfd)->size, arch_align)
369 == obj_bsssec (abfd)->size))
252b5132
RH		 370 {
371 obj_textsec (abfd)->alignment_power = arch_align_power;
372 obj_datasec (abfd)->alignment_power = arch_align_power;
373 obj_bsssec (abfd)->alignment_power = arch_align_power;
374 }
375 return abfd->xvec;
376}
377
378static bfd_reloc_status_type
7920ce38
NC		 379tic30_aout_relocate_contents (reloc_howto_type *howto,
380 bfd *input_bfd,
381 bfd_vma relocation,
382 bfd_byte *location)
252b5132
RH		 383{
384 bfd_vma x;
b34976b6 385 bfd_boolean overflow;
252b5132
RH		 386
387 if (howto->size < 0)
388 relocation = -relocation;
389
390 switch (howto->size)
391 {
392 default:
393 case 0:
394 abort ();
395 break;
396 case 1:
397 x = bfd_get_16 (input_bfd, location);
398 break;
399 case 2:
400 x = bfd_getb_24 (input_bfd, location);
401 break;
402 case 3:
403 x = bfd_get_8 (input_bfd, location);
404 break;
405 case 4:
406 x = bfd_get_32 (input_bfd, location);
407 break;
408 }
1725a96e 409
b34976b6 410 overflow = FALSE;
1725a96e 411
252b5132
RH		 412 if (howto->complain_on_overflow != complain_overflow_dont)
413 {
414 bfd_vma check;
415 bfd_signed_vma signed_check;
416 bfd_vma add;
417 bfd_signed_vma signed_add;
418
419 if (howto->rightshift == 0)
420 {
421 check = relocation;
422 signed_check = (bfd_signed_vma) relocation;
423 }
424 else
425 {
426 check = relocation >> howto->rightshift;
427 if ((bfd_signed_vma) relocation >= 0)
428 signed_check = check;
429 else
430 signed_check = (check | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->rightshift)));
431 }
432 add = x & howto->src_mask;
433 signed_add = add;
434 if ((add & (((~howto->src_mask) >> 1) & howto->src_mask)) != 0)
435 signed_add -= (((~howto->src_mask) >> 1) & howto->src_mask) << 1;
436 if (howto->bitpos == 0)
437 {
438 check += add;
439 signed_check += signed_add;
440 }
441 else
442 {
443 check += add >> howto->bitpos;
444 if (signed_add >= 0)
445 signed_check += add >> howto->bitpos;
446 else
447 signed_check += ((add >> howto->bitpos) | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->bitpos)));
448 }
449 switch (howto->complain_on_overflow)
450 {
451 case complain_overflow_signed:
452 {
453 bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1;
454 bfd_signed_vma reloc_signed_min = ~reloc_signed_max;
7920ce38 455
252b5132 456 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
b34976b6 457 overflow = TRUE;
252b5132
RH		 458 }
459 break;
460 case complain_overflow_unsigned:
461 {
462 bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
7920ce38 463
252b5132 464 if (check > reloc_unsigned_max)
b34976b6 465 overflow = TRUE;
252b5132
RH		 466 }
467 break;
468 case complain_overflow_bitfield:
469 {
470 bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
7920ce38 471
dc810e39
AM		 472 if ((check & ~reloc_bits) != 0
473 && (((bfd_vma) signed_check & ~reloc_bits)
474 != ((bfd_vma) -1 & ~reloc_bits)))
b34976b6 475 overflow = TRUE;
252b5132
RH		 476 }
477 break;
478 default:
479 abort ();
480 }
481 }
482 relocation >>= (bfd_vma) howto->rightshift;
483 relocation <<= (bfd_vma) howto->bitpos;
484 x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask));
485 switch (howto->size)
486 {
487 default:
488 case 0:
489 abort ();
490 break;
491 case 1:
492 bfd_put_16 (input_bfd, x, location);
493 break;
494 case 2:
495 bfd_putb_24 (input_bfd, x, location);
496 break;
497 case 3:
498 bfd_put_8 (input_bfd, x, location);
499 break;
500 case 4:
501 bfd_put_32 (input_bfd, x, location);
502 break;
503 }
504 return overflow ? bfd_reloc_overflow : bfd_reloc_ok;
505}
506
7920ce38
NC		 507static bfd_reloc_status_type
508tic30_aout_final_link_relocate (reloc_howto_type *howto,
509 bfd *input_bfd,
510 asection *input_section,
511 bfd_byte *contents,
512 bfd_vma address,
513 bfd_vma value,
514 bfd_vma addend)
515{
516 bfd_vma relocation;
517
518 if (address > bfd_get_section_limit (input_bfd, input_section))
519 return bfd_reloc_outofrange;
520
521 relocation = value + addend;
522 if (howto->pc_relative)
523 {
524 relocation -= (input_section->output_section->vma + input_section->output_offset);
525 if (howto->pcrel_offset)
526 relocation -= address;
527 }
528 return tic30_aout_relocate_contents (howto, input_bfd, relocation,
529 contents + address);
530}
531
1725a96e 532/* Finish up the reading of an a.out file header. */
252b5132
RH		 533
534static const bfd_target *
7920ce38 535tic30_aout_object_p (bfd *abfd)
252b5132 536{
1725a96e 537 struct external_exec exec_bytes; /* Raw exec header from file. */
7920ce38 538 struct internal_exec exec; /* Cleaned-up exec header. */
252b5132 539 const bfd_target *target;
dc810e39 540 bfd_size_type amt = EXEC_BYTES_SIZE;
252b5132 541
7920ce38 542 if (bfd_bread (& exec_bytes, amt, abfd) != amt)
252b5132
RH		 543 {
544 if (bfd_get_error () != bfd_error_system_call)
545 bfd_set_error (bfd_error_wrong_format);
546 return 0;
547 }
548
549#ifdef SWAP_MAGIC
550 exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
551#else
dc810e39 552 exec.a_info = H_GET_32 (abfd, exec_bytes.e_info);
252b5132
RH		 553#endif /* SWAP_MAGIC */
554
555 if (N_BADMAG (exec))
556 return 0;
557#ifdef MACHTYPE_OK
558 if (!(MACHTYPE_OK (N_MACHTYPE (exec))))
559 return 0;
560#endif
561
562 NAME (aout, swap_exec_header_in) (abfd, &exec_bytes, &exec);
563
564#ifdef SWAP_MAGIC
7920ce38 565 /* Swap_exec_header_in read in a_info with the wrong byte order. */
252b5132 566 exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
7920ce38 567#endif
252b5132
RH		 568
569 target = NAME (aout, some_aout_object_p) (abfd, &exec, tic30_aout_callback);
570
571#ifdef ENTRY_CAN_BE_ZERO
572 /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
1725a96e
NC		 573 means that it isn't obvious if EXEC_P should be set.
574 All of the following must be true for an executable:
575 There must be no relocations, the bfd can be neither an
576 archive nor an archive element, and the file must be executable. */
252b5132
RH		 577
578 if (exec.a_trsize + exec.a_drsize == 0
579 && bfd_get_format (abfd) == bfd_object && abfd->my_archive == NULL)
580 {
581 struct stat buf;
582#ifndef S_IXUSR
583#define S_IXUSR 0100 /* Execute by owner. */
584#endif
585 if (stat (abfd->filename, &buf) == 0 && (buf.st_mode & S_IXUSR))
586 abfd->flags |= EXEC_P;
587 }
7920ce38 588#endif
252b5132
RH		 589
590 return target;
591}
592
593/* Copy private section data. This actually does nothing with the
594 sections. It copies the subformat field. We copy it here, because
595 we need to know whether this is a QMAGIC file before we set the
596 section contents, and copy_private_bfd_data is not called until
597 after the section contents have been set. */
598
b34976b6 599static bfd_boolean
7920ce38
NC		 600MY_bfd_copy_private_section_data (bfd *ibfd,
601 asection *isec ATTRIBUTE_UNUSED,
602 bfd *obfd,
603 asection *osec ATTRIBUTE_UNUSED)
252b5132
RH		 604{
605 if (bfd_get_flavour (obfd) == bfd_target_aout_flavour)
606 obj_aout_subformat (obfd) = obj_aout_subformat (ibfd);
b34976b6 607 return TRUE;
252b5132
RH		 608}
609
610/* Write an object file.
611 Section contents have already been written. We write the
612 file header, symbols, and relocation. */
613
b34976b6 614static bfd_boolean
7920ce38 615tic30_aout_write_object_contents (bfd *abfd)
252b5132
RH		 616{
617 struct external_exec exec_bytes;
618 struct internal_exec *execp = exec_hdr (abfd);
619
252b5132 620 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
8ba8a462 621
252b5132 622 {
1725a96e 623 bfd_size_type text_size; /* Dummy vars. */
252b5132 624 file_ptr text_end;
1725a96e 625
252b5132
RH		 626 if (adata (abfd).magic == undecided_magic)
627 NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end);
628
629 execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;
630 execp->a_entry = bfd_get_start_address (abfd);
631
632 execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
633 execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
634 NAME (aout, swap_exec_header_out) (abfd, execp, &exec_bytes);
635
636 if (adata (abfd).exec_bytes_size > 0)
637 {
dc810e39 638 bfd_size_type amt;
7920ce38 639
252b5132 640 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
b34976b6 641 return FALSE;
dc810e39 642 amt = adata (abfd).exec_bytes_size;
7920ce38 643 if (bfd_bwrite (& exec_bytes, amt, abfd) != amt)
b34976b6 644 return FALSE;
252b5132 645 }
252b5132 646
1725a96e 647 /* Now write out reloc info, followed by syms and strings. */
252b5132
RH		 648 if (bfd_get_outsymbols (abfd) != (asymbol **) NULL
649 && bfd_get_symcount (abfd) != 0)
650 {
651 if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (*execp)), SEEK_SET) != 0)
b34976b6 652 return FALSE;
252b5132
RH		 653
654 if (!NAME (aout, write_syms) (abfd))
b34976b6 655 return FALSE;
252b5132
RH		 656 }
657
658 if (bfd_seek (abfd, (file_ptr) (N_TRELOFF (*execp)), SEEK_SET) != 0)
b34976b6 659 return FALSE;
252b5132 660 if (!NAME (aout, squirt_out_relocs) (abfd, obj_textsec (abfd)))
b34976b6 661 return FALSE;
252b5132
RH		 662
663 if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (*execp)), SEEK_SET) != 0)
b34976b6 664 return FALSE;
252b5132 665 if (!NAME (aout, squirt_out_relocs) (abfd, obj_datasec (abfd)))
b34976b6 666 return FALSE;
252b5132
RH		 667 }
668
b34976b6 669 return TRUE;
252b5132
RH		 670}
671
252b5132
RH		 672#ifndef MY_final_link_callback
673
674/* Callback for the final_link routine to set the section offsets. */
675
252b5132 676static void
7920ce38
NC		 677MY_final_link_callback (bfd *abfd,
678 file_ptr *ptreloff,
679 file_ptr *pdreloff,
680 file_ptr *psymoff)
252b5132
RH		 681{
682 struct internal_exec *execp = exec_hdr (abfd);
683
684 *ptreloff = obj_datasec (abfd)->filepos + execp->a_data;
685 *pdreloff = *ptreloff + execp->a_trsize;
686 *psymoff = *pdreloff + execp->a_drsize;;
687}
688
689#endif
690
691#ifndef MY_bfd_final_link
692
693/* Final link routine. We need to use a call back to get the correct
694 offsets in the output file. */
695
b34976b6 696static bfd_boolean
7920ce38 697MY_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
252b5132
RH		 698{
699 struct internal_exec *execp = exec_hdr (abfd);
700 file_ptr pos;
701 bfd_vma vma = 0;
702 int pad;
703
704 /* Set the executable header size to 0, as we don't want one for an
c4dfa77f 705 output. */
252b5132
RH		 706 adata (abfd).exec_bytes_size = 0;
707 pos = adata (abfd).exec_bytes_size;
708 /* Text. */
709 vma = info->create_object_symbols_section->vma;
710 pos += vma;
711 obj_textsec (abfd)->filepos = pos;
712 obj_textsec (abfd)->vma = vma;
713 obj_textsec (abfd)->user_set_vma = 1;
eea6121a
AM		 714 pos += obj_textsec (abfd)->size;
715 vma += obj_textsec (abfd)->size;
252b5132
RH		 716
717 /* Data. */
718 if (abfd->flags & D_PAGED)
719 {
720 if (info->create_object_symbols_section->next->vma > 0)
721 obj_datasec (abfd)->vma = info->create_object_symbols_section->next->vma;
722 else
723 obj_datasec (abfd)->vma = BFD_ALIGN (vma, adata (abfd).segment_size);
724 }
725 else
7920ce38 726 obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
1725a96e 727
252b5132 728 if (obj_datasec (abfd)->vma < vma)
1725a96e
NC		 729 obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
730
252b5132
RH		 731 obj_datasec (abfd)->user_set_vma = 1;
732 vma = obj_datasec (abfd)->vma;
733 obj_datasec (abfd)->filepos = vma + adata (abfd).exec_bytes_size;
734 execp->a_text = vma - obj_textsec (abfd)->vma;
eea6121a 735 obj_textsec (abfd)->size = execp->a_text;
252b5132
RH		 736
737 /* Since BSS follows data immediately, see if it needs alignment. */
eea6121a 738 vma += obj_datasec (abfd)->size;
252b5132 739 pad = align_power (vma, obj_bsssec (abfd)->alignment_power) - vma;
eea6121a
AM		 740 obj_datasec (abfd)->size += pad;
741 pos += obj_datasec (abfd)->size;
742 execp->a_data = obj_datasec (abfd)->size;
252b5132
RH		 743
744 /* BSS. */
745 obj_bsssec (abfd)->vma = vma;
746 obj_bsssec (abfd)->user_set_vma = 1;
747
c4dfa77f 748 /* We are fully resized, so don't readjust in final_link. */
252b5132
RH		 749 adata (abfd).magic = z_magic;
750
751 return NAME (aout, final_link) (abfd, info, MY_final_link_callback);
752}
753
754#endif
755
7920ce38
NC		 756static enum machine_type
757tic30_aout_machine_type (enum bfd_architecture arch,
758 unsigned long machine ATTRIBUTE_UNUSED,
759 bfd_boolean *unknown)
252b5132
RH		 760{
761 enum machine_type arch_flags;
762
763 arch_flags = M_UNKNOWN;
b34976b6 764 *unknown = TRUE;
252b5132
RH		 765
766 switch (arch)
767 {
768 case bfd_arch_tic30:
b34976b6 769 *unknown = FALSE;
252b5132
RH		 770 break;
771 default:
772 arch_flags = M_UNKNOWN;
773 }
774 if (arch_flags != M_UNKNOWN)
b34976b6 775 *unknown = FALSE;
252b5132
RH		 776 return arch_flags;
777}
778
7920ce38
NC		 779static bfd_boolean
780tic30_aout_set_arch_mach (bfd *abfd,
781 enum bfd_architecture arch,
782 unsigned long machine)
252b5132
RH		 783{
784 if (!bfd_default_set_arch_mach (abfd, arch, machine))
b34976b6 785 return FALSE;
252b5132
RH		 786 if (arch != bfd_arch_unknown)
787 {
b34976b6 788 bfd_boolean unknown;
252b5132
RH		 789 tic30_aout_machine_type (arch, machine, &unknown);
790 if (unknown)
b34976b6 791 return FALSE;
252b5132
RH		 792 }
793 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
794 return (*aout_backend_info (abfd)->set_sizes) (abfd);
795}
796
797/* We assume BFD generic archive files. */
798#ifndef MY_openr_next_archived_file
799#define MY_openr_next_archived_file bfd_generic_openr_next_archived_file
800#endif
801#ifndef MY_get_elt_at_index
802#define MY_get_elt_at_index _bfd_generic_get_elt_at_index
803#endif
804#ifndef MY_generic_stat_arch_elt
805#define MY_generic_stat_arch_elt bfd_generic_stat_arch_elt
806#endif
807#ifndef MY_slurp_armap
808#define MY_slurp_armap bfd_slurp_bsd_armap
809#endif
810#ifndef MY_slurp_extended_name_table
811#define MY_slurp_extended_name_table _bfd_slurp_extended_name_table
812#endif
813#ifndef MY_construct_extended_name_table
814#define MY_construct_extended_name_table \
815 _bfd_archive_bsd_construct_extended_name_table
816#endif
817#ifndef MY_write_armap
7920ce38 818#define MY_write_armap bsd_write_armap
252b5132
RH		 819#endif
820#ifndef MY_read_ar_hdr
7920ce38 821#define MY_read_ar_hdr _bfd_generic_read_ar_hdr
252b5132
RH		 822#endif
823#ifndef MY_truncate_arname
824#define MY_truncate_arname bfd_bsd_truncate_arname
825#endif
826#ifndef MY_update_armap_timestamp
7920ce38 827#define MY_update_armap_timestamp _bfd_archive_bsd_update_armap_timestamp
252b5132
RH		 828#endif
829
830/* No core file defined here -- configure in trad-core.c separately. */
831#ifndef MY_core_file_failing_command
7920ce38 832#define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
252b5132
RH		 833#endif
834#ifndef MY_core_file_failing_signal
835#define MY_core_file_failing_signal _bfd_nocore_core_file_failing_signal
836#endif
837#ifndef MY_core_file_matches_executable_p
838#define MY_core_file_matches_executable_p \
839 _bfd_nocore_core_file_matches_executable_p
840#endif
841#ifndef MY_core_file_p
7920ce38 842#define MY_core_file_p _bfd_dummy_target
252b5132
RH		 843#endif
844
845#ifndef MY_bfd_debug_info_start
846#define MY_bfd_debug_info_start bfd_void
847#endif
848#ifndef MY_bfd_debug_info_end
849#define MY_bfd_debug_info_end bfd_void
850#endif
851#ifndef MY_bfd_debug_info_accumulate
852#define MY_bfd_debug_info_accumulate \
7920ce38 853 (void (*) (bfd*, struct bfd_section *)) bfd_void
252b5132
RH		 854#endif
855
856#ifndef MY_core_file_failing_command
7920ce38 857#define MY_core_file_failing_command NAME (aout, core_file_failing_command)
252b5132
RH		 858#endif
859#ifndef MY_core_file_failing_signal
7920ce38 860#define MY_core_file_failing_signal NAME (aout, core_file_failing_signal)
252b5132
RH		 861#endif
862#ifndef MY_core_file_matches_executable_p
7920ce38 863#define MY_core_file_matches_executable_p NAME (aout, core_file_matches_executable_p)
252b5132
RH		 864#endif
865#ifndef MY_set_section_contents
7920ce38 866#define MY_set_section_contents NAME (aout, set_section_contents)
252b5132
RH		 867#endif
868#ifndef MY_get_section_contents
869#define MY_get_section_contents aout_32_get_section_contents
870#endif
871#ifndef MY_get_section_contents_in_window
872#define MY_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
873#endif
874#ifndef MY_new_section_hook
7920ce38 875#define MY_new_section_hook NAME (aout, new_section_hook)
252b5132
RH		 876#endif
877#ifndef MY_get_symtab_upper_bound
7920ce38 878#define MY_get_symtab_upper_bound NAME (aout, get_symtab_upper_bound)
252b5132 879#endif
6cee3f79 880#ifndef MY_canonicalize_symtab
7920ce38 881#define MY_canonicalize_symtab NAME (aout, canonicalize_symtab)
252b5132
RH		 882#endif
883#ifndef MY_get_reloc_upper_bound
7920ce38 884#define MY_get_reloc_upper_bound NAME (aout, get_reloc_upper_bound)
252b5132
RH		 885#endif
886#ifndef MY_canonicalize_reloc
7920ce38 887#define MY_canonicalize_reloc NAME (aout, canonicalize_reloc)
252b5132
RH		 888#endif
889#ifndef MY_make_empty_symbol
7920ce38 890#define MY_make_empty_symbol NAME (aout, make_empty_symbol)
252b5132
RH		 891#endif
892#ifndef MY_print_symbol
7920ce38 893#define MY_print_symbol NAME (aout, print_symbol)
252b5132
RH		 894#endif
895#ifndef MY_get_symbol_info
7920ce38 896#define MY_get_symbol_info NAME (aout, get_symbol_info)
252b5132
RH		 897#endif
898#ifndef MY_get_lineno
7920ce38 899#define MY_get_lineno NAME (aout, get_lineno)
252b5132
RH		 900#endif
901#ifndef MY_set_arch_mach
902#define MY_set_arch_mach tic30_aout_set_arch_mach
903#endif
904#ifndef MY_find_nearest_line
7920ce38 905#define MY_find_nearest_line NAME (aout, find_nearest_line)
252b5132 906#endif
4ab527b0
FF		 907#ifndef MY_find_inliner_info
908#define MY_find_inliner_info _bfd_nosymbols_find_inliner_info
909#endif
252b5132 910#ifndef MY_sizeof_headers
7920ce38 911#define MY_sizeof_headers NAME (aout, sizeof_headers)
252b5132
RH		 912#endif
913#ifndef MY_bfd_get_relocated_section_contents
914#define MY_bfd_get_relocated_section_contents \
915 bfd_generic_get_relocated_section_contents
916#endif
917#ifndef MY_bfd_relax_section
918#define MY_bfd_relax_section bfd_generic_relax_section
919#endif
920#ifndef MY_bfd_gc_sections
921#define MY_bfd_gc_sections bfd_generic_gc_sections
922#endif
8550eb6e
JJ		 923#ifndef MY_bfd_merge_sections
924#define MY_bfd_merge_sections bfd_generic_merge_sections
925#endif
72adc230
AM		 926#ifndef MY_bfd_is_group_section
927#define MY_bfd_is_group_section bfd_generic_is_group_section
928#endif
e61463e1
AM		 929#ifndef MY_bfd_discard_group
930#define MY_bfd_discard_group bfd_generic_discard_group
931#endif
082b7297
L		 932#ifndef MY_section_already_linked
933#define MY_section_already_linked \
934 _bfd_generic_section_already_linked
935#endif
252b5132
RH		 936#ifndef MY_bfd_reloc_type_lookup
937#define MY_bfd_reloc_type_lookup tic30_aout_reloc_type_lookup
938#endif
939#ifndef MY_bfd_make_debug_symbol
940#define MY_bfd_make_debug_symbol 0
941#endif
942#ifndef MY_read_minisymbols
7920ce38 943#define MY_read_minisymbols NAME (aout, read_minisymbols)
252b5132
RH		 944#endif
945#ifndef MY_minisymbol_to_symbol
7920ce38 946#define MY_minisymbol_to_symbol NAME (aout, minisymbol_to_symbol)
252b5132
RH		 947#endif
948#ifndef MY_bfd_link_hash_table_create
7920ce38 949#define MY_bfd_link_hash_table_create NAME (aout, link_hash_table_create)
252b5132 950#endif
e2d34d7d
DJ		 951#ifndef MY_bfd_link_hash_table_free
952#define MY_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
953#endif
252b5132 954#ifndef MY_bfd_link_add_symbols
7920ce38 955#define MY_bfd_link_add_symbols NAME (aout, link_add_symbols)
252b5132 956#endif
2d653fc7
AM		 957#ifndef MY_bfd_link_just_syms
958#define MY_bfd_link_just_syms _bfd_generic_link_just_syms
959#endif
252b5132
RH		 960#ifndef MY_bfd_link_split_section
961#define MY_bfd_link_split_section _bfd_generic_link_split_section
962#endif
963
252b5132
RH		 964#ifndef MY_bfd_copy_private_bfd_data
965#define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
966#endif
967
968#ifndef MY_bfd_merge_private_bfd_data
969#define MY_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
970#endif
971
972#ifndef MY_bfd_copy_private_symbol_data
973#define MY_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
974#endif
975
80fccad2
BW		 976#ifndef MY_bfd_copy_private_header_data
977#define MY_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
978#endif
979
252b5132
RH		 980#ifndef MY_bfd_print_private_bfd_data
981#define MY_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
982#endif
983
984#ifndef MY_bfd_set_private_flags
985#define MY_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
986#endif
987
988#ifndef MY_bfd_is_local_label_name
989#define MY_bfd_is_local_label_name bfd_generic_is_local_label_name
990#endif
991
3c9458e9
NC		 992#ifndef MY_bfd_is_target_special_symbol
993#define MY_bfd_is_target_special_symbol \
994 ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
995#endif
996
252b5132 997#ifndef MY_bfd_free_cached_info
7920ce38 998#define MY_bfd_free_cached_info NAME (aout, bfd_free_cached_info)
252b5132
RH		 999#endif
1000
1001#ifndef MY_close_and_cleanup
1002#define MY_close_and_cleanup MY_bfd_free_cached_info
1003#endif
1004
1005#ifndef MY_get_dynamic_symtab_upper_bound
1006#define MY_get_dynamic_symtab_upper_bound \
1007 _bfd_nodynamic_get_dynamic_symtab_upper_bound
1008#endif
1009#ifndef MY_canonicalize_dynamic_symtab
1010#define MY_canonicalize_dynamic_symtab \
1011 _bfd_nodynamic_canonicalize_dynamic_symtab
1012#endif
4c45e5c9
JJ		 1013#ifndef MY_get_synthetic_symtab
1014#define MY_get_synthetic_symtab \
1015 _bfd_nodynamic_get_synthetic_symtab
1016#endif
252b5132
RH		 1017#ifndef MY_get_dynamic_reloc_upper_bound
1018#define MY_get_dynamic_reloc_upper_bound \
1019 _bfd_nodynamic_get_dynamic_reloc_upper_bound
1020#endif
1021#ifndef MY_canonicalize_dynamic_reloc
1022#define MY_canonicalize_dynamic_reloc \
1023 _bfd_nodynamic_canonicalize_dynamic_reloc
1024#endif
1025
7920ce38 1026/* Aout symbols normally have leading underscores. */
252b5132
RH		 1027#ifndef MY_symbol_leading_char
1028#define MY_symbol_leading_char '_'
1029#endif
1030
7920ce38 1031/* Aout archives normally use spaces for padding. */
252b5132
RH		 1032#ifndef AR_PAD_CHAR
1033#define AR_PAD_CHAR ' '
1034#endif
1035
1036#ifndef MY_BFD_TARGET
1037const bfd_target tic30_aout_vec =
1038{
7920ce38 1039 TARGETNAME, /* Name. */
252b5132 1040 bfd_target_aout_flavour,
7920ce38
NC		 1041 BFD_ENDIAN_BIG, /* Target byte order (big). */
1042 BFD_ENDIAN_BIG, /* Target headers byte order (big). */
1043 (HAS_RELOC | /* Object flags. */
252b5132 1044 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
7920ce38 1045 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* Section flags. */
252b5132 1046 MY_symbol_leading_char,
7920ce38
NC		 1047 AR_PAD_CHAR, /* AR_pad_char. */
1048 15, /* AR_max_namelen. */
252b5132
RH		 1049 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1050 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
7920ce38 1051 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Data. */
252b5132
RH		 1052 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1053 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
7920ce38
NC		 1054 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Headers. */
1055 {_bfd_dummy_target, MY_object_p, /* bfd_check_format. */
252b5132 1056 bfd_generic_archive_p, MY_core_file_p},
7920ce38 1057 {bfd_false, MY_mkobject, /* bfd_set_format. */
252b5132 1058 _bfd_generic_mkarchive, bfd_false},
7920ce38 1059 {bfd_false, MY_write_object_contents, /* bfd_write_contents. */
252b5132
RH		 1060 _bfd_write_archive_contents, bfd_false},
1061
1062 BFD_JUMP_TABLE_GENERIC (MY),
1063 BFD_JUMP_TABLE_COPY (MY),
1064 BFD_JUMP_TABLE_CORE (MY),
1065 BFD_JUMP_TABLE_ARCHIVE (MY),
1066 BFD_JUMP_TABLE_SYMBOLS (MY),
1067 BFD_JUMP_TABLE_RELOCS (MY),
1068 BFD_JUMP_TABLE_WRITE (MY),
1069 BFD_JUMP_TABLE_LINK (MY),
1070 BFD_JUMP_TABLE_DYNAMIC (MY),
1071
c3c89269 1072 NULL,
c4dfa77f 1073
7920ce38 1074 MY_backend_data
252b5132
RH		 1075};
1076#endif /* MY_BFD_TARGET */
A mirror of the official binutils-gdb repository