bfd/aout-tic30.c

   1 /* BFD back-end for TMS320C30 a.out binaries.
   2    Copyright (C) 1998, 1999, 2000 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   EMPTY_HOWTO (-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   EMPTY_HOWTO (-1),
 146   EMPTY_HOWTO (-1),
 147   EMPTY_HOWTO (-1),
 148   EMPTY_HOWTO (-1),
 149   EMPTY_HOWTO (-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 ATTRIBUTE_UNUSED;
 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 ATTRIBUTE_UNUSED;
 222      bfd *output_bfd;
 223      char **error_message ATTRIBUTE_UNUSED;
 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 ATTRIBUTE_UNUSED;
 249      bfd *output_bfd;
 250      char **error_message ATTRIBUTE_UNUSED;
 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 ATTRIBUTE_UNUSED;
 278      PTR data;
 279      asection *input_section ATTRIBUTE_UNUSED;
 280      bfd *output_bfd ATTRIBUTE_UNUSED;
 281      char **error_message ATTRIBUTE_UNUSED;
 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 static boolean
 590 MY_bfd_copy_private_section_data (ibfd, isec, obfd, osec)
 591      bfd *ibfd;
 592      asection *isec ATTRIBUTE_UNUSED;
 593      bfd *obfd;
 594      asection *osec ATTRIBUTE_UNUSED;
 595 {
 596   if (bfd_get_flavour (obfd) == bfd_target_aout_flavour)
 597     obj_aout_subformat (obfd) = obj_aout_subformat (ibfd);
 598   return true;
 599 }
 600
 601 /* Write an object file.
 602    Section contents have already been written.  We write the
 603    file header, symbols, and relocation.  */
 604
 605 static boolean
 606 tic30_aout_write_object_contents (abfd)
 607      bfd *abfd;
 608 {
 609   struct external_exec exec_bytes;
 610   struct internal_exec *execp = exec_hdr (abfd);
 611
 612   obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
 613
 614   {
 615     bfd_size_type text_size;    /* dummy vars */
 616     file_ptr text_end;
 617     if (adata (abfd).magic == undecided_magic)
 618       NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end);
 619
 620     execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;
 621     execp->a_entry = bfd_get_start_address (abfd);
 622
 623     execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
 624     execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
 625     NAME (aout, swap_exec_header_out) (abfd, execp, &exec_bytes);
 626
 627     if (adata (abfd).exec_bytes_size > 0)
 628       {
 629         if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
 630           return false;
 631         if (bfd_write ((PTR) & exec_bytes, 1, adata (abfd).exec_bytes_size, abfd) != adata (abfd).exec_bytes_size)
 632           return false;
 633       }
 634     /* Now write out reloc info, followed by syms and strings */
 635
 636     if (bfd_get_outsymbols (abfd) != (asymbol **) NULL
 637         && bfd_get_symcount (abfd) != 0)
 638       {
 639         if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (*execp)), SEEK_SET) != 0)
 640           return false;
 641
 642         if (!NAME (aout, write_syms) (abfd))
 643           return false;
 644       }
 645
 646     if (bfd_seek (abfd, (file_ptr) (N_TRELOFF (*execp)), SEEK_SET) != 0)
 647       return false;
 648     if (!NAME (aout, squirt_out_relocs) (abfd, obj_textsec (abfd)))
 649       return false;
 650
 651     if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (*execp)), SEEK_SET) != 0)
 652       return false;
 653     if (!NAME (aout, squirt_out_relocs) (abfd, obj_datasec (abfd)))
 654       return false;
 655   }
 656
 657   return true;
 658 }
 659
 660 static boolean
 661 tic30_aout_set_sizes (abfd)
 662      bfd *abfd;
 663 {
 664   adata (abfd).page_size = TARGET_PAGE_SIZE;
 665
 666 #ifdef SEGMENT_SIZE
 667   adata (abfd).segment_size = SEGMENT_SIZE;
 668 #else
 669   adata (abfd).segment_size = TARGET_PAGE_SIZE;
 670 #endif
 671
 672 #ifdef ZMAGIC_DISK_BLOCK_SIZE
 673   adata (abfd).zmagic_disk_block_size = ZMAGIC_DISK_BLOCK_SIZE;
 674 #else
 675   adata (abfd).zmagic_disk_block_size = TARGET_PAGE_SIZE;
 676 #endif
 677
 678   adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
 679
 680   return true;
 681 }
 682
 683 #ifndef MY_final_link_callback
 684
 685 /* Callback for the final_link routine to set the section offsets.  */
 686
 687 static void MY_final_link_callback
 688   PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *));
 689
 690 static void
 691 MY_final_link_callback (abfd, ptreloff, pdreloff, psymoff)
 692      bfd *abfd;
 693      file_ptr *ptreloff;
 694      file_ptr *pdreloff;
 695      file_ptr *psymoff;
 696 {
 697   struct internal_exec *execp = exec_hdr (abfd);
 698
 699   *ptreloff = obj_datasec (abfd)->filepos + execp->a_data;
 700   *pdreloff = *ptreloff + execp->a_trsize;
 701   *psymoff = *pdreloff + execp->a_drsize;;
 702 }
 703
 704 #endif
 705
 706 #ifndef MY_bfd_final_link
 707
 708 /* Final link routine.  We need to use a call back to get the correct
 709    offsets in the output file.  */
 710
 711 static boolean
 712 MY_bfd_final_link (abfd, info)
 713      bfd *abfd;
 714      struct bfd_link_info *info;
 715 {
 716   struct internal_exec *execp = exec_hdr (abfd);
 717   file_ptr pos;
 718   bfd_vma vma = 0;
 719   int pad;
 720
 721   /* Set the executable header size to 0, as we don't want one for an
 722      output.  */
 723   adata (abfd).exec_bytes_size = 0;
 724   pos = adata (abfd).exec_bytes_size;
 725   /* Text.  */
 726   vma = info->create_object_symbols_section->vma;
 727   pos += vma;
 728   obj_textsec (abfd)->filepos = pos;
 729   obj_textsec (abfd)->vma = vma;
 730   obj_textsec (abfd)->user_set_vma = 1;
 731   pos += obj_textsec (abfd)->_raw_size;
 732   vma += obj_textsec (abfd)->_raw_size;
 733
 734   /* Data.  */
 735   if (abfd->flags & D_PAGED)
 736     {
 737       if (info->create_object_symbols_section->next->vma > 0)
 738         obj_datasec (abfd)->vma = info->create_object_symbols_section->next->vma;
 739       else
 740         obj_datasec (abfd)->vma = BFD_ALIGN (vma, adata (abfd).segment_size);
 741     }
 742   else
 743     {
 744       obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
 745     }
 746   if (obj_datasec (abfd)->vma < vma)
 747     {
 748       obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
 749     }
 750   obj_datasec (abfd)->user_set_vma = 1;
 751   vma = obj_datasec (abfd)->vma;
 752   obj_datasec (abfd)->filepos = vma + adata (abfd).exec_bytes_size;
 753   execp->a_text = vma - obj_textsec (abfd)->vma;
 754   obj_textsec (abfd)->_raw_size = execp->a_text;
 755
 756   /* Since BSS follows data immediately, see if it needs alignment.  */
 757   vma += obj_datasec (abfd)->_raw_size;
 758   pad = align_power (vma, obj_bsssec (abfd)->alignment_power) - vma;
 759   obj_datasec (abfd)->_raw_size += pad;
 760   pos += obj_datasec (abfd)->_raw_size;
 761   execp->a_data = obj_datasec (abfd)->_raw_size;
 762
 763   /* BSS.  */
 764   obj_bsssec (abfd)->vma = vma;
 765   obj_bsssec (abfd)->user_set_vma = 1;
 766
 767   /* We are fully resized, so don't readjust in final_link.  */
 768   adata (abfd).magic = z_magic;
 769
 770   return NAME (aout, final_link) (abfd, info, MY_final_link_callback);
 771 }
 772
 773 #endif
 774
 775 enum machine_type
 776 tic30_aout_machine_type (arch, machine, unknown)
 777      enum bfd_architecture arch;
 778      unsigned long machine ATTRIBUTE_UNUSED;
 779      boolean *unknown;
 780 {
 781   enum machine_type arch_flags;
 782
 783   arch_flags = M_UNKNOWN;
 784   *unknown = true;
 785
 786   switch (arch)
 787     {
 788     case bfd_arch_tic30:
 789       *unknown = false;
 790       break;
 791     default:
 792       arch_flags = M_UNKNOWN;
 793     }
 794   if (arch_flags != M_UNKNOWN)
 795     *unknown = false;
 796   return arch_flags;
 797 }
 798
 799 boolean
 800 tic30_aout_set_arch_mach (abfd, arch, machine)
 801      bfd *abfd;
 802      enum bfd_architecture arch;
 803      unsigned long machine;
 804 {
 805   if (!bfd_default_set_arch_mach (abfd, arch, machine))
 806     return false;
 807   if (arch != bfd_arch_unknown)
 808     {
 809       boolean unknown;
 810       tic30_aout_machine_type (arch, machine, &unknown);
 811       if (unknown)
 812         return false;
 813     }
 814   obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
 815   return (*aout_backend_info (abfd)->set_sizes) (abfd);
 816 }
 817
 818 /* We assume BFD generic archive files.  */
 819 #ifndef MY_openr_next_archived_file
 820 #define MY_openr_next_archived_file     bfd_generic_openr_next_archived_file
 821 #endif
 822 #ifndef MY_get_elt_at_index
 823 #define MY_get_elt_at_index             _bfd_generic_get_elt_at_index
 824 #endif
 825 #ifndef MY_generic_stat_arch_elt
 826 #define MY_generic_stat_arch_elt        bfd_generic_stat_arch_elt
 827 #endif
 828 #ifndef MY_slurp_armap
 829 #define MY_slurp_armap                  bfd_slurp_bsd_armap
 830 #endif
 831 #ifndef MY_slurp_extended_name_table
 832 #define MY_slurp_extended_name_table    _bfd_slurp_extended_name_table
 833 #endif
 834 #ifndef MY_construct_extended_name_table
 835 #define MY_construct_extended_name_table \
 836   _bfd_archive_bsd_construct_extended_name_table
 837 #endif
 838 #ifndef MY_write_armap
 839 #define MY_write_armap          bsd_write_armap
 840 #endif
 841 #ifndef MY_read_ar_hdr
 842 #define MY_read_ar_hdr          _bfd_generic_read_ar_hdr
 843 #endif
 844 #ifndef MY_truncate_arname
 845 #define MY_truncate_arname              bfd_bsd_truncate_arname
 846 #endif
 847 #ifndef MY_update_armap_timestamp
 848 #define MY_update_armap_timestamp _bfd_archive_bsd_update_armap_timestamp
 849 #endif
 850
 851 /* No core file defined here -- configure in trad-core.c separately.  */
 852 #ifndef MY_core_file_failing_command
 853 #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
 854 #endif
 855 #ifndef MY_core_file_failing_signal
 856 #define MY_core_file_failing_signal     _bfd_nocore_core_file_failing_signal
 857 #endif
 858 #ifndef MY_core_file_matches_executable_p
 859 #define MY_core_file_matches_executable_p       \
 860                                 _bfd_nocore_core_file_matches_executable_p
 861 #endif
 862 #ifndef MY_core_file_p
 863 #define MY_core_file_p          _bfd_dummy_target
 864 #endif
 865
 866 #ifndef MY_bfd_debug_info_start
 867 #define MY_bfd_debug_info_start         bfd_void
 868 #endif
 869 #ifndef MY_bfd_debug_info_end
 870 #define MY_bfd_debug_info_end           bfd_void
 871 #endif
 872 #ifndef MY_bfd_debug_info_accumulate
 873 #define MY_bfd_debug_info_accumulate    \
 874                         (void (*) PARAMS ((bfd*, struct sec *))) bfd_void
 875 #endif
 876
 877 #ifndef MY_core_file_failing_command
 878 #define MY_core_file_failing_command NAME(aout,core_file_failing_command)
 879 #endif
 880 #ifndef MY_core_file_failing_signal
 881 #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
 882 #endif
 883 #ifndef MY_core_file_matches_executable_p
 884 #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
 885 #endif
 886 #ifndef MY_set_section_contents
 887 #define MY_set_section_contents NAME(aout,set_section_contents)
 888 #endif
 889 #ifndef MY_get_section_contents
 890 #define MY_get_section_contents aout_32_get_section_contents
 891 #endif
 892 #ifndef MY_get_section_contents_in_window
 893 #define MY_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
 894 #endif
 895 #ifndef MY_new_section_hook
 896 #define MY_new_section_hook NAME(aout,new_section_hook)
 897 #endif
 898 #ifndef MY_get_symtab_upper_bound
 899 #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
 900 #endif
 901 #ifndef MY_get_symtab
 902 #define MY_get_symtab NAME(aout,get_symtab)
 903 #endif
 904 #ifndef MY_get_reloc_upper_bound
 905 #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
 906 #endif
 907 #ifndef MY_canonicalize_reloc
 908 #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
 909 #endif
 910 #ifndef MY_make_empty_symbol
 911 #define MY_make_empty_symbol NAME(aout,make_empty_symbol)
 912 #endif
 913 #ifndef MY_print_symbol
 914 #define MY_print_symbol NAME(aout,print_symbol)
 915 #endif
 916 #ifndef MY_get_symbol_info
 917 #define MY_get_symbol_info NAME(aout,get_symbol_info)
 918 #endif
 919 #ifndef MY_get_lineno
 920 #define MY_get_lineno NAME(aout,get_lineno)
 921 #endif
 922 #ifndef MY_set_arch_mach
 923 #define MY_set_arch_mach tic30_aout_set_arch_mach
 924 #endif
 925 #ifndef MY_find_nearest_line
 926 #define MY_find_nearest_line NAME(aout,find_nearest_line)
 927 #endif
 928 #ifndef MY_sizeof_headers
 929 #define MY_sizeof_headers NAME(aout,sizeof_headers)
 930 #endif
 931 #ifndef MY_bfd_get_relocated_section_contents
 932 #define MY_bfd_get_relocated_section_contents \
 933                         bfd_generic_get_relocated_section_contents
 934 #endif
 935 #ifndef MY_bfd_relax_section
 936 #define MY_bfd_relax_section bfd_generic_relax_section
 937 #endif
 938 #ifndef MY_bfd_gc_sections
 939 #define MY_bfd_gc_sections bfd_generic_gc_sections
 940 #endif
 941 #ifndef MY_bfd_reloc_type_lookup
 942 #define MY_bfd_reloc_type_lookup tic30_aout_reloc_type_lookup
 943 #endif
 944 #ifndef MY_bfd_make_debug_symbol
 945 #define MY_bfd_make_debug_symbol 0
 946 #endif
 947 #ifndef MY_read_minisymbols
 948 #define MY_read_minisymbols NAME(aout,read_minisymbols)
 949 #endif
 950 #ifndef MY_minisymbol_to_symbol
 951 #define MY_minisymbol_to_symbol NAME(aout,minisymbol_to_symbol)
 952 #endif
 953 #ifndef MY_bfd_link_hash_table_create
 954 #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
 955 #endif
 956 #ifndef MY_bfd_link_add_symbols
 957 #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
 958 #endif
 959 #ifndef MY_bfd_link_split_section
 960 #define MY_bfd_link_split_section  _bfd_generic_link_split_section
 961 #endif
 962
 963 #ifndef MY_bfd_copy_private_bfd_data
 964 #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
 965 #endif
 966
 967 #ifndef MY_bfd_merge_private_bfd_data
 968 #define MY_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
 969 #endif
 970
 971 #ifndef MY_bfd_copy_private_symbol_data
 972 #define MY_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
 973 #endif
 974
 975 #ifndef MY_bfd_print_private_bfd_data
 976 #define MY_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
 977 #endif
 978
 979 #ifndef MY_bfd_set_private_flags
 980 #define MY_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
 981 #endif
 982
 983 #ifndef MY_bfd_is_local_label_name
 984 #define MY_bfd_is_local_label_name bfd_generic_is_local_label_name
 985 #endif
 986
 987 #ifndef MY_bfd_free_cached_info
 988 #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
 989 #endif
 990
 991 #ifndef MY_close_and_cleanup
 992 #define MY_close_and_cleanup MY_bfd_free_cached_info
 993 #endif
 994
 995 #ifndef MY_get_dynamic_symtab_upper_bound
 996 #define MY_get_dynamic_symtab_upper_bound \
 997   _bfd_nodynamic_get_dynamic_symtab_upper_bound
 998 #endif
 999 #ifndef MY_canonicalize_dynamic_symtab
