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