[thirdparty/binutils-gdb.git] / bfd / coff-tic4x.c

/* BFD back-end for TMS320C4X coff binaries.
   Copyright 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2005
   Free Software Foundation, Inc.

   Contributed by Michael Hayes (m.hayes@elec.canterbury.ac.nz)

   This file is part of BFD, the Binary File Descriptor library.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
   02110-1301, USA.  */

#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "bfdlink.h"
#include "coff/tic4x.h"
#include "coff/internal.h"
#include "libcoff.h"

#undef  F_LSYMS
#define	F_LSYMS		F_LSYMS_TICOFF

static bfd_boolean ticoff_bfd_is_local_label_name
    PARAMS ((bfd *, const char *));
static bfd_reloc_status_type tic4x_relocation
    PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char ** ));
static reloc_howto_type *tic4x_coff_reloc_type_lookup
    PARAMS ((bfd *, bfd_reloc_code_real_type ));
static void tic4x_lookup_howto
    PARAMS ((arelent *, struct internal_reloc * ));
static reloc_howto_type *coff_tic4x_rtype_to_howto
    PARAMS ((bfd *, asection *, struct internal_reloc *, struct coff_link_hash_entry *, struct internal_syment *, bfd_vma * ));
static void tic4x_reloc_processing
    PARAMS ((arelent *, struct internal_reloc *, asymbol **, bfd *, asection * ));


/* Replace the stock _bfd_coff_is_local_label_name to recognize TI COFF local
   labels.  */
static bfd_boolean
ticoff_bfd_is_local_label_name (abfd, name)
  bfd *abfd ATTRIBUTE_UNUSED;
  const char *name;
{
  if (TICOFF_LOCAL_LABEL_P(name))
    return TRUE;
  return FALSE;
}

#define coff_bfd_is_local_label_name ticoff_bfd_is_local_label_name

#define RELOC_PROCESSING(RELENT,RELOC,SYMS,ABFD,SECT)\
 tic4x_reloc_processing (RELENT,RELOC,SYMS,ABFD,SECT)

/* Customize coffcode.h; the default coff_ functions are set up to use
   COFF2; coff_bad_format_hook uses BADMAG, so set that for COFF2.
   The COFF1 and COFF0 vectors use custom _bad_format_hook procs
   instead of setting BADMAG.  */
#define BADMAG(x) COFF2_BADMAG(x)

#undef coff_rtype_to_howto
#define coff_rtype_to_howto coff_tic4x_rtype_to_howto

#include "coffcode.h"

static bfd_reloc_status_type
tic4x_relocation (abfd, reloc_entry, symbol, data, input_section,
		  output_bfd, error_message)
  bfd *abfd ATTRIBUTE_UNUSED;
  arelent *reloc_entry;
  asymbol *symbol ATTRIBUTE_UNUSED;
  PTR data ATTRIBUTE_UNUSED;
  asection *input_section;
  bfd *output_bfd;
  char **error_message ATTRIBUTE_UNUSED;
{
  if (output_bfd != (bfd *) NULL)
    {
      /* This is a partial relocation, and we want to apply the
 	 relocation to the reloc entry rather than the raw data.
 	 Modify the reloc inplace to reflect what we now know.  */
      reloc_entry->address += input_section->output_offset;
      return bfd_reloc_ok;
    }
  return bfd_reloc_continue;
}