1000 #define MY_canonicalize_dynamic_symtab \
1001   _bfd_nodynamic_canonicalize_dynamic_symtab
1002 #endif
1003 #ifndef MY_get_dynamic_reloc_upper_bound
1004 #define MY_get_dynamic_reloc_upper_bound \
1005   _bfd_nodynamic_get_dynamic_reloc_upper_bound
1006 #endif
1007 #ifndef MY_canonicalize_dynamic_reloc
1008 #define MY_canonicalize_dynamic_reloc \
1009   _bfd_nodynamic_canonicalize_dynamic_reloc
1010 #endif
1011
1012 /* Aout symbols normally have leading underscores */
1013 #ifndef MY_symbol_leading_char
1014 #define MY_symbol_leading_char '_'
1015 #endif
1016
1017 /* Aout archives normally use spaces for padding */
1018 #ifndef AR_PAD_CHAR
1019 #define AR_PAD_CHAR ' '
1020 #endif
1021
1022 #ifndef MY_BFD_TARGET
1023 const bfd_target tic30_aout_vec =
1024 {
1025   TARGETNAME,                   /* name */
1026   bfd_target_aout_flavour,
1027   BFD_ENDIAN_BIG,               /* target byte order (big) */
1028   BFD_ENDIAN_BIG,               /* target headers byte order (big) */
1029   (HAS_RELOC |                  /* object flags */
1030    HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
1031   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC),        /* section flags */
1032   MY_symbol_leading_char,
1033   AR_PAD_CHAR,                  /* ar_pad_char */
1034   15,                           /* ar_max_namelen */
1035   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1036   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1037   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* data */
1038   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1039   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1040   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* hdrs */
1041   {_bfd_dummy_target, MY_object_p,      /* bfd_check_format */
1042    bfd_generic_archive_p, MY_core_file_p},
1043   {bfd_false, MY_mkobject,      /* bfd_set_format */
1044    _bfd_generic_mkarchive, bfd_false},
1045   {bfd_false, MY_write_object_contents,         /* bfd_write_contents */
1046    _bfd_write_archive_contents, bfd_false},
1047
1048   BFD_JUMP_TABLE_GENERIC (MY),
1049   BFD_JUMP_TABLE_COPY (MY),
1050   BFD_JUMP_TABLE_CORE (MY),
1051   BFD_JUMP_TABLE_ARCHIVE (MY),
1052   BFD_JUMP_TABLE_SYMBOLS (MY),
1053   BFD_JUMP_TABLE_RELOCS (MY),
1054   BFD_JUMP_TABLE_WRITE (MY),
1055   BFD_JUMP_TABLE_LINK (MY),
1056   BFD_JUMP_TABLE_DYNAMIC (MY),
1057
1058   NULL,
1059
1060   (PTR) MY_backend_data
1061 };
1062 #endif /* MY_BFD_TARGET */