* reloc.c (_bfd_relocate_contents): Permit bitfield relocations to
[binutils.git] / bfd / aout-tic30.c
blobeae6cb754cb5a8487a1d82a6739601745cb020ae
1 /* BFD back-end for TMS320C30 a.out binaries.
2 Copyright (C) 1998 Free Software Foundation, Inc.
3 Contributed by Steven Haworth (steve@pm.cse.rmit.edu.au)
5 This file is part of BFD, the Binary File Descriptor library.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA. */
22 #define TARGET_IS_BIG_ENDIAN_P
23 #define N_HEADER_IN_TEXT(x) 1
24 #define BYTES_IN_WORD 4
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
31 #define MY(OP) CAT(tic30_aout_,OP)
32 #define TARGETNAME "a.out-tic30"
33 #define NAME(x,y) CAT3(tic30_aout,_32_,y)
35 #include "bfd.h"
36 #include "sysdep.h"
37 #include "libaout.h"
39 #include "aout/aout64.h"
40 #include "aout/stab_gnu.h"
41 #include "aout/ar.h"
43 static bfd_reloc_status_type tic30_aout_fix_16
44 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
45 static bfd_reloc_status_type tic30_aout_fix_32
46 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
47 static bfd_reloc_status_type tic30_aout_fix_pcrel_16
48 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
49 static reloc_howto_type *tic30_aout_reloc_howto
50 PARAMS ((bfd *, struct reloc_std_external *, int *, int *, int *));
51 static bfd_reloc_status_type tic30_aout_relocate_contents
52 PARAMS ((reloc_howto_type *, bfd *, bfd_vma, bfd_byte *));
53 static bfd_reloc_status_type tic30_aout_final_link_relocate
54 PARAMS ((reloc_howto_type *, bfd *, asection *, bfd_byte *, bfd_vma,
55 bfd_vma, bfd_vma));
56 static const bfd_target *tic30_aout_object_p PARAMS ((bfd *));
57 static boolean tic30_aout_write_object_contents PARAMS ((bfd *));
58 static boolean tic30_aout_set_sizes PARAMS ((bfd *));
60 #define MY_reloc_howto(BFD,REL,IN,EX,PC) tic30_aout_reloc_howto(BFD,REL,&IN,&EX,&PC)
61 #define MY_final_link_relocate tic30_aout_final_link_relocate
62 #define MY_object_p tic30_aout_object_p
63 #define MY_mkobject NAME(aout,mkobject)
64 #define MY_write_object_contents tic30_aout_write_object_contents
65 #define MY_set_sizes tic30_aout_set_sizes
67 #ifndef MY_exec_hdr_flags
68 #define MY_exec_hdr_flags 1
69 #endif
71 #ifndef MY_backend_data
73 #ifndef MY_zmagic_contiguous
74 #define MY_zmagic_contiguous 0
75 #endif
76 #ifndef MY_text_includes_header
77 #define MY_text_includes_header 0
78 #endif
79 #ifndef MY_entry_is_text_address
80 #define MY_entry_is_text_address 0
81 #endif
82 #ifndef MY_exec_header_not_counted
83 #define MY_exec_header_not_counted 1
84 #endif
85 #ifndef MY_add_dynamic_symbols
86 #define MY_add_dynamic_symbols 0
87 #endif
88 #ifndef MY_add_one_symbol
89 #define MY_add_one_symbol 0
90 #endif
91 #ifndef MY_link_dynamic_object
92 #define MY_link_dynamic_object 0
93 #endif
94 #ifndef MY_write_dynamic_symbol
95 #define MY_write_dynamic_symbol 0
96 #endif
97 #ifndef MY_check_dynamic_reloc
98 #define MY_check_dynamic_reloc 0
99 #endif
100 #ifndef MY_finish_dynamic_link
101 #define MY_finish_dynamic_link 0
102 #endif
104 static CONST struct aout_backend_data tic30_aout_backend_data =
106 MY_zmagic_contiguous,
107 MY_text_includes_header,
108 MY_entry_is_text_address,
109 MY_exec_hdr_flags,
110 0, /* text vma? */
111 MY_set_sizes,
112 MY_exec_header_not_counted,
113 MY_add_dynamic_symbols,
114 MY_add_one_symbol,
115 MY_link_dynamic_object,
116 MY_write_dynamic_symbol,
117 MY_check_dynamic_reloc,
118 MY_finish_dynamic_link
120 #define MY_backend_data &tic30_aout_backend_data
121 #endif
123 /* FIXME: This is wrong. aoutx.h should really only be included by
124 aout32.c. */
126 #include "aoutx.h"
128 /* This table lists the relocation types for the TMS320C30. There are
129 only a few relocations required, and all must be divided by 4 (>>
130 2) to get the 32-bit addresses in the format the TMS320C30 likes
131 it. */
132 reloc_howto_type tic30_aout_howto_table[] =
134 {-1},
135 HOWTO (1, 2, 1, 16, false, 0, 0, tic30_aout_fix_16,
136 "16", false, 0x0000FFFF, 0x0000FFFF, false),
137 HOWTO (2, 2, 2, 24, false, 0, complain_overflow_bitfield, NULL,
138 "24", false, 0x00FFFFFF, 0x00FFFFFF, false),
139 HOWTO (3, 18, 3, 24, false, 0, complain_overflow_bitfield, NULL,
140 "LDP", false, 0x00FF0000, 0x000000FF, false),
141 HOWTO (4, 2, 4, 32, false, 0, complain_overflow_bitfield, tic30_aout_fix_32,
142 "32", false, 0xFFFFFFFF, 0xFFFFFFFF, false),
143 HOWTO (5, 2, 1, 16, true, 0, complain_overflow_signed,
144 tic30_aout_fix_pcrel_16, "PCREL", true, 0x0000FFFF, 0x0000FFFF, true),
145 {-1},
146 {-1},
147 {-1},
148 {-1},
149 {-1}
152 extern reloc_howto_type *NAME (aout, reloc_type_lookup) ();
154 reloc_howto_type *
155 tic30_aout_reloc_type_lookup (abfd, code)
156 bfd *abfd;
157 bfd_reloc_code_real_type code;
159 switch (code)
161 case BFD_RELOC_8:
162 case BFD_RELOC_TIC30_LDP:
163 return &tic30_aout_howto_table[3];
164 case BFD_RELOC_16:
165 return &tic30_aout_howto_table[1];
166 case BFD_RELOC_24:
167 return &tic30_aout_howto_table[2];
168 case BFD_RELOC_16_PCREL:
169 return &tic30_aout_howto_table[5];
170 case BFD_RELOC_32:
171 return &tic30_aout_howto_table[4];
172 default:
173 return (reloc_howto_type *) NULL;
177 static reloc_howto_type *
178 tic30_aout_reloc_howto (abfd, relocs, r_index, r_extern, r_pcrel)
179 bfd *abfd;
180 struct reloc_std_external *relocs;
181 int *r_index;
182 int *r_extern;
183 int *r_pcrel;
185 unsigned int r_length;
186 unsigned int r_pcrel_done;
187 int index;
189 *r_pcrel = 0;
190 if (bfd_header_big_endian (abfd))
192 *r_index = ((relocs->r_index[0] << 16) | (relocs->r_index[1] << 8) | relocs->r_index[2]);
193 *r_extern = (0 != (relocs->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
194 r_pcrel_done = (0 != (relocs->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
195 r_length = ((relocs->r_type[0] & RELOC_STD_BITS_LENGTH_BIG) >> RELOC_STD_BITS_LENGTH_SH_BIG);
197 else
199 *r_index = ((relocs->r_index[2] << 16) | (relocs->r_index[1] << 8) | relocs->r_index[0]);
200 *r_extern = (0 != (relocs->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
201 r_pcrel_done = (0 != (relocs->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
202 r_length = ((relocs->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE) >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
204 index = r_length + 4 * r_pcrel_done;
205 return tic30_aout_howto_table + index;
208 /* This function is used as a callback for 16-bit relocs. This is
209 required for relocations between segments. A line in aoutx.h
210 requires that any relocations for the data section should point to
211 the end of the aligned text section, plus an offset. By default,
212 this does not happen, therefore this function takes care of
213 that. */
215 static bfd_reloc_status_type
216 tic30_aout_fix_16 (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message)
217 bfd *abfd;
218 arelent *reloc_entry;
219 asymbol *symbol;
220 PTR data;
221 asection *input_section;
222 bfd *output_bfd;
223 char **error_message;
225 bfd_vma relocation;
227 /* Make sure that the symbol's section is defined. */
228 if (symbol->section == &bfd_und_section && (symbol->flags & BSF_WEAK) == 0)
229 return output_bfd ? bfd_reloc_ok : bfd_reloc_undefined;
230 /* Get the size of the input section and turn it into the TMS320C30
231 32-bit address format. */
232 relocation = (symbol->section->vma >> 2);
233 relocation += bfd_get_16 (abfd, (bfd_byte *) data + reloc_entry->address);
234 bfd_put_16 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
235 return bfd_reloc_ok;
238 /* This function does the same thing as tic30_aout_fix_16 except for 32
239 bit relocations. */
241 static bfd_reloc_status_type
242 tic30_aout_fix_32 (abfd, reloc_entry, symbol, data, input_section,
243 output_bfd, error_message)
244 bfd *abfd;
245 arelent *reloc_entry;
246 asymbol *symbol;
247 PTR data;
248 asection *input_section;
249 bfd *output_bfd;
250 char **error_message;
252 bfd_vma relocation;
254 /* Make sure that the symbol's section is defined. */
255 if (symbol->section == &bfd_und_section && (symbol->flags & BSF_WEAK) == 0)
256 return output_bfd ? bfd_reloc_ok : bfd_reloc_undefined;
257 /* Get the size of the input section and turn it into the TMS320C30
258 32-bit address format. */
259 relocation = (symbol->section->vma >> 2);
260 relocation += bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
261 bfd_put_32 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
262 return bfd_reloc_ok;
265 /* This function is used to work out pc-relative offsets for the
266 TMS320C30. The data already placed by md_pcrel_from within gas is
267 useless for a relocation, so we just get the offset value and place
268 a version of this within the object code.
269 tic30_aout_final_link_relocate will then calculate the required
270 relocation to add on to the value in the object code. */
272 static bfd_reloc_status_type
273 tic30_aout_fix_pcrel_16 (abfd, reloc_entry, symbol, data, input_section,
274 output_bfd, error_message)
275 bfd *abfd;
276 arelent *reloc_entry;
277 asymbol *symbol;
278 PTR data;
279 asection *input_section;
280 bfd *output_bfd;
281 char **error_message;
283 bfd_vma relocation = 1;
284 bfd_byte offset_data = bfd_get_8 (abfd, (bfd_byte *) data + reloc_entry->address - 1);
286 /* The byte before the location of the fix contains bits 23-16 of
287 the pcrel instruction. Bit 21 is set for a delayed instruction
288 which requires on offset of 3 instead of 1. */
289 if (offset_data & 0x20)
290 relocation -= 3;
291 else
292 relocation -= 1;
293 bfd_put_16 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
294 return bfd_reloc_ok;
297 /* These macros will get 24-bit values from the bfd definition.
298 Big-endian only. */
299 #define bfd_getb_24(BFD,ADDR) (bfd_get_8(BFD,ADDR) << 16) | \
300 (bfd_get_8(BFD,ADDR+1) << 8) | \
301 (bfd_get_8(BFD,ADDR+2))
303 #define bfd_putb_24(BFD,DATA,ADDR) bfd_put_8(BFD,(bfd_byte)((DATA >> 16) & 0xFF),ADDR); \
304 bfd_put_8(BFD,(bfd_byte)((DATA >> 8) & 0xFF),ADDR+1); \
305 bfd_put_8(BFD,(bfd_byte)(DATA & 0xFF),ADDR+2)
307 /* Set parameters about this a.out file that are machine-dependent.
308 This routine is called from some_aout_object_p just before it returns. */
310 static const bfd_target *
311 tic30_aout_callback (abfd)
312 bfd *abfd;
314 struct internal_exec *execp = exec_hdr (abfd);
315 unsigned int arch_align_power;
316 unsigned long arch_align;
318 /* Calculate the file positions of the parts of a newly read aout header */
319 obj_textsec (abfd)->_raw_size = N_TXTSIZE (*execp);
321 /* The virtual memory addresses of the sections */
322 obj_textsec (abfd)->vma = N_TXTADDR (*execp);
323 obj_datasec (abfd)->vma = N_DATADDR (*execp);
324 obj_bsssec (abfd)->vma = N_BSSADDR (*execp);
326 obj_textsec (abfd)->lma = obj_textsec (abfd)->vma;
327 obj_datasec (abfd)->lma = obj_datasec (abfd)->vma;
328 obj_bsssec (abfd)->lma = obj_bsssec (abfd)->vma;
330 /* The file offsets of the sections */
331 obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
332 obj_datasec (abfd)->filepos = N_DATOFF (*execp);
334 /* The file offsets of the relocation info */
335 obj_textsec (abfd)->rel_filepos = N_TRELOFF (*execp);
336 obj_datasec (abfd)->rel_filepos = N_DRELOFF (*execp);
338 /* The file offsets of the string table and symbol table. */
339 obj_sym_filepos (abfd) = N_SYMOFF (*execp);
340 obj_str_filepos (abfd) = N_STROFF (*execp);
342 /* Determine the architecture and machine type of the object file. */
343 #ifdef SET_ARCH_MACH
344 SET_ARCH_MACH (abfd, *execp);
345 #else
346 bfd_default_set_arch_mach (abfd, DEFAULT_ARCH, 0);
347 #endif
349 /* Now that we know the architecture, set the alignments of the
350 sections. This is normally done by NAME(aout,new_section_hook),
351 but when the initial sections were created the architecture had
352 not yet been set. However, for backward compatibility, we don't
353 set the alignment power any higher than as required by the size
354 of the section. */
355 arch_align_power = bfd_get_arch_info (abfd)->section_align_power;
356 arch_align = 1 << arch_align_power;
357 if ((BFD_ALIGN (obj_textsec (abfd)->_raw_size, arch_align)
358 == obj_textsec (abfd)->_raw_size)
359 && (BFD_ALIGN (obj_datasec (abfd)->_raw_size, arch_align)
360 == obj_datasec (abfd)->_raw_size)
361 && (BFD_ALIGN (obj_bsssec (abfd)->_raw_size, arch_align)
362 == obj_bsssec (abfd)->_raw_size))
364 obj_textsec (abfd)->alignment_power = arch_align_power;
365 obj_datasec (abfd)->alignment_power = arch_align_power;
366 obj_bsssec (abfd)->alignment_power = arch_align_power;
368 return abfd->xvec;
371 static bfd_reloc_status_type
372 tic30_aout_final_link_relocate (howto, input_bfd, input_section, contents,
373 address, value, addend)
374 reloc_howto_type *howto;
375 bfd *input_bfd;
376 asection *input_section;
377 bfd_byte *contents;
378 bfd_vma address;
379 bfd_vma value;
380 bfd_vma addend;
382 bfd_vma relocation;
384 if (address > input_section->_raw_size)
385 return bfd_reloc_outofrange;
387 relocation = value + addend;
388 if (howto->pc_relative)
390 relocation -= (input_section->output_section->vma + input_section->output_offset);
391 if (howto->pcrel_offset)
392 relocation -= address;
394 return tic30_aout_relocate_contents (howto, input_bfd, relocation,
395 contents + address);
398 bfd_reloc_status_type
399 tic30_aout_relocate_contents (howto, input_bfd, relocation, location)
400 reloc_howto_type *howto;
401 bfd *input_bfd;
402 bfd_vma relocation;
403 bfd_byte *location;
405 bfd_vma x;
406 boolean overflow;
408 if (howto->size < 0)
409 relocation = -relocation;
411 switch (howto->size)
413 default:
414 case 0:
415 abort ();
416 break;
417 case 1:
418 x = bfd_get_16 (input_bfd, location);
419 break;
420 case 2:
421 x = bfd_getb_24 (input_bfd, location);
422 break;
423 case 3:
424 x = bfd_get_8 (input_bfd, location);
425 break;
426 case 4:
427 x = bfd_get_32 (input_bfd, location);
428 break;
430 overflow = false;
431 if (howto->complain_on_overflow != complain_overflow_dont)
433 bfd_vma check;
434 bfd_signed_vma signed_check;
435 bfd_vma add;
436 bfd_signed_vma signed_add;
438 if (howto->rightshift == 0)
440 check = relocation;
441 signed_check = (bfd_signed_vma) relocation;
443 else
445 check = relocation >> howto->rightshift;
446 if ((bfd_signed_vma) relocation >= 0)
447 signed_check = check;
448 else
449 signed_check = (check | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->rightshift)));
451 add = x & howto->src_mask;
452 signed_add = add;
453 if ((add & (((~howto->src_mask) >> 1) & howto->src_mask)) != 0)
454 signed_add -= (((~howto->src_mask) >> 1) & howto->src_mask) << 1;
455 if (howto->bitpos == 0)
457 check += add;
458 signed_check += signed_add;
460 else
462 check += add >> howto->bitpos;
463 if (signed_add >= 0)
464 signed_check += add >> howto->bitpos;
465 else
466 signed_check += ((add >> howto->bitpos) | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->bitpos)));
468 switch (howto->complain_on_overflow)
470 case complain_overflow_signed:
472 bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1;
473 bfd_signed_vma reloc_signed_min = ~reloc_signed_max;
474 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
475 overflow = true;
477 break;
478 case complain_overflow_unsigned:
480 bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
481 if (check > reloc_unsigned_max)
482 overflow = true;
484 break;
485 case complain_overflow_bitfield:
487 bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
488 if ((check & ~reloc_bits) != 0 && (((bfd_vma) signed_check & ~reloc_bits) != (-1 & ~reloc_bits)))
489 overflow = true;
491 break;
492 default:
493 abort ();
496 relocation >>= (bfd_vma) howto->rightshift;
497 relocation <<= (bfd_vma) howto->bitpos;
498 x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask));
499 switch (howto->size)
501 default:
502 case 0:
503 abort ();
504 break;
505 case 1:
506 bfd_put_16 (input_bfd, x, location);
507 break;
508 case 2:
509 bfd_putb_24 (input_bfd, x, location);
510 break;
511 case 3:
512 bfd_put_8 (input_bfd, x, location);
513 break;
514 case 4:
515 bfd_put_32 (input_bfd, x, location);
516 break;
518 return overflow ? bfd_reloc_overflow : bfd_reloc_ok;
521 /* Finish up the reading of an a.out file header */
523 static const bfd_target *
524 tic30_aout_object_p (abfd)
525 bfd *abfd;
527 struct external_exec exec_bytes; /* Raw exec header from file */
528 struct internal_exec exec; /* Cleaned-up exec header */
529 const bfd_target *target;
531 if (bfd_read ((PTR) & exec_bytes, 1, EXEC_BYTES_SIZE, abfd)
532 != EXEC_BYTES_SIZE)
534 if (bfd_get_error () != bfd_error_system_call)
535 bfd_set_error (bfd_error_wrong_format);
536 return 0;
539 #ifdef SWAP_MAGIC
540 exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
541 #else
542 exec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info);
543 #endif /* SWAP_MAGIC */
545 if (N_BADMAG (exec))
546 return 0;
547 #ifdef MACHTYPE_OK
548 if (!(MACHTYPE_OK (N_MACHTYPE (exec))))
549 return 0;
550 #endif
552 NAME (aout, swap_exec_header_in) (abfd, &exec_bytes, &exec);
554 #ifdef SWAP_MAGIC
555 /* swap_exec_header_in read in a_info with the wrong byte order */
556 exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
557 #endif /* SWAP_MAGIC */
559 target = NAME (aout, some_aout_object_p) (abfd, &exec, tic30_aout_callback);
561 #ifdef ENTRY_CAN_BE_ZERO
562 /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
563 * means that it isn't obvious if EXEC_P should be set.
564 * All of the following must be true for an executable:
565 * There must be no relocations, the bfd can be neither an
566 * archive nor an archive element, and the file must be executable. */
568 if (exec.a_trsize + exec.a_drsize == 0
569 && bfd_get_format (abfd) == bfd_object && abfd->my_archive == NULL)
571 struct stat buf;
572 #ifndef S_IXUSR
573 #define S_IXUSR 0100 /* Execute by owner. */
574 #endif
575 if (stat (abfd->filename, &buf) == 0 && (buf.st_mode & S_IXUSR))
576 abfd->flags |= EXEC_P;
578 #endif /* ENTRY_CAN_BE_ZERO */
580 return target;
583 /* Copy private section data. This actually does nothing with the
584 sections. It copies the subformat field. We copy it here, because
585 we need to know whether this is a QMAGIC file before we set the
586 section contents, and copy_private_bfd_data is not called until
587 after the section contents have been set. */
589 /*ARGSUSED */
590 static boolean
591 MY_bfd_copy_private_section_data (ibfd, isec, obfd, osec)
592 bfd *ibfd;
593 asection *isec;
594 bfd *obfd;
595 asection *osec;
597 if (bfd_get_flavour (obfd) == bfd_target_aout_flavour)
598 obj_aout_subformat (obfd) = obj_aout_subformat (ibfd);
599 return true;
602 /* Write an object file.
603 Section contents have already been written. We write the
604 file header, symbols, and relocation. */
606 static boolean
607 tic30_aout_write_object_contents (abfd)
608 bfd *abfd;
610 struct external_exec exec_bytes;
611 struct internal_exec *execp = exec_hdr (abfd);
613 #if CHOOSE_RELOC_SIZE
614 CHOOSE_RELOC_SIZE (abfd);
615 #else
616 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
617 #endif
619 bfd_size_type text_size; /* dummy vars */
620 file_ptr text_end;
621 if (adata (abfd).magic == undecided_magic)
622 NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end);
624 execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;
625 execp->a_entry = bfd_get_start_address (abfd);
627 execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
628 execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
629 NAME (aout, swap_exec_header_out) (abfd, execp, &exec_bytes);
631 if (adata (abfd).exec_bytes_size > 0)
633 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
634 return false;
635 if (bfd_write ((PTR) & exec_bytes, 1, adata (abfd).exec_bytes_size, abfd) != adata (abfd).exec_bytes_size)
636 return false;
638 /* Now write out reloc info, followed by syms and strings */
640 if (bfd_get_outsymbols (abfd) != (asymbol **) NULL
641 && bfd_get_symcount (abfd) != 0)
643 if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (*execp)), SEEK_SET) != 0)
644 return false;
646 if (!NAME (aout, write_syms) (abfd))
647 return false;
650 if (bfd_seek (abfd, (file_ptr) (N_TRELOFF (*execp)), SEEK_SET) != 0)
651 return false;
652 if (!NAME (aout, squirt_out_relocs) (abfd, obj_textsec (abfd)))
653 return false;
655 if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (*execp)), SEEK_SET) != 0)
656 return false;
657 if (!NAME (aout, squirt_out_relocs) (abfd, obj_datasec (abfd)))
658 return false;
661 return true;
664 static boolean
665 tic30_aout_set_sizes (abfd)
666 bfd *abfd;
668 adata (abfd).page_size = TARGET_PAGE_SIZE;
670 #ifdef SEGMENT_SIZE
671 adata (abfd).segment_size = SEGMENT_SIZE;
672 #else
673 adata (abfd).segment_size = TARGET_PAGE_SIZE;
674 #endif
676 #ifdef ZMAGIC_DISK_BLOCK_SIZE
677 adata (abfd).zmagic_disk_block_size = ZMAGIC_DISK_BLOCK_SIZE;
678 #else
679 adata (abfd).zmagic_disk_block_size = TARGET_PAGE_SIZE;
680 #endif
682 adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
684 return true;
687 #ifndef MY_final_link_callback
689 /* Callback for the final_link routine to set the section offsets. */
691 static void MY_final_link_callback
692 PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *));
694 static void
695 MY_final_link_callback (abfd, ptreloff, pdreloff, psymoff)
696 bfd *abfd;
697 file_ptr *ptreloff;
698 file_ptr *pdreloff;
699 file_ptr *psymoff;
701 struct internal_exec *execp = exec_hdr (abfd);
703 *ptreloff = obj_datasec (abfd)->filepos + execp->a_data;
704 *pdreloff = *ptreloff + execp->a_trsize;
705 *psymoff = *pdreloff + execp->a_drsize;;
708 #endif
710 #ifndef MY_bfd_final_link
712 /* Final link routine. We need to use a call back to get the correct
713 offsets in the output file. */
715 static boolean
716 MY_bfd_final_link (abfd, info)
717 bfd *abfd;
718 struct bfd_link_info *info;
720 struct internal_exec *execp = exec_hdr (abfd);
721 file_ptr pos;
722 bfd_vma vma = 0;
723 int pad;
725 /* Set the executable header size to 0, as we don't want one for an
726 output. */
727 adata (abfd).exec_bytes_size = 0;
728 pos = adata (abfd).exec_bytes_size;
729 /* Text. */
730 vma = info->create_object_symbols_section->vma;
731 pos += vma;
732 obj_textsec (abfd)->filepos = pos;
733 obj_textsec (abfd)->vma = vma;
734 obj_textsec (abfd)->user_set_vma = 1;
735 pos += obj_textsec (abfd)->_raw_size;
736 vma += obj_textsec (abfd)->_raw_size;
738 /* Data. */
739 if (abfd->flags & D_PAGED)
741 if (info->create_object_symbols_section->next->vma > 0)
742 obj_datasec (abfd)->vma = info->create_object_symbols_section->next->vma;
743 else
744 obj_datasec (abfd)->vma = BFD_ALIGN (vma, adata (abfd).segment_size);
746 else
748 obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
750 if (obj_datasec (abfd)->vma < vma)
752 obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
754 obj_datasec (abfd)->user_set_vma = 1;
755 vma = obj_datasec (abfd)->vma;
756 obj_datasec (abfd)->filepos = vma + adata (abfd).exec_bytes_size;
757 execp->a_text = vma - obj_textsec (abfd)->vma;
758 obj_textsec (abfd)->_raw_size = execp->a_text;
760 /* Since BSS follows data immediately, see if it needs alignment. */
761 vma += obj_datasec (abfd)->_raw_size;
762 pad = align_power (vma, obj_bsssec (abfd)->alignment_power) - vma;
763 obj_datasec (abfd)->_raw_size += pad;
764 pos += obj_datasec (abfd)->_raw_size;
765 execp->a_data = obj_datasec (abfd)->_raw_size;
767 /* BSS. */
768 obj_bsssec (abfd)->vma = vma;
769 obj_bsssec (abfd)->user_set_vma = 1;
771 /* We are fully resized, so don't readjust in final_link. */
772 adata (abfd).magic = z_magic;
774 return NAME (aout, final_link) (abfd, info, MY_final_link_callback);
777 #endif
779 enum machine_type
780 tic30_aout_machine_type (arch, machine, unknown)
781 enum bfd_architecture arch;
782 unsigned long machine;
783 boolean *unknown;
785 enum machine_type arch_flags;
787 arch_flags = M_UNKNOWN;
788 *unknown = true;
790 switch (arch)
792 case bfd_arch_tic30:
793 *unknown = false;
794 break;
795 default:
796 arch_flags = M_UNKNOWN;
798 if (arch_flags != M_UNKNOWN)
799 *unknown = false;
800 return arch_flags;
803 boolean
804 tic30_aout_set_arch_mach (abfd, arch, machine)
805 bfd *abfd;
806 enum bfd_architecture arch;
807 unsigned long machine;
809 if (!bfd_default_set_arch_mach (abfd, arch, machine))
810 return false;
811 if (arch != bfd_arch_unknown)
813 boolean unknown;
814 tic30_aout_machine_type (arch, machine, &unknown);
815 if (unknown)
816 return false;
818 obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
819 return (*aout_backend_info (abfd)->set_sizes) (abfd);
822 /* We assume BFD generic archive files. */
823 #ifndef MY_openr_next_archived_file
824 #define MY_openr_next_archived_file bfd_generic_openr_next_archived_file
825 #endif
826 #ifndef MY_get_elt_at_index
827 #define MY_get_elt_at_index _bfd_generic_get_elt_at_index
828 #endif
829 #ifndef MY_generic_stat_arch_elt
830 #define MY_generic_stat_arch_elt bfd_generic_stat_arch_elt
831 #endif
832 #ifndef MY_slurp_armap
833 #define MY_slurp_armap bfd_slurp_bsd_armap
834 #endif
835 #ifndef MY_slurp_extended_name_table
836 #define MY_slurp_extended_name_table _bfd_slurp_extended_name_table
837 #endif
838 #ifndef MY_construct_extended_name_table
839 #define MY_construct_extended_name_table \
840 _bfd_archive_bsd_construct_extended_name_table
841 #endif
842 #ifndef MY_write_armap
843 #define MY_write_armap bsd_write_armap
844 #endif
845 #ifndef MY_read_ar_hdr
846 #define MY_read_ar_hdr _bfd_generic_read_ar_hdr
847 #endif
848 #ifndef MY_truncate_arname
849 #define MY_truncate_arname bfd_bsd_truncate_arname
850 #endif
851 #ifndef MY_update_armap_timestamp
852 #define MY_update_armap_timestamp _bfd_archive_bsd_update_armap_timestamp
853 #endif
855 /* No core file defined here -- configure in trad-core.c separately. */
856 #ifndef MY_core_file_failing_command
857 #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
858 #endif
859 #ifndef MY_core_file_failing_signal
860 #define MY_core_file_failing_signal _bfd_nocore_core_file_failing_signal
861 #endif
862 #ifndef MY_core_file_matches_executable_p
863 #define MY_core_file_matches_executable_p \
864 _bfd_nocore_core_file_matches_executable_p
865 #endif
866 #ifndef MY_core_file_p
867 #define MY_core_file_p _bfd_dummy_target
868 #endif
870 #ifndef MY_bfd_debug_info_start
871 #define MY_bfd_debug_info_start bfd_void
872 #endif
873 #ifndef MY_bfd_debug_info_end
874 #define MY_bfd_debug_info_end bfd_void
875 #endif
876 #ifndef MY_bfd_debug_info_accumulate
877 #define MY_bfd_debug_info_accumulate \
878 (void (*) PARAMS ((bfd*, struct sec *))) bfd_void
879 #endif
881 #ifndef MY_core_file_failing_command
882 #define MY_core_file_failing_command NAME(aout,core_file_failing_command)
883 #endif
884 #ifndef MY_core_file_failing_signal
885 #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
886 #endif
887 #ifndef MY_core_file_matches_executable_p
888 #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
889 #endif
890 #ifndef MY_set_section_contents
891 #define MY_set_section_contents NAME(aout,set_section_contents)
892 #endif
893 #ifndef MY_get_section_contents
894 #define MY_get_section_contents aout_32_get_section_contents
895 #endif
896 #ifndef MY_get_section_contents_in_window
897 #define MY_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
898 #endif
899 #ifndef MY_new_section_hook
900 #define MY_new_section_hook NAME(aout,new_section_hook)
901 #endif
902 #ifndef MY_get_symtab_upper_bound
903 #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
904 #endif
905 #ifndef MY_get_symtab
906 #define MY_get_symtab NAME(aout,get_symtab)
907 #endif
908 #ifndef MY_get_reloc_upper_bound
909 #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
910 #endif
911 #ifndef MY_canonicalize_reloc
912 #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
913 #endif
914 #ifndef MY_make_empty_symbol
915 #define MY_make_empty_symbol NAME(aout,make_empty_symbol)
916 #endif
917 #ifndef MY_print_symbol
918 #define MY_print_symbol NAME(aout,print_symbol)
919 #endif
920 #ifndef MY_get_symbol_info
921 #define MY_get_symbol_info NAME(aout,get_symbol_info)
922 #endif
923 #ifndef MY_get_lineno
924 #define MY_get_lineno NAME(aout,get_lineno)
925 #endif
926 #ifndef MY_set_arch_mach
927 #define MY_set_arch_mach tic30_aout_set_arch_mach
928 #endif
929 #ifndef MY_find_nearest_line
930 #define MY_find_nearest_line NAME(aout,find_nearest_line)
931 #endif
932 #ifndef MY_sizeof_headers
933 #define MY_sizeof_headers NAME(aout,sizeof_headers)
934 #endif
935 #ifndef MY_bfd_get_relocated_section_contents
936 #define MY_bfd_get_relocated_section_contents \
937 bfd_generic_get_relocated_section_contents
938 #endif
939 #ifndef MY_bfd_relax_section
940 #define MY_bfd_relax_section bfd_generic_relax_section
941 #endif
942 #ifndef MY_bfd_gc_sections
943 #define MY_bfd_gc_sections bfd_generic_gc_sections
944 #endif
945 #ifndef MY_bfd_reloc_type_lookup
946 #define MY_bfd_reloc_type_lookup tic30_aout_reloc_type_lookup
947 #endif
948 #ifndef MY_bfd_make_debug_symbol
949 #define MY_bfd_make_debug_symbol 0
950 #endif
951 #ifndef MY_read_minisymbols
952 #define MY_read_minisymbols NAME(aout,read_minisymbols)
953 #endif
954 #ifndef MY_minisymbol_to_symbol
955 #define MY_minisymbol_to_symbol NAME(aout,minisymbol_to_symbol)
956 #endif
957 #ifndef MY_bfd_link_hash_table_create
958 #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
959 #endif
960 #ifndef MY_bfd_link_add_symbols
961 #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
962 #endif
963 #ifndef MY_bfd_link_split_section
964 #define MY_bfd_link_split_section _bfd_generic_link_split_section
965 #endif
968 #ifndef MY_bfd_copy_private_bfd_data
969 #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
970 #endif
972 #ifndef MY_bfd_merge_private_bfd_data
973 #define MY_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
974 #endif
976 #ifndef MY_bfd_copy_private_symbol_data
977 #define MY_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
978 #endif
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
984 #ifndef MY_bfd_set_private_flags
985 #define MY_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
986 #endif
988 #ifndef MY_bfd_is_local_label_name
989 #define MY_bfd_is_local_label_name bfd_generic_is_local_label_name
990 #endif
992 #ifndef MY_bfd_free_cached_info
993 #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
994 #endif
996 #ifndef MY_close_and_cleanup
997 #define MY_close_and_cleanup MY_bfd_free_cached_info
998 #endif
1000 #ifndef MY_get_dynamic_symtab_upper_bound
1001 #define MY_get_dynamic_symtab_upper_bound \
1002 _bfd_nodynamic_get_dynamic_symtab_upper_bound
1003 #endif
1004 #ifndef MY_canonicalize_dynamic_symtab
1005 #define MY_canonicalize_dynamic_symtab \
1006 _bfd_nodynamic_canonicalize_dynamic_symtab
1007 #endif
1008 #ifndef MY_get_dynamic_reloc_upper_bound
1009 #define MY_get_dynamic_reloc_upper_bound \
1010 _bfd_nodynamic_get_dynamic_reloc_upper_bound
1011 #endif
1012 #ifndef MY_canonicalize_dynamic_reloc
1013 #define MY_canonicalize_dynamic_reloc \
1014 _bfd_nodynamic_canonicalize_dynamic_reloc
1015 #endif
1017 /* Aout symbols normally have leading underscores */
1018 #ifndef MY_symbol_leading_char
1019 #define MY_symbol_leading_char '_'
1020 #endif
1022 /* Aout archives normally use spaces for padding */
1023 #ifndef AR_PAD_CHAR
1024 #define AR_PAD_CHAR ' '
1025 #endif
1027 #ifndef MY_BFD_TARGET
1028 const bfd_target tic30_aout_vec =
1030 TARGETNAME, /* name */
1031 bfd_target_aout_flavour,
1032 BFD_ENDIAN_BIG, /* target byte order (big) */
1033 BFD_ENDIAN_BIG, /* target headers byte order (big) */
1034 (HAS_RELOC | /* object flags */
1035 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
1036 (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
1037 MY_symbol_leading_char,
1038 AR_PAD_CHAR, /* ar_pad_char */
1039 15, /* ar_max_namelen */
1040 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1041 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1042 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
1043 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1044 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1045 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
1046 {_bfd_dummy_target, MY_object_p, /* bfd_check_format */
1047 bfd_generic_archive_p, MY_core_file_p},
1048 {bfd_false, MY_mkobject, /* bfd_set_format */
1049 _bfd_generic_mkarchive, bfd_false},
1050 {bfd_false, MY_write_object_contents, /* bfd_write_contents */
1051 _bfd_write_archive_contents, bfd_false},
1053 BFD_JUMP_TABLE_GENERIC (MY),
1054 BFD_JUMP_TABLE_COPY (MY),
1055 BFD_JUMP_TABLE_CORE (MY),
1056 BFD_JUMP_TABLE_ARCHIVE (MY),
1057 BFD_JUMP_TABLE_SYMBOLS (MY),
1058 BFD_JUMP_TABLE_RELOCS (MY),
1059 BFD_JUMP_TABLE_WRITE (MY),
1060 BFD_JUMP_TABLE_LINK (MY),
1061 BFD_JUMP_TABLE_DYNAMIC (MY),
1063 (PTR) MY_backend_data,
1065 #endif /* MY_BFD_TARGET */