reloc_howto_type tic4x_howto_table[] =
{
    HOWTO(R_RELWORD,	 0,  2, 16, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "RELWORD",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
    HOWTO(R_REL24,	 0,  2, 24, FALSE, 0, complain_overflow_bitfield, tic4x_relocation, "REL24",     TRUE, 0x00ffffff, 0x00ffffff, FALSE),
    HOWTO(R_RELLONG,	 0,  2, 32, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "RELLONG",   TRUE, 0xffffffff, 0xffffffff, FALSE),
    HOWTO(R_PCRWORD,	 0,  2, 16, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "PCRWORD",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
    HOWTO(R_PCR24,	 0,  2, 24, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "PCR24",     TRUE, 0x00ffffff, 0x00ffffff, FALSE),
    HOWTO(R_PARTLS16,	 0,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "PARTLS16",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
    HOWTO(R_PARTMS8,	16,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "PARTMS8",   TRUE, 0x0000ffff, 0x0000ffff, FALSE),
    HOWTO(R_RELWORD,	 0,  2, 16, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "ARELWORD",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
    HOWTO(R_REL24,	 0,  2, 24, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "AREL24",    TRUE, 0x00ffffff, 0x00ffffff, FALSE),
    HOWTO(R_RELLONG,	 0,  2, 32, FALSE, 0, complain_overflow_signed,   tic4x_relocation, "ARELLONG",  TRUE, 0xffffffff, 0xffffffff, FALSE),
    HOWTO(R_PCRWORD,	 0,  2, 16, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "APCRWORD",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
    HOWTO(R_PCR24,	 0,  2, 24, TRUE,  0, complain_overflow_signed,   tic4x_relocation, "APCR24",    TRUE, 0x00ffffff, 0x00ffffff, FALSE),
    HOWTO(R_PARTLS16,	 0,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "APARTLS16", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
    HOWTO(R_PARTMS8,	16,  2, 16, FALSE, 0, complain_overflow_dont,     tic4x_relocation, "APARTMS8",  TRUE, 0x0000ffff, 0x0000ffff, FALSE),
};
#define HOWTO_SIZE (sizeof(tic4x_howto_table) / sizeof(tic4x_howto_table[0]))

#undef coff_bfd_reloc_type_lookup
#define coff_bfd_reloc_type_lookup tic4x_coff_reloc_type_lookup

/* For the case statement use the code values used tc_gen_reloc (defined in
   bfd/reloc.c) to map to the howto table entries.  */

static reloc_howto_type *
tic4x_coff_reloc_type_lookup (abfd, code)
    bfd *abfd ATTRIBUTE_UNUSED;
    bfd_reloc_code_real_type code;
{
  unsigned int type;
  unsigned int i;

  switch (code)
    {
    case BFD_RELOC_32:		type = R_RELLONG; break;
    case BFD_RELOC_24:		type = R_REL24; break;
    case BFD_RELOC_16:		type = R_RELWORD; break;
    case BFD_RELOC_24_PCREL:	type = R_PCR24; break;
    case BFD_RELOC_16_PCREL:	type = R_PCRWORD; break;
    case BFD_RELOC_HI16:	type = R_PARTMS8; break;
    case BFD_RELOC_LO16:	type = R_PARTLS16; break;
    default:
      return NULL;
    }

  for (i = 0; i < HOWTO_SIZE; i++)
    {
      if (tic4x_howto_table[i].type == type)
	return tic4x_howto_table + i;
    }
  return NULL;
}


/* Code to turn a r_type into a howto ptr, uses the above howto table.
   Called after some initial checking by the tic4x_rtype_to_howto fn
   below.  */
static void
tic4x_lookup_howto (internal, dst)
     arelent *internal;
     struct internal_reloc *dst;
{
  unsigned int i;
  int bank = (dst->r_symndx == -1) ? HOWTO_BANK : 0;

  for (i = 0; i < HOWTO_SIZE; i++)
    {
      if (tic4x_howto_table[i].type == dst->r_type)
	{
	  internal->howto = tic4x_howto_table + i + bank;
	  return;
	}
    }

  (*_bfd_error_handler) (_("Unrecognized reloc type 0x%x"),
			 (unsigned int) dst->r_type);
  abort();
}

static reloc_howto_type *
coff_tic4x_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
     bfd *abfd ATTRIBUTE_UNUSED;
     asection *sec;
     struct internal_reloc *rel;
     struct coff_link_hash_entry *h ATTRIBUTE_UNUSED;
     struct internal_syment *sym ATTRIBUTE_UNUSED;
     bfd_vma *addendp;
{
  arelent genrel;

  if (rel->r_symndx == -1 && addendp != NULL)
    /* This is a TI "internal relocation", which means that the relocation
       amount is the amount by which the current section is being relocated
       in the output section.  */
    *addendp = (sec->output_section->vma + sec->output_offset) - sec->vma;

  tic4x_lookup_howto (&genrel, rel);

  return genrel.howto;
}


static void
tic4x_reloc_processing (relent, reloc, symbols, abfd, section)
     arelent *relent;
     struct internal_reloc *reloc;
     asymbol **symbols;
     bfd *abfd;
     asection *section;
{
  asymbol *ptr;

  relent->address = reloc->r_vaddr;

  if (reloc->r_symndx != -1)
    {
      if (reloc->r_symndx < 0 || reloc->r_symndx >= obj_conv_table_size (abfd))
        {
          (*_bfd_error_handler)
            (_("%s: warning: illegal symbol index %ld in relocs"),
             bfd_get_filename (abfd), reloc->r_symndx);
          relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr;
          ptr = NULL;
        }
      else
        {
          relent->sym_ptr_ptr = (symbols
                                 + obj_convert (abfd)[reloc->r_symndx]);
          ptr = *(relent->sym_ptr_ptr);
        }
    }
  else
    {
      relent->sym_ptr_ptr = section->symbol_ptr_ptr;
      ptr = *(relent->sym_ptr_ptr);
    }

  /* The symbols definitions that we have read in have been relocated
     as if their sections started at 0.  But the offsets refering to
     the symbols in the raw data have not been modified, so we have to
     have a negative addend to compensate.

     Note that symbols which used to be common must be left alone.  */

  /* Calculate any reloc addend by looking at the symbol.  */
  CALC_ADDEND (abfd, ptr, *reloc, relent);

  relent->address -= section->vma;
  /* !!     relent->section = (asection *) NULL;  */

  /* Fill in the relent->howto field from reloc->r_type.  */
  tic4x_lookup_howto (relent, reloc);
}


/* TI COFF v0, DOS tools (little-endian headers).  */
CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff0_vec, "coff0-tic4x", HAS_LOAD_PAGE, 0, '_', NULL, (PTR)&ticoff0_swap_table);

/* TI COFF v0, SPARC tools (big-endian headers).  */
CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff0_beh_vec, "coff0-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff0_vec, (PTR)&ticoff0_swap_table);

/* TI COFF v1, DOS tools (little-endian headers).  */
CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff1_vec, "coff1-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff0_beh_vec, (PTR)&ticoff1_swap_table);

/* TI COFF v1, SPARC tools (big-endian headers).  */
CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff1_beh_vec, "coff1-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff1_vec, (PTR)&ticoff1_swap_table);

/* TI COFF v2, TI DOS tools output (little-endian headers).  */
CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff2_vec, "coff2-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff1_beh_vec, COFF_SWAP_TABLE);

/* TI COFF v2, TI SPARC tools output (big-endian headers).  */
CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff2_beh_vec, "coff2-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff2_vec, COFF_SWAP_TABLE);
Commit	Line	Data
026df7c5	1	/* BFD back-end for TMS320C4X coff binaries.
9553c638	2	Copyright 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2005
5af6ead6	3	Free Software Foundation, Inc.
be33c5dd	4
026df7c5 NC	5	Contributed by Michael Hayes (m.hayes@elec.canterbury.ac.nz)
	6
	7	This file is part of BFD, the Binary File Descriptor library.
	8
	9	This program is free software; you can redistribute it and/or modify
	10	it under the terms of the GNU General Public License as published by
	11	the Free Software Foundation; either version 2 of the License, or
	12	(at your option) any later version.
	13
	14	This program is distributed in the hope that it will be useful,
	15	but WITHOUT ANY WARRANTY; without even the implied warranty of
	16	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	GNU General Public License for more details.
	18
	19	You should have received a copy of the GNU General Public License
	20	along with this program; if not, write to the Free Software
3e110533	21	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
53e09e0a	22	02110-1301, USA. */
026df7c5 NC	23
	24	#include "bfd.h"
	25	#include "sysdep.h"
	26	#include "libbfd.h"
	27	#include "bfdlink.h"
	28	#include "coff/tic4x.h"
	29	#include "coff/internal.h"
	30	#include "libcoff.h"
	31
	32	#undef F_LSYMS
	33	#define F_LSYMS F_LSYMS_TICOFF
	34
b34976b6	35	static bfd_boolean ticoff_bfd_is_local_label_name
5af6ead6 AM	36	PARAMS ((bfd , const char ));
	37	static bfd_reloc_status_type tic4x_relocation
	38	PARAMS ((bfd , arelent , asymbol , PTR, asection , bfd , char * ));
	39	static reloc_howto_type *tic4x_coff_reloc_type_lookup
	40	PARAMS ((bfd *, bfd_reloc_code_real_type ));
	41	static void tic4x_lookup_howto
	42	PARAMS ((arelent , struct internal_reloc ));
	43	static reloc_howto_type *coff_tic4x_rtype_to_howto
	44	PARAMS ((bfd , asection , struct internal_reloc , struct coff_link_hash_entry , struct internal_syment , bfd_vma ));
	45	static void tic4x_reloc_processing
	46	PARAMS ((arelent , struct internal_reloc , asymbol *, bfd , asection * ));
	47
	48
026df7c5 NC	49	/* Replace the stock _bfd_coff_is_local_label_name to recognize TI COFF local
026df7c5 NC	50	labels. */
b34976b6	51	static bfd_boolean
026df7c5 NC	52	ticoff_bfd_is_local_label_name (abfd, name)
	53	bfd *abfd ATTRIBUTE_UNUSED;
	54	const char *name;
	55	{
	56	if (TICOFF_LOCAL_LABEL_P(name))
b34976b6 AM	57	return TRUE;
b34976b6 AM	58	return FALSE;
026df7c5 NC	59	}
	60
	61	#define coff_bfd_is_local_label_name ticoff_bfd_is_local_label_name
	62
026df7c5 NC	63	#define RELOC_PROCESSING(RELENT,RELOC,SYMS,ABFD,SECT)\
	64	tic4x_reloc_processing (RELENT,RELOC,SYMS,ABFD,SECT)
	65
	66	/* Customize coffcode.h; the default coff_ functions are set up to use
	67	COFF2; coff_bad_format_hook uses BADMAG, so set that for COFF2.
	68	The COFF1 and COFF0 vectors use custom _bad_format_hook procs
	69	instead of setting BADMAG. */
	70	#define BADMAG(x) COFF2_BADMAG(x)
3e25964f NC	71
	72	#undef coff_rtype_to_howto
	73	#define coff_rtype_to_howto coff_tic4x_rtype_to_howto
	74
026df7c5 NC	75	#include "coffcode.h"
	76
	77	static bfd_reloc_status_type
b34976b6	78	tic4x_relocation (abfd, reloc_entry, symbol, data, input_section,
026df7c5 NC	79	output_bfd, error_message)
	80	bfd *abfd ATTRIBUTE_UNUSED;
	81	arelent *reloc_entry;
	82	asymbol *symbol ATTRIBUTE_UNUSED;
	83	PTR data ATTRIBUTE_UNUSED;
	84	asection *input_section;
	85	bfd *output_bfd;
	86	char **error_message ATTRIBUTE_UNUSED;
b34976b6	87	{
026df7c5 NC	88	if (output_bfd != (bfd *) NULL)
	89	{
	90	/* This is a partial relocation, and we want to apply the
	91	relocation to the reloc entry rather than the raw data.
	92	Modify the reloc inplace to reflect what we now know. */
	93	reloc_entry->address += input_section->output_offset;
	94	return bfd_reloc_ok;
	95	}
	96	return bfd_reloc_continue;
	97	}
	98
b34976b6	99	reloc_howto_type tic4x_howto_table[] =
026df7c5	100	{
b34976b6 AM	101	HOWTO(R_RELWORD, 0, 2, 16, FALSE, 0, complain_overflow_signed, tic4x_relocation, "RELWORD", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
	102	HOWTO(R_REL24, 0, 2, 24, FALSE, 0, complain_overflow_bitfield, tic4x_relocation, "REL24", TRUE, 0x00ffffff, 0x00ffffff, FALSE),
	103	HOWTO(R_RELLONG, 0, 2, 32, FALSE, 0, complain_overflow_dont, tic4x_relocation, "RELLONG", TRUE, 0xffffffff, 0xffffffff, FALSE),
	104	HOWTO(R_PCRWORD, 0, 2, 16, TRUE, 0, complain_overflow_signed, tic4x_relocation, "PCRWORD", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
	105	HOWTO(R_PCR24, 0, 2, 24, TRUE, 0, complain_overflow_signed, tic4x_relocation, "PCR24", TRUE, 0x00ffffff, 0x00ffffff, FALSE),
	106	HOWTO(R_PARTLS16, 0, 2, 16, FALSE, 0, complain_overflow_dont, tic4x_relocation, "PARTLS16", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
	107	HOWTO(R_PARTMS8, 16, 2, 16, FALSE, 0, complain_overflow_dont, tic4x_relocation, "PARTMS8", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
	108	HOWTO(R_RELWORD, 0, 2, 16, FALSE, 0, complain_overflow_signed, tic4x_relocation, "ARELWORD", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
	109	HOWTO(R_REL24, 0, 2, 24, FALSE, 0, complain_overflow_signed, tic4x_relocation, "AREL24", TRUE, 0x00ffffff, 0x00ffffff, FALSE),
	110	HOWTO(R_RELLONG, 0, 2, 32, FALSE, 0, complain_overflow_signed, tic4x_relocation, "ARELLONG", TRUE, 0xffffffff, 0xffffffff, FALSE),
	111	HOWTO(R_PCRWORD, 0, 2, 16, TRUE, 0, complain_overflow_signed, tic4x_relocation, "APCRWORD", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
	112	HOWTO(R_PCR24, 0, 2, 24, TRUE, 0, complain_overflow_signed, tic4x_relocation, "APCR24", TRUE, 0x00ffffff, 0x00ffffff, FALSE),
	113	HOWTO(R_PARTLS16, 0, 2, 16, FALSE, 0, complain_overflow_dont, tic4x_relocation, "APARTLS16", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
	114	HOWTO(R_PARTMS8, 16, 2, 16, FALSE, 0, complain_overflow_dont, tic4x_relocation, "APARTMS8", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
026df7c5 NC	115	};
	116	#define HOWTO_SIZE (sizeof(tic4x_howto_table) / sizeof(tic4x_howto_table[0]))
	117
	118	#undef coff_bfd_reloc_type_lookup
	119	#define coff_bfd_reloc_type_lookup tic4x_coff_reloc_type_lookup
	120
	121	/* For the case statement use the code values used tc_gen_reloc (defined in
	122	bfd/reloc.c) to map to the howto table entries. */
	123
	124	static reloc_howto_type *
	125	tic4x_coff_reloc_type_lookup (abfd, code)
	126	bfd *abfd ATTRIBUTE_UNUSED;
	127	bfd_reloc_code_real_type code;
	128	{
	129	unsigned int type;
	130	unsigned int i;
b34976b6	131
026df7c5 NC	132	switch (code)
	133	{
	134	case BFD_RELOC_32: type = R_RELLONG; break;
	135	case BFD_RELOC_24: type = R_REL24; break;
	136	case BFD_RELOC_16: type = R_RELWORD; break;
	137	case BFD_RELOC_24_PCREL: type = R_PCR24; break;
	138	case BFD_RELOC_16_PCREL: type = R_PCRWORD; break;
	139	case BFD_RELOC_HI16: type = R_PARTMS8; break;
	140	case BFD_RELOC_LO16: type = R_PARTLS16; break;
	141	default:
	142	return NULL;
	143	}
b34976b6	144
026df7c5 NC	145	for (i = 0; i < HOWTO_SIZE; i++)
	146	{
	147	if (tic4x_howto_table[i].type == type)
	148	return tic4x_howto_table + i;
	149	}
	150	return NULL;
	151	}
	152
	153
	154	/* Code to turn a r_type into a howto ptr, uses the above howto table.
	155	Called after some initial checking by the tic4x_rtype_to_howto fn
	156	below. */
	157	static void
	158	tic4x_lookup_howto (internal, dst)
	159	arelent *internal;
	160	struct internal_reloc *dst;
	161	{
	162	unsigned int i;
	163	int bank = (dst->r_symndx == -1) ? HOWTO_BANK : 0;
	164
	165	for (i = 0; i < HOWTO_SIZE; i++)
	166	{
	167	if (tic4x_howto_table[i].type == dst->r_type)
	168	{
	169	internal->howto = tic4x_howto_table + i + bank;
	170	return;
	171	}
	172	}
	173
	174	(*_bfd_error_handler) (_("Unrecognized reloc type 0x%x"),
	175	(unsigned int) dst->r_type);
	176	abort();
	177	}
	178
026df7c5 NC	179	static reloc_howto_type *
	180	coff_tic4x_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
	181	bfd *abfd ATTRIBUTE_UNUSED;
	182	asection *sec;
	183	struct internal_reloc *rel;
	184	struct coff_link_hash_entry *h ATTRIBUTE_UNUSED;
	185	struct internal_syment *sym ATTRIBUTE_UNUSED;
	186	bfd_vma *addendp;
	187	{
	188	arelent genrel;
	189
	190	if (rel->r_symndx == -1 && addendp != NULL)
	191	/* This is a TI "internal relocation", which means that the relocation
	192	amount is the amount by which the current section is being relocated
	193	in the output section. */
	194	*addendp = (sec->output_section->vma + sec->output_offset) - sec->vma;
	195
	196	tic4x_lookup_howto (&genrel, rel);
	197
	198	return genrel.howto;
	199	}
	200
	201
	202	static void
	203	tic4x_reloc_processing (relent, reloc, symbols, abfd, section)
	204	arelent *relent;
	205	struct internal_reloc *reloc;
	206	asymbol **symbols;
	207	bfd *abfd;
	208	asection *section;
	209	{
	210	asymbol *ptr;
	211
	212	relent->address = reloc->r_vaddr;
b34976b6	213
026df7c5 NC	214	if (reloc->r_symndx != -1)
	215	{
	216	if (reloc->r_symndx < 0 \|\| reloc->r_symndx >= obj_conv_table_size (abfd))
	217	{
	218	(*_bfd_error_handler)
	219	(_("%s: warning: illegal symbol index %ld in relocs"),
	220	bfd_get_filename (abfd), reloc->r_symndx);
	221	relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr;
	222	ptr = NULL;
	223	}
	224	else
	225	{
	226	relent->sym_ptr_ptr = (symbols
	227	+ obj_convert (abfd)[reloc->r_symndx]);
	228	ptr = *(relent->sym_ptr_ptr);
	229	}
	230	}
	231	else
	232	{
	233	relent->sym_ptr_ptr = section->symbol_ptr_ptr;
	234	ptr = *(relent->sym_ptr_ptr);
	235	}
b34976b6	236
026df7c5 NC	237	/* The symbols definitions that we have read in have been relocated
	238	as if their sections started at 0. But the offsets refering to
	239	the symbols in the raw data have not been modified, so we have to
	240	have a negative addend to compensate.
b34976b6	241
026df7c5	242	Note that symbols which used to be common must be left alone. */
b34976b6	243
026df7c5 NC	244	/* Calculate any reloc addend by looking at the symbol. */
026df7c5 NC	245	CALC_ADDEND (abfd, ptr, *reloc, relent);
b34976b6	246
026df7c5 NC	247	relent->address -= section->vma;
026df7c5 NC	248	/* !! relent->section = (asection ) NULL; /
b34976b6	249
026df7c5 NC	250	/* Fill in the relent->howto field from reloc->r_type. */
	251	tic4x_lookup_howto (relent, reloc);
	252	}
	253
	254
026df7c5	255	/* TI COFF v0, DOS tools (little-endian headers). */
3fa78519	256	CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff0_vec, "coff0-tic4x", HAS_LOAD_PAGE, 0, '_', NULL, (PTR)&ticoff0_swap_table);
026df7c5 NC	257
026df7c5 NC	258	/* TI COFF v0, SPARC tools (big-endian headers). */
3fa78519	259	CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff0_beh_vec, "coff0-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff0_vec, (PTR)&ticoff0_swap_table);
026df7c5 NC	260
026df7c5 NC	261	/* TI COFF v1, DOS tools (little-endian headers). */
3fa78519	262	CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff1_vec, "coff1-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff0_beh_vec, (PTR)&ticoff1_swap_table);
026df7c5 NC	263
026df7c5 NC	264	/* TI COFF v1, SPARC tools (big-endian headers). */
3fa78519	265	CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff1_beh_vec, "coff1-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff1_vec, (PTR)&ticoff1_swap_table);
026df7c5 NC	266
026df7c5 NC	267	/* TI COFF v2, TI DOS tools output (little-endian headers). */
3fa78519	268	CREATE_LITTLE_COFF_TARGET_VEC(tic4x_coff2_vec, "coff2-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff1_beh_vec, COFF_SWAP_TABLE);
026df7c5 NC	269
026df7c5 NC	270	/* TI COFF v2, TI SPARC tools output (big-endian headers). */
3fa78519	271	CREATE_BIGHDR_COFF_TARGET_VEC(tic4x_coff2_beh_vec, "coff2-beh-tic4x", HAS_LOAD_PAGE, 0, '_', &tic4x_coff2_vec, COFF_SWAP_TABLE);