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