bfd/aout-tic30.c

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