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