bfd/aout-tic30.c

   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 sec *))) 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_get_symtab
 930 #define MY_get_symtab NAME(aout,get_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 */