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

/* BFD back-end for TMS320C4X coff binaries.
   Copyright (C) 1996-2020 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 3 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 "sysdep.h"
#include "bfd.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 reloc_howto_type *
coff_tic4x_rtype_to_howto (bfd *, asection *, struct internal_reloc *,
			   struct coff_link_hash_entry *,
			   struct internal_syment *,  bfd_vma *);
static void
tic4x_reloc_processing (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 (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

#ifndef bfd_pe_print_pdata
#define bfd_pe_print_pdata	NULL
#endif

#include "coffcode.h"

static bfd_reloc_status_type
tic4x_relocation (bfd *abfd ATTRIBUTE_UNUSED,
		  arelent *reloc_entry,
		  asymbol *symbol ATTRIBUTE_UNUSED,
		  void * 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
#undef coff_bfd_reloc_name_lookup
#define coff_bfd_reloc_name_lookup tic4x_coff_reloc_name_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 (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;
}

static reloc_howto_type *
tic4x_coff_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
			      const char *r_name)
{
  unsigned int i;

  for (i = 0;
       i < sizeof (tic4x_howto_table) / sizeof (tic4x_howto_table[0]);
       i++)
    if (tic4x_howto_table[i].name != NULL
	&& strcasecmp (tic4x_howto_table[i].name, r_name) == 0)
      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 (bfd *abfd,
		    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 (_("%pB: unsupported relocation type %#x"),
		      abfd, (unsigned int) dst->r_type);
  abort();
}

static reloc_howto_type *
coff_tic4x_rtype_to_howto (bfd *abfd,
			   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 (abfd, &genrel, rel);

  return genrel.howto;
}


static void
tic4x_reloc_processing (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
	    /* xgettext: c-format */
	    (_("%pB: warning: illegal symbol index %ld in relocs"),
	     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 (abfd, relent, reloc);
}


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

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

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

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

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