Home | History | Annotate | Line # | Download | only in bfd
coff-tic54x.c revision 1.1
      1  1.1  christos /* BFD back-end for TMS320C54X coff binaries.
      2  1.1  christos    Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008
      3  1.1  christos    Free Software Foundation, Inc.
      4  1.1  christos    Contributed by Timothy Wall (twall (at) cygnus.com)
      5  1.1  christos 
      6  1.1  christos    This file is part of BFD, the Binary File Descriptor library.
      7  1.1  christos 
      8  1.1  christos    This program is free software; you can redistribute it and/or modify
      9  1.1  christos    it under the terms of the GNU General Public License as published by
     10  1.1  christos    the Free Software Foundation; either version 3 of the License, or
     11  1.1  christos    (at your option) any later version.
     12  1.1  christos 
     13  1.1  christos    This program is distributed in the hope that it will be useful,
     14  1.1  christos    but WITHOUT ANY WARRANTY; without even the implied warranty of
     15  1.1  christos    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     16  1.1  christos    GNU General Public License for more details.
     17  1.1  christos 
     18  1.1  christos    You should have received a copy of the GNU General Public License
     19  1.1  christos    along with this program; if not, write to the Free Software
     20  1.1  christos    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
     21  1.1  christos    02110-1301, USA.  */
     22  1.1  christos 
     23  1.1  christos #include "sysdep.h"
     24  1.1  christos #include "bfd.h"
     25  1.1  christos #include "libbfd.h"
     26  1.1  christos #include "bfdlink.h"
     27  1.1  christos #include "coff/tic54x.h"
     28  1.1  christos #include "coff/internal.h"
     29  1.1  christos #include "libcoff.h"
     30  1.1  christos 
     31  1.1  christos #undef  F_LSYMS
     32  1.1  christos #define	F_LSYMS		F_LSYMS_TICOFF
     33  1.1  christos 
     34  1.1  christos static void tic54x_reloc_processing
     35  1.1  christos   PARAMS ((arelent *, struct internal_reloc *, asymbol **, bfd *, asection *));
     36  1.1  christos static bfd_reloc_status_type tic54x_relocation
     37  1.1  christos   PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
     38  1.1  christos static bfd_boolean tic54x_set_section_contents
     39  1.1  christos   PARAMS ((bfd *, sec_ptr, const PTR, file_ptr, bfd_size_type));
     40  1.1  christos static reloc_howto_type *coff_tic54x_rtype_to_howto
     41  1.1  christos   PARAMS ((bfd *, asection *, struct internal_reloc *, struct coff_link_hash_entry *, struct internal_syment *, bfd_vma *));
     42  1.1  christos static bfd_boolean tic54x_set_arch_mach
     43  1.1  christos   PARAMS ((bfd *, enum bfd_architecture, unsigned long));
     44  1.1  christos static reloc_howto_type * tic54x_coff_reloc_type_lookup
     45  1.1  christos   PARAMS ((bfd *, bfd_reloc_code_real_type));
     46  1.1  christos static void tic54x_lookup_howto
     47  1.1  christos   PARAMS ((arelent *, struct internal_reloc *));
     48  1.1  christos static bfd_boolean ticoff_bfd_is_local_label_name
     49  1.1  christos   PARAMS ((bfd *, const char *));
     50  1.1  christos 
     51  1.1  christos /* 32-bit operations
     52  1.1  christos    The octet order is screwy.  words are LSB first (LS octet, actually), but
     53  1.1  christos    longwords are MSW first.  For example, 0x12345678 is encoded 0x5678 in the
     54  1.1  christos    first word and 0x1234 in the second.  When looking at the data as stored in
     55  1.1  christos    the COFF file, you would see the octets ordered as 0x78, 0x56, 0x34, 0x12.
     56  1.1  christos    Don't bother with 64-bits, as there aren't any.  */
     57  1.1  christos 
     58  1.1  christos static bfd_vma
     59  1.1  christos tic54x_getl32 (const void *p)
     60  1.1  christos {
     61  1.1  christos   const bfd_byte *addr = p;
     62  1.1  christos   unsigned long v;
     63  1.1  christos 
     64  1.1  christos   v  = (unsigned long) addr[2];
     65  1.1  christos   v |= (unsigned long) addr[3] << 8;
     66  1.1  christos   v |= (unsigned long) addr[0] << 16;
     67  1.1  christos   v |= (unsigned long) addr[1] << 24;
     68  1.1  christos   return v;
     69  1.1  christos }
     70  1.1  christos 
     71  1.1  christos static void
     72  1.1  christos tic54x_putl32 (bfd_vma data, void *p)
     73  1.1  christos {
     74  1.1  christos   bfd_byte *addr = p;
     75  1.1  christos   addr[2] = data & 0xff;
     76  1.1  christos   addr[3] = (data >>  8) & 0xff;
     77  1.1  christos   addr[0] = (data >> 16) & 0xff;
     78  1.1  christos   addr[1] = (data >> 24) & 0xff;
     79  1.1  christos }
     80  1.1  christos 
     81  1.1  christos static bfd_signed_vma
     82  1.1  christos tic54x_getl_signed_32 (const void *p)
     83  1.1  christos {
     84  1.1  christos   const bfd_byte *addr = p;
     85  1.1  christos   unsigned long v;
     86  1.1  christos 
     87  1.1  christos   v  = (unsigned long) addr[2];
     88  1.1  christos   v |= (unsigned long) addr[3] << 8;
     89  1.1  christos   v |= (unsigned long) addr[0] << 16;
     90  1.1  christos   v |= (unsigned long) addr[1] << 24;
     91  1.1  christos #define COERCE32(x) \
     92  1.1  christos   ((bfd_signed_vma) (long) (((unsigned long) (x) ^ 0x80000000) - 0x80000000))
     93  1.1  christos   return COERCE32 (v);
     94  1.1  christos }
     95  1.1  christos 
     96  1.1  christos #define coff_get_section_load_page bfd_ticoff_get_section_load_page
     97  1.1  christos #define coff_set_section_load_page bfd_ticoff_set_section_load_page
     98  1.1  christos 
     99  1.1  christos void
    100  1.1  christos bfd_ticoff_set_section_load_page (sect, page)
    101  1.1  christos   asection *sect;
    102  1.1  christos   int page;
    103  1.1  christos {
    104  1.1  christos   sect->lma = (sect->lma & ADDR_MASK) | PG_TO_FLAG(page);
    105  1.1  christos }
    106  1.1  christos 
    107  1.1  christos int
    108  1.1  christos bfd_ticoff_get_section_load_page (sect)
    109  1.1  christos   asection *sect;
    110  1.1  christos {
    111  1.1  christos   int page;
    112  1.1  christos 
    113  1.1  christos   /* Provide meaningful defaults for predefined sections.  */
    114  1.1  christos   if (sect == &bfd_com_section)
    115  1.1  christos     page = PG_DATA;
    116  1.1  christos 
    117  1.1  christos   else if (sect == &bfd_und_section
    118  1.1  christos       || sect == &bfd_abs_section
    119  1.1  christos       || sect == &bfd_ind_section)
    120  1.1  christos     page = PG_PROG;
    121  1.1  christos 
    122  1.1  christos   else
    123  1.1  christos     page = FLAG_TO_PG (sect->lma);
    124  1.1  christos 
    125  1.1  christos   return page;
    126  1.1  christos }
    127  1.1  christos 
    128  1.1  christos /* Set the architecture appropriately.  Allow unkown architectures
    129  1.1  christos    (e.g. binary).  */
    130  1.1  christos 
    131  1.1  christos static bfd_boolean
    132  1.1  christos tic54x_set_arch_mach (abfd, arch, machine)
    133  1.1  christos      bfd *abfd;
    134  1.1  christos      enum bfd_architecture arch;
    135  1.1  christos      unsigned long machine;
    136  1.1  christos {
    137  1.1  christos   if (arch == bfd_arch_unknown)
    138  1.1  christos     arch = bfd_arch_tic54x;
    139  1.1  christos 
    140  1.1  christos   else if (arch != bfd_arch_tic54x)
    141  1.1  christos     return FALSE;
    142  1.1  christos 
    143  1.1  christos   return bfd_default_set_arch_mach (abfd, arch, machine);
    144  1.1  christos }
    145  1.1  christos 
    146  1.1  christos static bfd_reloc_status_type
    147  1.1  christos tic54x_relocation (abfd, reloc_entry, symbol, data, input_section,
    148  1.1  christos                    output_bfd, error_message)
    149  1.1  christos   bfd *abfd ATTRIBUTE_UNUSED;
    150  1.1  christos   arelent *reloc_entry;
    151  1.1  christos   asymbol *symbol ATTRIBUTE_UNUSED;
    152  1.1  christos   PTR data ATTRIBUTE_UNUSED;
    153  1.1  christos   asection *input_section;
    154  1.1  christos   bfd *output_bfd;
    155  1.1  christos   char **error_message ATTRIBUTE_UNUSED;
    156  1.1  christos {
    157  1.1  christos   if (output_bfd != (bfd *) NULL)
    158  1.1  christos     {
    159  1.1  christos       /* This is a partial relocation, and we want to apply the
    160  1.1  christos  	 relocation to the reloc entry rather than the raw data.
    161  1.1  christos  	 Modify the reloc inplace to reflect what we now know.  */
    162  1.1  christos       reloc_entry->address += input_section->output_offset;
    163  1.1  christos       return bfd_reloc_ok;
    164  1.1  christos     }
    165  1.1  christos   return bfd_reloc_continue;
    166  1.1  christos }
    167  1.1  christos 
    168  1.1  christos reloc_howto_type tic54x_howto_table[] =
    169  1.1  christos   {
    170  1.1  christos     /* type,rightshift,size (0=byte, 1=short, 2=long),
    171  1.1  christos        bit size, pc_relative, bitpos, dont complain_on_overflow,
    172  1.1  christos        special_function, name, partial_inplace, src_mask, dst_mask, pcrel_offset.  */
    173  1.1  christos 
    174  1.1  christos     /* NORMAL BANK */
    175  1.1  christos     /* 16-bit direct reference to symbol's address.  */
    176  1.1  christos     HOWTO (R_RELWORD,0,1,16,FALSE,0,complain_overflow_dont,
    177  1.1  christos 	   tic54x_relocation,"REL16",FALSE,0xFFFF,0xFFFF,FALSE),
    178  1.1  christos 
    179  1.1  christos     /* 7 LSBs of an address */
    180  1.1  christos     HOWTO (R_PARTLS7,0,1,7,FALSE,0,complain_overflow_dont,
    181  1.1  christos 	   tic54x_relocation,"LS7",FALSE,0x007F,0x007F,FALSE),
    182  1.1  christos 
    183  1.1  christos     /* 9 MSBs of an address */
    184  1.1  christos     /* TI assembler doesn't shift its encoding, and is thus incompatible */
    185  1.1  christos     HOWTO (R_PARTMS9,7,1,9,FALSE,0,complain_overflow_dont,
    186  1.1  christos 	   tic54x_relocation,"MS9",FALSE,0x01FF,0x01FF,FALSE),
    187  1.1  christos 
    188  1.1  christos     /* 23-bit relocation */
    189  1.1  christos     HOWTO (R_EXTWORD,0,2,23,FALSE,0,complain_overflow_dont,
    190  1.1  christos 	   tic54x_relocation,"RELEXT",FALSE,0x7FFFFF,0x7FFFFF,FALSE),
    191  1.1  christos 
    192  1.1  christos     /* 16 bits of 23-bit extended address */
    193  1.1  christos     HOWTO (R_EXTWORD16,0,1,16,FALSE,0,complain_overflow_dont,
    194  1.1  christos 	   tic54x_relocation,"RELEXT16",FALSE,0x7FFFFF,0x7FFFFF,FALSE),
    195  1.1  christos 
    196  1.1  christos     /* upper 7 bits of 23-bit extended address */
    197  1.1  christos     HOWTO (R_EXTWORDMS7,16,1,7,FALSE,0,complain_overflow_dont,
    198  1.1  christos 	   tic54x_relocation,"RELEXTMS7",FALSE,0x7F,0x7F,FALSE),
    199  1.1  christos 
    200  1.1  christos     /* ABSOLUTE BANK */
    201  1.1  christos     /* 16-bit direct reference to symbol's address, absolute */
    202  1.1  christos     HOWTO (R_RELWORD,0,1,16,FALSE,0,complain_overflow_dont,
    203  1.1  christos 	   tic54x_relocation,"AREL16",FALSE,0xFFFF,0xFFFF,FALSE),
    204  1.1  christos 
    205  1.1  christos     /* 7 LSBs of an address, absolute */
    206  1.1  christos     HOWTO (R_PARTLS7,0,1,7,FALSE,0,complain_overflow_dont,
    207  1.1  christos 	   tic54x_relocation,"ALS7",FALSE,0x007F,0x007F,FALSE),
    208  1.1  christos 
    209  1.1  christos     /* 9 MSBs of an address, absolute */
    210  1.1  christos     /* TI assembler doesn't shift its encoding, and is thus incompatible */
    211  1.1  christos     HOWTO (R_PARTMS9,7,1,9,FALSE,0,complain_overflow_dont,
    212  1.1  christos 	   tic54x_relocation,"AMS9",FALSE,0x01FF,0x01FF,FALSE),
    213  1.1  christos 
    214  1.1  christos     /* 23-bit direct reference, absolute */
    215  1.1  christos     HOWTO (R_EXTWORD,0,2,23,FALSE,0,complain_overflow_dont,
    216  1.1  christos 	   tic54x_relocation,"ARELEXT",FALSE,0x7FFFFF,0x7FFFFF,FALSE),
    217  1.1  christos 
    218  1.1  christos     /* 16 bits of 23-bit extended address, absolute */
    219  1.1  christos     HOWTO (R_EXTWORD16,0,1,16,FALSE,0,complain_overflow_dont,
    220  1.1  christos 	   tic54x_relocation,"ARELEXT16",FALSE,0x7FFFFF,0x7FFFFF,FALSE),
    221  1.1  christos 
    222  1.1  christos     /* upper 7 bits of 23-bit extended address, absolute */
    223  1.1  christos     HOWTO (R_EXTWORDMS7,16,1,7,FALSE,0,complain_overflow_dont,
    224  1.1  christos 	   tic54x_relocation,"ARELEXTMS7",FALSE,0x7F,0x7F,FALSE),
    225  1.1  christos 
    226  1.1  christos     /* 32-bit relocation exclusively for stabs */
    227  1.1  christos     HOWTO (R_RELLONG,0,2,32,FALSE,0,complain_overflow_dont,
    228  1.1  christos 	   tic54x_relocation,"STAB",FALSE,0xFFFFFFFF,0xFFFFFFFF,FALSE),
    229  1.1  christos   };
    230  1.1  christos 
    231  1.1  christos #define coff_bfd_reloc_type_lookup tic54x_coff_reloc_type_lookup
    232  1.1  christos #define coff_bfd_reloc_name_lookup tic54x_coff_reloc_name_lookup
    233  1.1  christos 
    234  1.1  christos /* For the case statement use the code values used tc_gen_reloc (defined in
    235  1.1  christos    bfd/reloc.c) to map to the howto table entries.  */
    236  1.1  christos 
    237  1.1  christos reloc_howto_type *
    238  1.1  christos tic54x_coff_reloc_type_lookup (abfd, code)
    239  1.1  christos      bfd *abfd ATTRIBUTE_UNUSED;
    240  1.1  christos      bfd_reloc_code_real_type code;
    241  1.1  christos {
    242  1.1  christos   switch (code)
    243  1.1  christos     {
    244  1.1  christos     case BFD_RELOC_16:
    245  1.1  christos       return &tic54x_howto_table[0];
    246  1.1  christos     case BFD_RELOC_TIC54X_PARTLS7:
    247  1.1  christos       return &tic54x_howto_table[1];
    248  1.1  christos     case BFD_RELOC_TIC54X_PARTMS9:
    249  1.1  christos       return &tic54x_howto_table[2];
    250  1.1  christos     case BFD_RELOC_TIC54X_23:
    251  1.1  christos       return &tic54x_howto_table[3];
    252  1.1  christos     case BFD_RELOC_TIC54X_16_OF_23:
    253  1.1  christos       return &tic54x_howto_table[4];
    254  1.1  christos     case BFD_RELOC_TIC54X_MS7_OF_23:
    255  1.1  christos       return &tic54x_howto_table[5];
    256  1.1  christos     case BFD_RELOC_32:
    257  1.1  christos       return &tic54x_howto_table[12];
    258  1.1  christos     default:
    259  1.1  christos       return (reloc_howto_type *) NULL;
    260  1.1  christos     }
    261  1.1  christos }
    262  1.1  christos 
    263  1.1  christos static reloc_howto_type *
    264  1.1  christos tic54x_coff_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
    265  1.1  christos 			       const char *r_name)
    266  1.1  christos {
    267  1.1  christos   unsigned int i;
    268  1.1  christos 
    269  1.1  christos   for (i = 0;
    270  1.1  christos        i < sizeof (tic54x_howto_table) / sizeof (tic54x_howto_table[0]);
    271  1.1  christos        i++)
    272  1.1  christos     if (tic54x_howto_table[i].name != NULL
    273  1.1  christos 	&& strcasecmp (tic54x_howto_table[i].name, r_name) == 0)
    274  1.1  christos       return &tic54x_howto_table[i];
    275  1.1  christos 
    276  1.1  christos   return NULL;
    277  1.1  christos }
    278  1.1  christos 
    279  1.1  christos /* Code to turn a r_type into a howto ptr, uses the above howto table.
    280  1.1  christos    Called after some initial checking by the tic54x_rtype_to_howto fn below.  */
    281  1.1  christos 
    282  1.1  christos static void
    283  1.1  christos tic54x_lookup_howto (internal, dst)
    284  1.1  christos      arelent *internal;
    285  1.1  christos      struct internal_reloc *dst;
    286  1.1  christos {
    287  1.1  christos   unsigned i;
    288  1.1  christos   int bank = (dst->r_symndx == -1) ? HOWTO_BANK : 0;
    289  1.1  christos 
    290  1.1  christos   for (i = 0; i < sizeof tic54x_howto_table/sizeof tic54x_howto_table[0]; i++)
    291  1.1  christos     {
    292  1.1  christos       if (tic54x_howto_table[i].type == dst->r_type)
    293  1.1  christos 	{
    294  1.1  christos 	  internal->howto = tic54x_howto_table + i + bank;
    295  1.1  christos 	  return;
    296  1.1  christos 	}
    297  1.1  christos     }
    298  1.1  christos 
    299  1.1  christos   (*_bfd_error_handler) (_("Unrecognized reloc type 0x%x"),
    300  1.1  christos 			 (unsigned int) dst->r_type);
    301  1.1  christos   abort ();
    302  1.1  christos }
    303  1.1  christos 
    304  1.1  christos #define RELOC_PROCESSING(RELENT,RELOC,SYMS,ABFD,SECT)\
    305  1.1  christos  tic54x_reloc_processing(RELENT,RELOC,SYMS,ABFD,SECT)
    306  1.1  christos 
    307  1.1  christos #define coff_rtype_to_howto coff_tic54x_rtype_to_howto
    308  1.1  christos 
    309  1.1  christos static reloc_howto_type *
    310  1.1  christos coff_tic54x_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
    311  1.1  christos      bfd *abfd ATTRIBUTE_UNUSED;
    312  1.1  christos      asection *sec;
    313  1.1  christos      struct internal_reloc *rel;
    314  1.1  christos      struct coff_link_hash_entry *h ATTRIBUTE_UNUSED;
    315  1.1  christos      struct internal_syment *sym ATTRIBUTE_UNUSED;
    316  1.1  christos      bfd_vma *addendp;
    317  1.1  christos {
    318  1.1  christos   arelent genrel;
    319  1.1  christos 
    320  1.1  christos   if (rel->r_symndx == -1 && addendp != NULL)
    321  1.1  christos     {
    322  1.1  christos       /* This is a TI "internal relocation", which means that the relocation
    323  1.1  christos 	 amount is the amount by which the current section is being relocated
    324  1.1  christos 	 in the output section.  */
    325  1.1  christos       *addendp = (sec->output_section->vma + sec->output_offset) - sec->vma;
    326  1.1  christos     }
    327  1.1  christos 
    328  1.1  christos   tic54x_lookup_howto (&genrel, rel);
    329  1.1  christos 
    330  1.1  christos   return genrel.howto;
    331  1.1  christos }
    332  1.1  christos 
    333  1.1  christos /* Replace the stock _bfd_coff_is_local_label_name to recognize TI COFF local
    334  1.1  christos    labels.  */
    335  1.1  christos 
    336  1.1  christos static bfd_boolean
    337  1.1  christos ticoff_bfd_is_local_label_name (abfd, name)
    338  1.1  christos   bfd *abfd ATTRIBUTE_UNUSED;
    339  1.1  christos   const char *name;
    340  1.1  christos {
    341  1.1  christos   if (TICOFF_LOCAL_LABEL_P(name))
    342  1.1  christos     return TRUE;
    343  1.1  christos   return FALSE;
    344  1.1  christos }
    345  1.1  christos 
    346  1.1  christos #define coff_bfd_is_local_label_name ticoff_bfd_is_local_label_name
    347  1.1  christos 
    348  1.1  christos /* Clear the r_reserved field in relocs.  */
    349  1.1  christos #define SWAP_OUT_RELOC_EXTRA(abfd,src,dst) \
    350  1.1  christos   do \
    351  1.1  christos     { \
    352  1.1  christos       dst->r_reserved[0] = 0; \
    353  1.1  christos       dst->r_reserved[1] = 0; \
    354  1.1  christos     } \
    355  1.1  christos   while (0)
    356  1.1  christos 
    357  1.1  christos /* Customize coffcode.h; the default coff_ functions are set up to use COFF2;
    358  1.1  christos    coff_bad_format_hook uses BADMAG, so set that for COFF2.  The COFF1
    359  1.1  christos    and COFF0 vectors use custom _bad_format_hook procs instead of setting
    360  1.1  christos    BADMAG.  */
    361  1.1  christos #define BADMAG(x) COFF2_BADMAG(x)
    362  1.1  christos 
    363  1.1  christos #ifndef bfd_pe_print_pdata
    364  1.1  christos #define bfd_pe_print_pdata	NULL
    365  1.1  christos #endif
    366  1.1  christos 
    367  1.1  christos #include "coffcode.h"
    368  1.1  christos 
    369  1.1  christos static bfd_boolean
    370  1.1  christos tic54x_set_section_contents (abfd, section, location, offset, bytes_to_do)
    371  1.1  christos      bfd *abfd;
    372  1.1  christos      sec_ptr section;
    373  1.1  christos      const PTR location;
    374  1.1  christos      file_ptr offset;
    375  1.1  christos      bfd_size_type bytes_to_do;
    376  1.1  christos {
    377  1.1  christos   return coff_set_section_contents (abfd, section, location,
    378  1.1  christos                                     offset, bytes_to_do);
    379  1.1  christos }
    380  1.1  christos 
    381  1.1  christos static void
    382  1.1  christos tic54x_reloc_processing (relent, reloc, symbols, abfd, section)
    383  1.1  christos      arelent *relent;
    384  1.1  christos      struct internal_reloc *reloc;
    385  1.1  christos      asymbol **symbols;
    386  1.1  christos      bfd *abfd;
    387  1.1  christos      asection *section;
    388  1.1  christos {
    389  1.1  christos   asymbol *ptr;
    390  1.1  christos 
    391  1.1  christos   relent->address = reloc->r_vaddr;
    392  1.1  christos 
    393  1.1  christos   if (reloc->r_symndx != -1)
    394  1.1  christos     {
    395  1.1  christos       if (reloc->r_symndx < 0 || reloc->r_symndx >= obj_conv_table_size (abfd))
    396  1.1  christos         {
    397  1.1  christos           (*_bfd_error_handler)
    398  1.1  christos             (_("%B: warning: illegal symbol index %ld in relocs"),
    399  1.1  christos              abfd, reloc->r_symndx);
    400  1.1  christos           relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr;
    401  1.1  christos           ptr = NULL;
    402  1.1  christos         }
    403  1.1  christos       else
    404  1.1  christos         {
    405  1.1  christos           relent->sym_ptr_ptr = (symbols
    406  1.1  christos                                  + obj_convert (abfd)[reloc->r_symndx]);
    407  1.1  christos           ptr = *(relent->sym_ptr_ptr);
    408  1.1  christos         }
    409  1.1  christos     }
    410  1.1  christos   else
    411  1.1  christos     {
    412  1.1  christos       relent->sym_ptr_ptr = section->symbol_ptr_ptr;
    413  1.1  christos       ptr = *(relent->sym_ptr_ptr);
    414  1.1  christos     }
    415  1.1  christos 
    416  1.1  christos   /* The symbols definitions that we have read in have been
    417  1.1  christos      relocated as if their sections started at 0. But the offsets
    418  1.1  christos      refering to the symbols in the raw data have not been
    419  1.1  christos      modified, so we have to have a negative addend to compensate.
    420  1.1  christos 
    421  1.1  christos      Note that symbols which used to be common must be left alone.  */
    422  1.1  christos 
    423  1.1  christos   /* Calculate any reloc addend by looking at the symbol.  */
    424  1.1  christos   CALC_ADDEND (abfd, ptr, *reloc, relent);
    425  1.1  christos 
    426  1.1  christos   relent->address -= section->vma;
    427  1.1  christos   /* !!     relent->section = (asection *) NULL;*/
    428  1.1  christos 
    429  1.1  christos   /* Fill in the relent->howto field from reloc->r_type.  */
    430  1.1  christos   tic54x_lookup_howto (relent, reloc);
    431  1.1  christos }
    432  1.1  christos 
    433  1.1  christos /* TI COFF v0, DOS tools (little-endian headers).  */
    434  1.1  christos const bfd_target tic54x_coff0_vec =
    435  1.1  christos   {
    436  1.1  christos     "coff0-c54x",			/* name */
    437  1.1  christos     bfd_target_coff_flavour,
    438  1.1  christos     BFD_ENDIAN_LITTLE,		/* data byte order is little */
    439  1.1  christos     BFD_ENDIAN_LITTLE,		/* header byte order is little (DOS tools) */
    440  1.1  christos 
    441  1.1  christos     (HAS_RELOC | EXEC_P |		/* object flags */
    442  1.1  christos      HAS_LINENO | HAS_DEBUG |
    443  1.1  christos      HAS_SYMS | HAS_LOCALS | WP_TEXT ),
    444  1.1  christos 
    445  1.1  christos     (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
    446  1.1  christos     '_',				/* leading symbol underscore */
    447  1.1  christos     '/',				/* ar_pad_char */
    448  1.1  christos     15,				/* ar_max_namelen */
    449  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    450  1.1  christos     tic54x_getl32, tic54x_getl_signed_32, tic54x_putl32,
    451  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* data */
    452  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    453  1.1  christos     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
    454  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* hdrs */
    455  1.1  christos 
    456  1.1  christos     {_bfd_dummy_target, coff_object_p,	/* bfd_check_format */
    457  1.1  christos      bfd_generic_archive_p, _bfd_dummy_target},
    458  1.1  christos     {bfd_false, coff_mkobject, _bfd_generic_mkarchive,	/* bfd_set_format */
    459  1.1  christos      bfd_false},
    460  1.1  christos     {bfd_false, coff_write_object_contents,	/* bfd_write_contents */
    461  1.1  christos      _bfd_write_archive_contents, bfd_false},
    462  1.1  christos 
    463  1.1  christos     BFD_JUMP_TABLE_GENERIC (coff),
    464  1.1  christos     BFD_JUMP_TABLE_COPY (coff),
    465  1.1  christos     BFD_JUMP_TABLE_CORE (_bfd_nocore),
    466  1.1  christos     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
    467  1.1  christos     BFD_JUMP_TABLE_SYMBOLS (coff),
    468  1.1  christos     BFD_JUMP_TABLE_RELOCS (coff),
    469  1.1  christos     BFD_JUMP_TABLE_WRITE (tic54x),
    470  1.1  christos     BFD_JUMP_TABLE_LINK (coff),
    471  1.1  christos     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
    472  1.1  christos     NULL,
    473  1.1  christos 
    474  1.1  christos     (PTR) & ticoff0_swap_table
    475  1.1  christos   };
    476  1.1  christos 
    477  1.1  christos /* TI COFF v0, SPARC tools (big-endian headers).  */
    478  1.1  christos const bfd_target tic54x_coff0_beh_vec =
    479  1.1  christos   {
    480  1.1  christos     "coff0-beh-c54x",			/* name */
    481  1.1  christos     bfd_target_coff_flavour,
    482  1.1  christos     BFD_ENDIAN_LITTLE,		/* data byte order is little */
    483  1.1  christos     BFD_ENDIAN_BIG,		/* header byte order is big */
    484  1.1  christos 
    485  1.1  christos     (HAS_RELOC | EXEC_P |		/* object flags */
    486  1.1  christos      HAS_LINENO | HAS_DEBUG |
    487  1.1  christos      HAS_SYMS | HAS_LOCALS | WP_TEXT ),
    488  1.1  christos 
    489  1.1  christos     (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
    490  1.1  christos     '_',				/* leading symbol underscore */
    491  1.1  christos     '/',				/* ar_pad_char */
    492  1.1  christos     15,				/* ar_max_namelen */
    493  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    494  1.1  christos     tic54x_getl32, tic54x_getl_signed_32, tic54x_putl32,
    495  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* data */
    496  1.1  christos     bfd_getb64, bfd_getb_signed_64, bfd_putb64,
    497  1.1  christos     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
    498  1.1  christos     bfd_getb16, bfd_getb_signed_16, bfd_putb16,	/* hdrs */
    499  1.1  christos 
    500  1.1  christos     {_bfd_dummy_target, coff_object_p,	/* bfd_check_format */
    501  1.1  christos      bfd_generic_archive_p, _bfd_dummy_target},
    502  1.1  christos     {bfd_false, coff_mkobject, _bfd_generic_mkarchive,	/* bfd_set_format */
    503  1.1  christos      bfd_false},
    504  1.1  christos     {bfd_false, coff_write_object_contents,	/* bfd_write_contents */
    505  1.1  christos      _bfd_write_archive_contents, bfd_false},
    506  1.1  christos 
    507  1.1  christos     BFD_JUMP_TABLE_GENERIC (coff),
    508  1.1  christos     BFD_JUMP_TABLE_COPY (coff),
    509  1.1  christos     BFD_JUMP_TABLE_CORE (_bfd_nocore),
    510  1.1  christos     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
    511  1.1  christos     BFD_JUMP_TABLE_SYMBOLS (coff),
    512  1.1  christos     BFD_JUMP_TABLE_RELOCS (coff),
    513  1.1  christos     BFD_JUMP_TABLE_WRITE (tic54x),
    514  1.1  christos     BFD_JUMP_TABLE_LINK (coff),
    515  1.1  christos     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
    516  1.1  christos 
    517  1.1  christos     & tic54x_coff0_vec,
    518  1.1  christos 
    519  1.1  christos     (PTR) & ticoff0_swap_table
    520  1.1  christos   };
    521  1.1  christos 
    522  1.1  christos /* TI COFF v1, DOS tools (little-endian headers).  */
    523  1.1  christos const bfd_target tic54x_coff1_vec =
    524  1.1  christos   {
    525  1.1  christos     "coff1-c54x",			/* name */
    526  1.1  christos     bfd_target_coff_flavour,
    527  1.1  christos     BFD_ENDIAN_LITTLE,		/* data byte order is little */
    528  1.1  christos     BFD_ENDIAN_LITTLE,		/* header byte order is little (DOS tools) */
    529  1.1  christos 
    530  1.1  christos     (HAS_RELOC | EXEC_P |		/* object flags */
    531  1.1  christos      HAS_LINENO | HAS_DEBUG |
    532  1.1  christos      HAS_SYMS | HAS_LOCALS | WP_TEXT ),
    533  1.1  christos 
    534  1.1  christos     (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
    535  1.1  christos     '_',				/* leading symbol underscore */
    536  1.1  christos     '/',				/* ar_pad_char */
    537  1.1  christos     15,				/* ar_max_namelen */
    538  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    539  1.1  christos     tic54x_getl32, tic54x_getl_signed_32, tic54x_putl32,
    540  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* data */
    541  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    542  1.1  christos     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
    543  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* hdrs */
    544  1.1  christos 
    545  1.1  christos     {_bfd_dummy_target, coff_object_p,	/* bfd_check_format */
    546  1.1  christos      bfd_generic_archive_p, _bfd_dummy_target},
    547  1.1  christos     {bfd_false, coff_mkobject, _bfd_generic_mkarchive,	/* bfd_set_format */
    548  1.1  christos      bfd_false},
    549  1.1  christos     {bfd_false, coff_write_object_contents,	/* bfd_write_contents */
    550  1.1  christos      _bfd_write_archive_contents, bfd_false},
    551  1.1  christos 
    552  1.1  christos     BFD_JUMP_TABLE_GENERIC (coff),
    553  1.1  christos     BFD_JUMP_TABLE_COPY (coff),
    554  1.1  christos     BFD_JUMP_TABLE_CORE (_bfd_nocore),
    555  1.1  christos     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
    556  1.1  christos     BFD_JUMP_TABLE_SYMBOLS (coff),
    557  1.1  christos     BFD_JUMP_TABLE_RELOCS (coff),
    558  1.1  christos     BFD_JUMP_TABLE_WRITE (tic54x),
    559  1.1  christos     BFD_JUMP_TABLE_LINK (coff),
    560  1.1  christos     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
    561  1.1  christos 
    562  1.1  christos     & tic54x_coff0_beh_vec,
    563  1.1  christos 
    564  1.1  christos     (PTR) & ticoff1_swap_table
    565  1.1  christos };
    566  1.1  christos 
    567  1.1  christos /* TI COFF v1, SPARC tools (big-endian headers).  */
    568  1.1  christos const bfd_target tic54x_coff1_beh_vec =
    569  1.1  christos   {
    570  1.1  christos     "coff1-beh-c54x",			/* name */
    571  1.1  christos     bfd_target_coff_flavour,
    572  1.1  christos     BFD_ENDIAN_LITTLE,		/* data byte order is little */
    573  1.1  christos     BFD_ENDIAN_BIG,		/* header byte order is big */
    574  1.1  christos 
    575  1.1  christos     (HAS_RELOC | EXEC_P |		/* object flags */
    576  1.1  christos      HAS_LINENO | HAS_DEBUG |
    577  1.1  christos      HAS_SYMS | HAS_LOCALS | WP_TEXT ),
    578  1.1  christos 
    579  1.1  christos     (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
    580  1.1  christos     '_',				/* leading symbol underscore */
    581  1.1  christos     '/',				/* ar_pad_char */
    582  1.1  christos     15,				/* ar_max_namelen */
    583  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    584  1.1  christos     tic54x_getl32, tic54x_getl_signed_32, tic54x_putl32,
    585  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* data */
    586  1.1  christos     bfd_getb64, bfd_getb_signed_64, bfd_putb64,
    587  1.1  christos     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
    588  1.1  christos     bfd_getb16, bfd_getb_signed_16, bfd_putb16,	/* hdrs */
    589  1.1  christos 
    590  1.1  christos     {_bfd_dummy_target, coff_object_p,	/* bfd_check_format */
    591  1.1  christos      bfd_generic_archive_p, _bfd_dummy_target},
    592  1.1  christos     {bfd_false, coff_mkobject, _bfd_generic_mkarchive,	/* bfd_set_format */
    593  1.1  christos      bfd_false},
    594  1.1  christos     {bfd_false, coff_write_object_contents,	/* bfd_write_contents */
    595  1.1  christos      _bfd_write_archive_contents, bfd_false},
    596  1.1  christos 
    597  1.1  christos     BFD_JUMP_TABLE_GENERIC (coff),
    598  1.1  christos     BFD_JUMP_TABLE_COPY (coff),
    599  1.1  christos     BFD_JUMP_TABLE_CORE (_bfd_nocore),
    600  1.1  christos     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
    601  1.1  christos     BFD_JUMP_TABLE_SYMBOLS (coff),
    602  1.1  christos     BFD_JUMP_TABLE_RELOCS (coff),
    603  1.1  christos     BFD_JUMP_TABLE_WRITE (tic54x),
    604  1.1  christos     BFD_JUMP_TABLE_LINK (coff),
    605  1.1  christos     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
    606  1.1  christos 
    607  1.1  christos     & tic54x_coff1_vec,
    608  1.1  christos 
    609  1.1  christos     (PTR) & ticoff1_swap_table
    610  1.1  christos   };
    611  1.1  christos 
    612  1.1  christos /* TI COFF v2, TI DOS tools output (little-endian headers).  */
    613  1.1  christos const bfd_target tic54x_coff2_vec =
    614  1.1  christos   {
    615  1.1  christos     "coff2-c54x",			/* name */
    616  1.1  christos     bfd_target_coff_flavour,
    617  1.1  christos     BFD_ENDIAN_LITTLE,		/* data byte order is little */
    618  1.1  christos     BFD_ENDIAN_LITTLE,		/* header byte order is little (DOS tools) */
    619  1.1  christos 
    620  1.1  christos     (HAS_RELOC | EXEC_P |		/* object flags */
    621  1.1  christos      HAS_LINENO | HAS_DEBUG |
    622  1.1  christos      HAS_SYMS | HAS_LOCALS | WP_TEXT ),
    623  1.1  christos 
    624  1.1  christos     (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
    625  1.1  christos     '_',				/* leading symbol underscore */
    626  1.1  christos     '/',				/* ar_pad_char */
    627  1.1  christos     15,				/* ar_max_namelen */
    628  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    629  1.1  christos     tic54x_getl32, tic54x_getl_signed_32, tic54x_putl32,
    630  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* data */
    631  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    632  1.1  christos     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
    633  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* hdrs */
    634  1.1  christos 
    635  1.1  christos     {_bfd_dummy_target, coff_object_p,	/* bfd_check_format */
    636  1.1  christos      bfd_generic_archive_p, _bfd_dummy_target},
    637  1.1  christos     {bfd_false, coff_mkobject, _bfd_generic_mkarchive,	/* bfd_set_format */
    638  1.1  christos      bfd_false},
    639  1.1  christos     {bfd_false, coff_write_object_contents,	/* bfd_write_contents */
    640  1.1  christos      _bfd_write_archive_contents, bfd_false},
    641  1.1  christos 
    642  1.1  christos     BFD_JUMP_TABLE_GENERIC (coff),
    643  1.1  christos     BFD_JUMP_TABLE_COPY (coff),
    644  1.1  christos     BFD_JUMP_TABLE_CORE (_bfd_nocore),
    645  1.1  christos     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
    646  1.1  christos     BFD_JUMP_TABLE_SYMBOLS (coff),
    647  1.1  christos     BFD_JUMP_TABLE_RELOCS (coff),
    648  1.1  christos     BFD_JUMP_TABLE_WRITE (tic54x),
    649  1.1  christos     BFD_JUMP_TABLE_LINK (coff),
    650  1.1  christos     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
    651  1.1  christos 
    652  1.1  christos     & tic54x_coff1_beh_vec,
    653  1.1  christos 
    654  1.1  christos     COFF_SWAP_TABLE
    655  1.1  christos   };
    656  1.1  christos 
    657  1.1  christos /* TI COFF v2, TI SPARC tools output (big-endian headers).  */
    658  1.1  christos const bfd_target tic54x_coff2_beh_vec =
    659  1.1  christos   {
    660  1.1  christos     "coff2-beh-c54x",			/* name */
    661  1.1  christos     bfd_target_coff_flavour,
    662  1.1  christos     BFD_ENDIAN_LITTLE,		/* data byte order is little */
    663  1.1  christos     BFD_ENDIAN_BIG,		/* header byte order is big */
    664  1.1  christos 
    665  1.1  christos     (HAS_RELOC | EXEC_P |		/* object flags */
    666  1.1  christos      HAS_LINENO | HAS_DEBUG |
    667  1.1  christos      HAS_SYMS | HAS_LOCALS | WP_TEXT ),
    668  1.1  christos 
    669  1.1  christos     (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
    670  1.1  christos     '_',				/* leading symbol underscore */
    671  1.1  christos     '/',				/* ar_pad_char */
    672  1.1  christos     15,				/* ar_max_namelen */
    673  1.1  christos     bfd_getl64, bfd_getl_signed_64, bfd_putl64,
    674  1.1  christos     tic54x_getl32, tic54x_getl_signed_32, tic54x_putl32,
    675  1.1  christos     bfd_getl16, bfd_getl_signed_16, bfd_putl16,	/* data */
    676  1.1  christos     bfd_getb64, bfd_getb_signed_64, bfd_putb64,
    677  1.1  christos     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
    678  1.1  christos     bfd_getb16, bfd_getb_signed_16, bfd_putb16,	/* hdrs */
    679  1.1  christos 
    680  1.1  christos     {_bfd_dummy_target, coff_object_p,	/* bfd_check_format */
    681  1.1  christos      bfd_generic_archive_p, _bfd_dummy_target},
    682  1.1  christos     {bfd_false, coff_mkobject, _bfd_generic_mkarchive,	/* bfd_set_format */
    683  1.1  christos      bfd_false},
    684  1.1  christos     {bfd_false, coff_write_object_contents,	/* bfd_write_contents */
    685  1.1  christos      _bfd_write_archive_contents, bfd_false},
    686  1.1  christos 
    687  1.1  christos     BFD_JUMP_TABLE_GENERIC (coff),
    688  1.1  christos     BFD_JUMP_TABLE_COPY (coff),
    689  1.1  christos     BFD_JUMP_TABLE_CORE (_bfd_nocore),
    690  1.1  christos     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
    691  1.1  christos     BFD_JUMP_TABLE_SYMBOLS (coff),
    692  1.1  christos     BFD_JUMP_TABLE_RELOCS (coff),
    693  1.1  christos     BFD_JUMP_TABLE_WRITE (tic54x),
    694  1.1  christos     BFD_JUMP_TABLE_LINK (coff),
    695  1.1  christos     BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
    696  1.1  christos 
    697  1.1  christos     & tic54x_coff2_vec,
    698  1.1  christos 
    699  1.1  christos     COFF_SWAP_TABLE
    700  1.1  christos   };
    701