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

/* BFD back-end for Motorola 68000 COFF binaries.
   Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1999,
   2000, 2001, 2002, 2003, 2005, 2007
   Free Software Foundation, Inc.
   Written by Cygnus Support.

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 "sysdep.h"
#include "bfd.h"
#include "libbfd.h"
#include "coff/m68k.h"
#include "coff/internal.h"
#include "libcoff.h"

/* This source file is compiled multiple times for various m68k COFF
   variants.  The following macros control its behaviour:

   TARGET_SYM
     The C name of the BFD target vector.  The default is m68kcoff_vec.
   TARGET_NAME
     The user visible target name.  The default is "coff-m68k".
   NAMES_HAVE_UNDERSCORE
     Whether symbol names have an underscore.
   ONLY_DECLARE_RELOCS
     Only declare the relocation howto array.  Don't actually compile
     it.  The actual array will be picked up in another version of the
     file.
   STATIC_RELOCS
     Make the relocation howto array, and associated functions, static.
   COFF_COMMON_ADDEND
     If this is defined, then, for a relocation against a common
     symbol, the object file holds the value (the size) of the common
     symbol.  If this is not defined, then, for a relocation against a
     common symbol, the object file holds zero.  */

#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)

#ifndef COFF_PAGE_SIZE
/* The page size is a guess based on ELF.  */
#define COFF_PAGE_SIZE 0x2000
#endif

#ifndef COFF_COMMON_ADDEND
#define RELOC_SPECIAL_FN 0
#else
static bfd_reloc_status_type m68kcoff_common_addend_special_fn
  PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
static reloc_howto_type *m68kcoff_common_addend_rtype_to_howto
  PARAMS ((bfd *, asection *, struct internal_reloc *,
	   struct coff_link_hash_entry *, struct internal_syment *,
	   bfd_vma *));
#define RELOC_SPECIAL_FN m68kcoff_common_addend_special_fn
#endif

static bfd_boolean m68k_coff_is_local_label_name
  PARAMS ((bfd *, const char *));

/* On the delta, a symbol starting with L% is local.  We won't see
   such a symbol on other platforms, so it should be safe to always
   consider it local here.  */

static bfd_boolean
m68k_coff_is_local_label_name (abfd, name)
     bfd *abfd;
     const char *name;
{
  if (name[0] == 'L' && name[1] == '%')
    return TRUE;

  return _bfd_coff_is_local_label_name (abfd, name);
}

#ifndef STATIC_RELOCS
/* Clean up namespace.  */
#define m68kcoff_howto_table	_bfd_m68kcoff_howto_table
#define m68k_rtype2howto	_bfd_m68kcoff_rtype2howto
#define m68k_howto2rtype	_bfd_m68kcoff_howto2rtype
#define m68k_reloc_type_lookup	_bfd_m68kcoff_reloc_type_lookup
#define m68k_reloc_name_lookup _bfd_m68kcoff_reloc_name_lookup
#endif

#ifdef ONLY_DECLARE_RELOCS
extern reloc_howto_type m68kcoff_howto_table[];
#else
#ifdef STATIC_RELOCS
static
#endif
reloc_howto_type m68kcoff_howto_table[] =
  {
    HOWTO (R_RELBYTE,	       0,  0,  	8,  FALSE, 0, complain_overflow_bitfield, RELOC_SPECIAL_FN, "8",	TRUE, 0x000000ff,0x000000ff, FALSE),
    HOWTO (R_RELWORD,	       0,  1, 	16, FALSE, 0, complain_overflow_bitfield, RELOC_SPECIAL_FN, "16",	TRUE, 0x0000ffff,0x0000ffff, FALSE),
    HOWTO (R_RELLONG,	       0,  2, 	32, FALSE, 0, complain_overflow_bitfield, RELOC_SPECIAL_FN, "32",	TRUE, 0xffffffff,0xffffffff, FALSE),
    HOWTO (R_PCRBYTE,	       0,  0, 	8,  TRUE,  0, complain_overflow_signed,   RELOC_SPECIAL_FN, "DISP8",    TRUE, 0x000000ff,0x000000ff, FALSE),
    HOWTO (R_PCRWORD,	       0,  1, 	16, TRUE,  0, complain_overflow_signed,   RELOC_SPECIAL_FN, "DISP16",   TRUE, 0x0000ffff,0x0000ffff, FALSE),
    HOWTO (R_PCRLONG,	       0,  2, 	32, TRUE,  0, complain_overflow_signed,   RELOC_SPECIAL_FN, "DISP32",   TRUE, 0xffffffff,0xffffffff, FALSE),
    HOWTO (R_RELLONG_NEG,      0, -2, 	32, FALSE, 0, complain_overflow_bitfield, RELOC_SPECIAL_FN, "-32",	TRUE, 0xffffffff,0xffffffff, FALSE),
  };
#endif /* not ONLY_DECLARE_RELOCS */

#ifndef BADMAG
#define BADMAG(x) M68KBADMAG(x)
#endif
#define M68 1		/* Customize coffcode.h */

/* Turn a howto into a reloc number */

#ifdef ONLY_DECLARE_RELOCS
extern void m68k_rtype2howto PARAMS ((arelent *internal, int relocentry));
extern int m68k_howto2rtype PARAMS ((reloc_howto_type *));
extern reloc_howto_type *m68k_reloc_type_lookup
  PARAMS ((bfd *, bfd_reloc_code_real_type));
extern reloc_howto_type *m68k_reloc_name_lookup
  PARAMS ((bfd *, const char *));
#else

#ifdef STATIC_RELOCS
#define STAT_REL static
#else
#define STAT_REL
#endif

STAT_REL reloc_howto_type * m68k_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type));
STAT_REL reloc_howto_type * m68k_reloc_name_lookup PARAMS ((bfd *, const char *));
STAT_REL int m68k_howto2rtype PARAMS ((reloc_howto_type *));
STAT_REL void m68k_rtype2howto PARAMS ((arelent *, int));


STAT_REL void
m68k_rtype2howto(internal, relocentry)
     arelent *internal;
     int relocentry;
{
  switch (relocentry)
    {
    case R_RELBYTE:	internal->howto = m68kcoff_howto_table + 0; break;
    case R_RELWORD:	internal->howto = m68kcoff_howto_table + 1; break;
    case R_RELLONG:	internal->howto = m68kcoff_howto_table + 2; break;
    case R_PCRBYTE:	internal->howto = m68kcoff_howto_table + 3; break;
    case R_PCRWORD:	internal->howto = m68kcoff_howto_table + 4; break;
    case R_PCRLONG:	internal->howto = m68kcoff_howto_table + 5; break;
    case R_RELLONG_NEG:	internal->howto = m68kcoff_howto_table + 6; break;
    }
}

STAT_REL int
m68k_howto2rtype (internal)
     reloc_howto_type *internal;
{
  if (internal->pc_relative)
    {
      switch (internal->bitsize)
	{
	case 32: return R_PCRLONG;
	case 16: return R_PCRWORD;
	case 8: return R_PCRBYTE;
	}
    }
  else
    {
      switch (internal->bitsize)
	{
	case 32: return R_RELLONG;
	case 16: return R_RELWORD;
	case 8: return R_RELBYTE;
	}
    }
  return R_RELLONG;
}

STAT_REL reloc_howto_type *
m68k_reloc_type_lookup (abfd, code)
     bfd *abfd ATTRIBUTE_UNUSED;
     bfd_reloc_code_real_type code;
{
  switch (code)
    {
    default:			return NULL;
    case BFD_RELOC_8:		return m68kcoff_howto_table + 0;
    case BFD_RELOC_16:		return m68kcoff_howto_table + 1;
    case BFD_RELOC_CTOR:
    case BFD_RELOC_32:		return m68kcoff_howto_table + 2;
    case BFD_RELOC_8_PCREL:	return m68kcoff_howto_table + 3;
    case BFD_RELOC_16_PCREL:	return m68kcoff_howto_table + 4;
    case BFD_RELOC_32_PCREL:	return m68kcoff_howto_table + 5;
      /* FIXME: There doesn't seem to be a code for R_RELLONG_NEG.  */
    }
  /*NOTREACHED*/
}

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

  for (i = 0;
       i < sizeof (m68kcoff_howto_table) / sizeof (m68kcoff_howto_table[0]);
       i++)
    if (m68kcoff_howto_table[i].name != NULL
	&& strcasecmp (m68kcoff_howto_table[i].name, r_name) == 0)
      return &m68kcoff_howto_table[i];

  return NULL;
}

#endif /* not ONLY_DECLARE_RELOCS */

#define RTYPE2HOWTO(internal, relocentry) \
  m68k_rtype2howto(internal, (relocentry)->r_type)

#define SELECT_RELOC(external, internal) \
  external.r_type = m68k_howto2rtype (internal)

#define coff_bfd_reloc_type_lookup m68k_reloc_type_lookup
#define coff_bfd_reloc_name_lookup m68k_reloc_name_lookup

#ifndef COFF_COMMON_ADDEND
#ifndef coff_rtype_to_howto

#define coff_rtype_to_howto m68kcoff_rtype_to_howto

static reloc_howto_type *m68kcoff_rtype_to_howto
  PARAMS ((bfd *, asection *, struct internal_reloc *,
	   struct coff_link_hash_entry *, struct internal_syment *,
	   bfd_vma *));

static reloc_howto_type *
m68kcoff_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 relent;
  reloc_howto_type *howto;

  relent.howto = NULL;
  RTYPE2HOWTO (&relent, rel);

  howto = relent.howto;

  if (howto != NULL && howto->pc_relative)
    *addendp += sec->vma;

  return howto;
}

#endif /* ! defined (coff_rtype_to_howto) */
#endif /* ! defined (COFF_COMMON_ADDEND) */
\f
#ifdef COFF_COMMON_ADDEND

/* If COFF_COMMON_ADDEND is defined, then when using m68k COFF the
   value stored in the .text section for a reference to a common
   symbol is the value itself plus any desired offset.  (taken from
   work done by Ian Taylor, Cygnus Support, for I386 COFF).  */

/* If we are producing relocatable output, we need to do some
   adjustments to the object file that are not done by the
   bfd_perform_relocation function.  This function is called by every
   reloc type to make any required adjustments.  */

static bfd_reloc_status_type
m68kcoff_common_addend_special_fn (abfd, reloc_entry, symbol, data,
				   input_section, output_bfd, error_message)
     bfd *abfd;
     arelent *reloc_entry;
     asymbol *symbol;
     PTR data;
     asection *input_section ATTRIBUTE_UNUSED;
     bfd *output_bfd;
     char **error_message ATTRIBUTE_UNUSED;
{
  symvalue diff;

  if (output_bfd == (bfd *) NULL)
    return bfd_reloc_continue;

  if (bfd_is_com_section (symbol->section))
    {
      /* We are relocating a common symbol.  The current value in the
	 object file is ORIG + OFFSET, where ORIG is the value of the
	 common symbol as seen by the object file when it was compiled
	 (this may be zero if the symbol was undefined) and OFFSET is
	 the offset into the common symbol (normally zero, but may be
	 non-zero when referring to a field in a common structure).
	 ORIG is the negative of reloc_entry->addend, which is set by
	 the CALC_ADDEND macro below.  We want to replace the value in
	 the object file with NEW + OFFSET, where NEW is the value of
	 the common symbol which we are going to put in the final
	 object file.  NEW is symbol->value.  */
      diff = symbol->value + reloc_entry->addend;
    }
  else
    {
      /* For some reason bfd_perform_relocation always effectively
	 ignores the addend for a COFF target when producing
	 relocatable output.  This seems to be always wrong for 386
	 COFF, so we handle the addend here instead.  */
      diff = reloc_entry->addend;
    }

#define DOIT(x) \
  x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + diff) & howto->dst_mask))

  if (diff != 0)
    {
      reloc_howto_type *howto = reloc_entry->howto;
      unsigned char *addr = (unsigned char *) data + reloc_entry->address;

      switch (howto->size)
	{
	case 0:
	  {
	    char x = bfd_get_8 (abfd, addr);
	    DOIT (x);
	    bfd_put_8 (abfd, x, addr);
	  }
	  break;

	case 1:
	  {
	    short x = bfd_get_16 (abfd, addr);
	    DOIT (x);
	    bfd_put_16 (abfd, (bfd_vma) x, addr);
	  }
	  break;

	case 2:
	  {
	    long x = bfd_get_32 (abfd, addr);
	    DOIT (x);
	    bfd_put_32 (abfd, (bfd_vma) x, addr);
	  }
	  break;

	default:
	  abort ();
	}
    }

  /* Now let bfd_perform_relocation finish everything up.  */
  return bfd_reloc_continue;
}

/* Compute the addend of a reloc.  If the reloc is to a common symbol,
   the object file contains the value of the common symbol.  By the
   time this is called, the linker may be using a different symbol
   from a different object file with a different value.  Therefore, we
   hack wildly to locate the original symbol from this file so that we
   can make the correct adjustment.  This macro sets coffsym to the
   symbol from the original file, and uses it to set the addend value
   correctly.  If this is not a common symbol, the usual addend
   calculation is done, except that an additional tweak is needed for
   PC relative relocs.
   FIXME: This macro refers to symbols and asect; these are from the
   calling function, not the macro arguments.  */

#define CALC_ADDEND(abfd, ptr, reloc, cache_ptr)		\
  {								\
    coff_symbol_type *coffsym = (coff_symbol_type *) NULL;	\
    if (ptr && bfd_asymbol_bfd (ptr) != abfd)			\
      coffsym = (obj_symbols (abfd)				\
	         + (cache_ptr->sym_ptr_ptr - symbols));		\
    else if (ptr)						\
      coffsym = coff_symbol_from (abfd, ptr);			\
    if (coffsym != (coff_symbol_type *) NULL			\
	&& coffsym->native->u.syment.n_scnum == 0)		\
      cache_ptr->addend = - coffsym->native->u.syment.n_value;	\
    else if (ptr && bfd_asymbol_bfd (ptr) == abfd		\
	     && ptr->section != (asection *) NULL)		\
      cache_ptr->addend = - (ptr->section->vma + ptr->value);	\
    else							\
      cache_ptr->addend = 0;					\
    if (ptr && (reloc.r_type == R_PCRBYTE			\
		|| reloc.r_type == R_PCRWORD			\
		|| reloc.r_type == R_PCRLONG))			\
      cache_ptr->addend += asect->vma;				\
  }

#ifndef coff_rtype_to_howto

/* coff-m68k.c uses the special COFF backend linker.  We need to
   adjust common symbols.  */

static reloc_howto_type *
m68kcoff_common_addend_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;
     struct internal_syment *sym;
     bfd_vma *addendp;
{
  arelent relent;
  reloc_howto_type *howto;

  relent.howto = NULL;
  RTYPE2HOWTO (&relent, rel);

  howto = relent.howto;

  if (howto->pc_relative)
    *addendp += sec->vma;

  if (sym != NULL && sym->n_scnum == 0 && sym->n_value != 0)
    {
      /* This is a common symbol.  The section contents include the
	 size (sym->n_value) as an addend.  The relocate_section
	 function will be adding in the final value of the symbol.  We
	 need to subtract out the current size in order to get the
	 correct result.  */
      BFD_ASSERT (h != NULL);
      *addendp -= sym->n_value;
    }

  /* If the output symbol is common (in which case this must be a
     relocatable link), we need to add in the final size of the
     common symbol.  */
  if (h != NULL && h->root.type == bfd_link_hash_common)
    *addendp += h->root.u.c.size;

  return howto;
}

#define coff_rtype_to_howto m68kcoff_common_addend_rtype_to_howto

#endif /* ! defined (coff_rtype_to_howto) */

#endif /* COFF_COMMON_ADDEND */

#if !defined ONLY_DECLARE_RELOCS && ! defined STATIC_RELOCS
/* Given a .data section and a .emreloc in-memory section, store
   relocation information into the .emreloc section which can be
   used at runtime to relocate the section.  This is called by the
   linker when the --embedded-relocs switch is used.  This is called
   after the add_symbols entry point has been called for all the
   objects, and before the final_link entry point is called.  */

bfd_boolean
bfd_m68k_coff_create_embedded_relocs (abfd, info, datasec, relsec, errmsg)
     bfd *abfd;
     struct bfd_link_info *info;
     asection *datasec;
     asection *relsec;
     char **errmsg;
{
  char *extsyms;
  bfd_size_type symesz;
  struct internal_reloc *irel, *irelend;
  bfd_byte *p;
  bfd_size_type amt;

  BFD_ASSERT (! info->relocatable);

  *errmsg = NULL;

  if (datasec->reloc_count == 0)
    return TRUE;

  extsyms = obj_coff_external_syms (abfd);
  symesz = bfd_coff_symesz (abfd);

  irel = _bfd_coff_read_internal_relocs (abfd, datasec, TRUE, NULL, FALSE,
					 NULL);
  irelend = irel + datasec->reloc_count;

  amt = (bfd_size_type) datasec->reloc_count * 12;
  relsec->contents = (bfd_byte *) bfd_alloc (abfd, amt);
  if (relsec->contents == NULL)
    return FALSE;

  p = relsec->contents;

  for (; irel < irelend; irel++, p += 12)
    {
      asection *targetsec;

      /* We are going to write a four byte longword into the runtime
       reloc section.  The longword will be the address in the data
       section which must be relocated.  It is followed by the name
       of the target section NUL-padded or truncated to 8
       characters.  */

      /* We can only relocate absolute longword relocs at run time.  */
      if (irel->r_type != R_RELLONG)
	{
	  *errmsg = _("unsupported reloc type");
	  bfd_set_error (bfd_error_bad_value);
	  return FALSE;
	}

      if (irel->r_symndx == -1)
	targetsec = bfd_abs_section_ptr;
      else
	{
	  struct coff_link_hash_entry *h;

	  h = obj_coff_sym_hashes (abfd)[irel->r_symndx];
	  if (h == NULL)
	    {
	      struct internal_syment isym;

	      bfd_coff_swap_sym_in (abfd, extsyms + symesz * irel->r_symndx,
				    &isym);
	      targetsec = coff_section_from_bfd_index (abfd, isym.n_scnum);
	    }
	  else if (h->root.type == bfd_link_hash_defined
		   || h->root.type == bfd_link_hash_defweak)
	    targetsec = h->root.u.def.section;
	  else
	    targetsec = NULL;
	}

      bfd_put_32 (abfd,
		  (irel->r_vaddr - datasec->vma + datasec->output_offset), p);
      memset (p + 4, 0, 8);
      if (targetsec != NULL)
	strncpy ((char *) p + 4, targetsec->output_section->name, 8);
    }

  return TRUE;
}
#endif /* neither ONLY_DECLARE_RELOCS not STATIC_RELOCS  */
\f
#define coff_bfd_is_local_label_name m68k_coff_is_local_label_name

#define coff_relocate_section _bfd_coff_generic_relocate_section

#include "coffcode.h"

#ifndef TARGET_SYM
#define TARGET_SYM m68kcoff_vec
#endif

#ifndef TARGET_NAME
#define TARGET_NAME "coff-m68k"
#endif

#ifdef NAMES_HAVE_UNDERSCORE
CREATE_BIG_COFF_TARGET_VEC (TARGET_SYM, TARGET_NAME, D_PAGED, 0, '_', NULL, COFF_SWAP_TABLE)
#else
CREATE_BIG_COFF_TARGET_VEC (TARGET_SYM, TARGET_NAME, D_PAGED, 0, 0, NULL, COFF_SWAP_TABLE)
#endif
Commit	Line	Data
252b5132	1	/* BFD back-end for Motorola 68000 COFF binaries.
67a374a5	2	Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1999,
157090f7	3	2000, 2001, 2002, 2003, 2005, 2007
5f771d47	4	Free Software Foundation, Inc.
252b5132 RH	5	Written by Cygnus Support.
	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 02110-1301, USA. */
252b5132	22
252b5132	23	#include "sysdep.h"
3db64b00	24	#include "bfd.h"
252b5132 RH	25	#include "libbfd.h"
	26	#include "coff/m68k.h"
	27	#include "coff/internal.h"
	28	#include "libcoff.h"
	29
	30	/* This source file is compiled multiple times for various m68k COFF
	31	variants. The following macros control its behaviour:
	32
	33	TARGET_SYM
	34	The C name of the BFD target vector. The default is m68kcoff_vec.
	35	TARGET_NAME
	36	The user visible target name. The default is "coff-m68k".
	37	NAMES_HAVE_UNDERSCORE
	38	Whether symbol names have an underscore.
	39	ONLY_DECLARE_RELOCS
	40	Only declare the relocation howto array. Don't actually compile
	41	it. The actual array will be picked up in another version of the
	42	file.
	43	STATIC_RELOCS
	44	Make the relocation howto array, and associated functions, static.
	45	COFF_COMMON_ADDEND
	46	If this is defined, then, for a relocation against a common
	47	symbol, the object file holds the value (the size) of the common
	48	symbol. If this is not defined, then, for a relocation against a
	49	common symbol, the object file holds zero. */
	50
	51	#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
	52
	53	#ifndef COFF_PAGE_SIZE
	54	/* The page size is a guess based on ELF. */
	55	#define COFF_PAGE_SIZE 0x2000
	56	#endif
	57
	58	#ifndef COFF_COMMON_ADDEND
	59	#define RELOC_SPECIAL_FN 0
	60	#else
	61	static bfd_reloc_status_type m68kcoff_common_addend_special_fn
	62	PARAMS ((bfd , arelent , asymbol , PTR, asection , bfd , char *));
	63	static reloc_howto_type *m68kcoff_common_addend_rtype_to_howto
	64	PARAMS ((bfd , asection , struct internal_reloc *,
	65	struct coff_link_hash_entry , struct internal_syment ,
	66	bfd_vma *));
	67	#define RELOC_SPECIAL_FN m68kcoff_common_addend_special_fn
	68	#endif
	69
b34976b6 AM	70	static bfd_boolean m68k_coff_is_local_label_name
b34976b6 AM	71	PARAMS ((bfd , const char ));
252b5132 RH	72
	73	/* On the delta, a symbol starting with L% is local. We won't see
	74	such a symbol on other platforms, so it should be safe to always
	75	consider it local here. */
	76
b34976b6	77	static bfd_boolean
252b5132 RH	78	m68k_coff_is_local_label_name (abfd, name)
	79	bfd *abfd;
	80	const char *name;
	81	{
	82	if (name[0] == 'L' && name[1] == '%')
b34976b6	83	return TRUE;
252b5132 RH	84
	85	return _bfd_coff_is_local_label_name (abfd, name);
	86	}
	87
	88	#ifndef STATIC_RELOCS
	89	/* Clean up namespace. */
	90	#define m68kcoff_howto_table _bfd_m68kcoff_howto_table
	91	#define m68k_rtype2howto _bfd_m68kcoff_rtype2howto
	92	#define m68k_howto2rtype _bfd_m68kcoff_howto2rtype
	93	#define m68k_reloc_type_lookup _bfd_m68kcoff_reloc_type_lookup
157090f7	94	#define m68k_reloc_name_lookup _bfd_m68kcoff_reloc_name_lookup
252b5132 RH	95	#endif
	96
	97	#ifdef ONLY_DECLARE_RELOCS
	98	extern reloc_howto_type m68kcoff_howto_table[];
	99	#else
	100	#ifdef STATIC_RELOCS
	101	static
	102	#endif
b48499ec	103	reloc_howto_type m68kcoff_howto_table[] =
67a374a5	104	{
b34976b6 AM	105	HOWTO (R_RELBYTE, 0, 0, 8, FALSE, 0, complain_overflow_bitfield, RELOC_SPECIAL_FN, "8", TRUE, 0x000000ff,0x000000ff, FALSE),
	106	HOWTO (R_RELWORD, 0, 1, 16, FALSE, 0, complain_overflow_bitfield, RELOC_SPECIAL_FN, "16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
	107	HOWTO (R_RELLONG, 0, 2, 32, FALSE, 0, complain_overflow_bitfield, RELOC_SPECIAL_FN, "32", TRUE, 0xffffffff,0xffffffff, FALSE),
	108	HOWTO (R_PCRBYTE, 0, 0, 8, TRUE, 0, complain_overflow_signed, RELOC_SPECIAL_FN, "DISP8", TRUE, 0x000000ff,0x000000ff, FALSE),
	109	HOWTO (R_PCRWORD, 0, 1, 16, TRUE, 0, complain_overflow_signed, RELOC_SPECIAL_FN, "DISP16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
	110	HOWTO (R_PCRLONG, 0, 2, 32, TRUE, 0, complain_overflow_signed, RELOC_SPECIAL_FN, "DISP32", TRUE, 0xffffffff,0xffffffff, FALSE),
	111	HOWTO (R_RELLONG_NEG, 0, -2, 32, FALSE, 0, complain_overflow_bitfield, RELOC_SPECIAL_FN, "-32", TRUE, 0xffffffff,0xffffffff, FALSE),
67a374a5	112	};
252b5132 RH	113	#endif /* not ONLY_DECLARE_RELOCS */
	114
	115	#ifndef BADMAG
	116	#define BADMAG(x) M68KBADMAG(x)
	117	#endif
	118	#define M68 1 /* Customize coffcode.h */
	119
	120	/* Turn a howto into a reloc number */
	121
	122	#ifdef ONLY_DECLARE_RELOCS
	123	extern void m68k_rtype2howto PARAMS ((arelent *internal, int relocentry));
	124	extern int m68k_howto2rtype PARAMS ((reloc_howto_type *));
	125	extern reloc_howto_type *m68k_reloc_type_lookup
	126	PARAMS ((bfd *, bfd_reloc_code_real_type));
157090f7 AM	127	extern reloc_howto_type *m68k_reloc_name_lookup
157090f7 AM	128	PARAMS ((bfd , const char ));
252b5132	129	#else
f4ffd778	130
252b5132	131	#ifdef STATIC_RELOCS
f4ffd778 NC	132	#define STAT_REL static
	133	#else
	134	#define STAT_REL
252b5132	135	#endif
f4ffd778 NC	136
f4ffd778 NC	137	STAT_REL reloc_howto_type * m68k_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type));
157090f7	138	STAT_REL reloc_howto_type * m68k_reloc_name_lookup PARAMS ((bfd , const char ));
f4ffd778 NC	139	STAT_REL int m68k_howto2rtype PARAMS ((reloc_howto_type *));
	140	STAT_REL void m68k_rtype2howto PARAMS ((arelent *, int));
	141
	142
	143	STAT_REL void
252b5132 RH	144	m68k_rtype2howto(internal, relocentry)
	145	arelent *internal;
	146	int relocentry;
	147	{
b48499ec	148	switch (relocentry)
67a374a5 NC	149	{
	150	case R_RELBYTE: internal->howto = m68kcoff_howto_table + 0; break;
	151	case R_RELWORD: internal->howto = m68kcoff_howto_table + 1; break;
	152	case R_RELLONG: internal->howto = m68kcoff_howto_table + 2; break;
	153	case R_PCRBYTE: internal->howto = m68kcoff_howto_table + 3; break;
	154	case R_PCRWORD: internal->howto = m68kcoff_howto_table + 4; break;
	155	case R_PCRLONG: internal->howto = m68kcoff_howto_table + 5; break;
	156	case R_RELLONG_NEG: internal->howto = m68kcoff_howto_table + 6; break;
	157	}
252b5132 RH	158	}
252b5132 RH	159
f4ffd778	160	STAT_REL int
252b5132 RH	161	m68k_howto2rtype (internal)
	162	reloc_howto_type *internal;
	163	{
b48499ec	164	if (internal->pc_relative)
252b5132	165	{
67a374a5 NC	166	switch (internal->bitsize)
	167	{
	168	case 32: return R_PCRLONG;
	169	case 16: return R_PCRWORD;
	170	case 8: return R_PCRBYTE;
	171	}
252b5132	172	}
b48499ec	173	else
67a374a5 NC	174	{
	175	switch (internal->bitsize)
	176	{
	177	case 32: return R_RELLONG;
	178	case 16: return R_RELWORD;
	179	case 8: return R_RELBYTE;
	180	}
	181	}
b48499ec	182	return R_RELLONG;
252b5132 RH	183	}
252b5132 RH	184
f4ffd778	185	STAT_REL reloc_howto_type *
252b5132	186	m68k_reloc_type_lookup (abfd, code)
5f771d47	187	bfd *abfd ATTRIBUTE_UNUSED;
252b5132 RH	188	bfd_reloc_code_real_type code;
	189	{
	190	switch (code)
	191	{
	192	default: return NULL;
	193	case BFD_RELOC_8: return m68kcoff_howto_table + 0;
	194	case BFD_RELOC_16: return m68kcoff_howto_table + 1;
	195	case BFD_RELOC_CTOR:
	196	case BFD_RELOC_32: return m68kcoff_howto_table + 2;
	197	case BFD_RELOC_8_PCREL: return m68kcoff_howto_table + 3;
	198	case BFD_RELOC_16_PCREL: return m68kcoff_howto_table + 4;
	199	case BFD_RELOC_32_PCREL: return m68kcoff_howto_table + 5;
	200	/* FIXME: There doesn't seem to be a code for R_RELLONG_NEG. */
	201	}
	202	/NOTREACHED/
	203	}
	204
157090f7 AM	205	STAT_REL reloc_howto_type *
	206	m68k_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
	207	const char *r_name)
	208	{
	209	unsigned int i;
	210
	211	for (i = 0;
	212	i < sizeof (m68kcoff_howto_table) / sizeof (m68kcoff_howto_table[0]);
	213	i++)
	214	if (m68kcoff_howto_table[i].name != NULL
	215	&& strcasecmp (m68kcoff_howto_table[i].name, r_name) == 0)
	216	return &m68kcoff_howto_table[i];
	217
	218	return NULL;
	219	}
	220
252b5132 RH	221	#endif /* not ONLY_DECLARE_RELOCS */
	222
	223	#define RTYPE2HOWTO(internal, relocentry) \
	224	m68k_rtype2howto(internal, (relocentry)->r_type)
	225
	226	#define SELECT_RELOC(external, internal) \
	227	external.r_type = m68k_howto2rtype (internal)
	228
	229	#define coff_bfd_reloc_type_lookup m68k_reloc_type_lookup
157090f7	230	#define coff_bfd_reloc_name_lookup m68k_reloc_name_lookup
252b5132 RH	231
	232	#ifndef COFF_COMMON_ADDEND
	233	#ifndef coff_rtype_to_howto
	234
	235	#define coff_rtype_to_howto m68kcoff_rtype_to_howto
	236
	237	static reloc_howto_type *m68kcoff_rtype_to_howto
	238	PARAMS ((bfd , asection , struct internal_reloc *,
	239	struct coff_link_hash_entry , struct internal_syment ,
	240	bfd_vma *));
	241
252b5132 RH	242	static reloc_howto_type *
252b5132 RH	243	m68kcoff_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
5f771d47	244	bfd *abfd ATTRIBUTE_UNUSED;
252b5132 RH	245	asection *sec;
252b5132 RH	246	struct internal_reloc *rel;
5f771d47 ILT	247	struct coff_link_hash_entry *h ATTRIBUTE_UNUSED;
5f771d47 ILT	248	struct internal_syment *sym ATTRIBUTE_UNUSED;
252b5132 RH	249	bfd_vma *addendp;
	250	{
	251	arelent relent;
	252	reloc_howto_type *howto;
	253
40b1c6c5	254	relent.howto = NULL;
252b5132 RH	255	RTYPE2HOWTO (&relent, rel);
	256
	257	howto = relent.howto;
	258
40b1c6c5	259	if (howto != NULL && howto->pc_relative)
252b5132 RH	260	*addendp += sec->vma;
	261
	262	return howto;
	263	}
	264
	265	#endif /* ! defined (coff_rtype_to_howto) */
	266	#endif /* ! defined (COFF_COMMON_ADDEND) */
	267	\f
	268	#ifdef COFF_COMMON_ADDEND
	269
	270	/* If COFF_COMMON_ADDEND is defined, then when using m68k COFF the
	271	value stored in the .text section for a reference to a common
	272	symbol is the value itself plus any desired offset. (taken from
	273	work done by Ian Taylor, Cygnus Support, for I386 COFF). */
	274
1049f94e	275	/* If we are producing relocatable output, we need to do some
252b5132 RH	276	adjustments to the object file that are not done by the
	277	bfd_perform_relocation function. This function is called by every
	278	reloc type to make any required adjustments. */
	279
	280	static bfd_reloc_status_type
	281	m68kcoff_common_addend_special_fn (abfd, reloc_entry, symbol, data,
	282	input_section, output_bfd, error_message)
	283	bfd *abfd;
	284	arelent *reloc_entry;
	285	asymbol *symbol;
	286	PTR data;
5f771d47	287	asection *input_section ATTRIBUTE_UNUSED;
252b5132	288	bfd *output_bfd;
5f771d47	289	char **error_message ATTRIBUTE_UNUSED;
252b5132 RH	290	{
	291	symvalue diff;
	292
	293	if (output_bfd == (bfd *) NULL)
	294	return bfd_reloc_continue;
	295
	296	if (bfd_is_com_section (symbol->section))
	297	{
	298	/* We are relocating a common symbol. The current value in the
	299	object file is ORIG + OFFSET, where ORIG is the value of the
	300	common symbol as seen by the object file when it was compiled
	301	(this may be zero if the symbol was undefined) and OFFSET is
	302	the offset into the common symbol (normally zero, but may be
	303	non-zero when referring to a field in a common structure).
	304	ORIG is the negative of reloc_entry->addend, which is set by
	305	the CALC_ADDEND macro below. We want to replace the value in
	306	the object file with NEW + OFFSET, where NEW is the value of
	307	the common symbol which we are going to put in the final
	308	object file. NEW is symbol->value. */
	309	diff = symbol->value + reloc_entry->addend;
	310	}
	311	else
	312	{
	313	/* For some reason bfd_perform_relocation always effectively
	314	ignores the addend for a COFF target when producing
1049f94e	315	relocatable output. This seems to be always wrong for 386
252b5132 RH	316	COFF, so we handle the addend here instead. */
	317	diff = reloc_entry->addend;
	318	}
	319
	320	#define DOIT(x) \
	321	x = ((x & ~howto->dst_mask) \| (((x & howto->src_mask) + diff) & howto->dst_mask))
	322
	323	if (diff != 0)
	324	{
	325	reloc_howto_type *howto = reloc_entry->howto;
	326	unsigned char addr = (unsigned char ) data + reloc_entry->address;
	327
	328	switch (howto->size)
	329	{
	330	case 0:
	331	{
	332	char x = bfd_get_8 (abfd, addr);
	333	DOIT (x);
	334	bfd_put_8 (abfd, x, addr);
	335	}
	336	break;
	337
	338	case 1:
	339	{
	340	short x = bfd_get_16 (abfd, addr);
	341	DOIT (x);
dc810e39	342	bfd_put_16 (abfd, (bfd_vma) x, addr);
252b5132 RH	343	}
	344	break;
	345
	346	case 2:
	347	{
	348	long x = bfd_get_32 (abfd, addr);
	349	DOIT (x);
dc810e39	350	bfd_put_32 (abfd, (bfd_vma) x, addr);
252b5132 RH	351	}
	352	break;
	353
	354	default:
	355	abort ();
	356	}
	357	}
	358
	359	/* Now let bfd_perform_relocation finish everything up. */
	360	return bfd_reloc_continue;
	361	}
	362
	363	/* Compute the addend of a reloc. If the reloc is to a common symbol,
	364	the object file contains the value of the common symbol. By the
	365	time this is called, the linker may be using a different symbol
	366	from a different object file with a different value. Therefore, we
	367	hack wildly to locate the original symbol from this file so that we
	368	can make the correct adjustment. This macro sets coffsym to the
	369	symbol from the original file, and uses it to set the addend value
	370	correctly. If this is not a common symbol, the usual addend
	371	calculation is done, except that an additional tweak is needed for
	372	PC relative relocs.
	373	FIXME: This macro refers to symbols and asect; these are from the
	374	calling function, not the macro arguments. */
	375
	376	#define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \
	377	{ \
	378	coff_symbol_type coffsym = (coff_symbol_type ) NULL; \
	379	if (ptr && bfd_asymbol_bfd (ptr) != abfd) \
	380	coffsym = (obj_symbols (abfd) \
	381	+ (cache_ptr->sym_ptr_ptr - symbols)); \
	382	else if (ptr) \
	383	coffsym = coff_symbol_from (abfd, ptr); \
	384	if (coffsym != (coff_symbol_type *) NULL \
	385	&& coffsym->native->u.syment.n_scnum == 0) \
	386	cache_ptr->addend = - coffsym->native->u.syment.n_value; \
	387	else if (ptr && bfd_asymbol_bfd (ptr) == abfd \
	388	&& ptr->section != (asection *) NULL) \
	389	cache_ptr->addend = - (ptr->section->vma + ptr->value); \
	390	else \
	391	cache_ptr->addend = 0; \
	392	if (ptr && (reloc.r_type == R_PCRBYTE \
	393	\|\| reloc.r_type == R_PCRWORD \
	394	\|\| reloc.r_type == R_PCRLONG)) \
	395	cache_ptr->addend += asect->vma; \
	396	}
	397
	398	#ifndef coff_rtype_to_howto
	399
	400	/* coff-m68k.c uses the special COFF backend linker. We need to
	401	adjust common symbols. */
	402
252b5132 RH	403	static reloc_howto_type *
252b5132 RH	404	m68kcoff_common_addend_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
5f771d47	405	bfd *abfd ATTRIBUTE_UNUSED;
252b5132 RH	406	asection *sec;
	407	struct internal_reloc *rel;
	408	struct coff_link_hash_entry *h;
	409	struct internal_syment *sym;
	410	bfd_vma *addendp;
	411	{
	412	arelent relent;
	413	reloc_howto_type *howto;
	414
1b0b5b1b	415	relent.howto = NULL;
252b5132 RH	416	RTYPE2HOWTO (&relent, rel);
	417
	418	howto = relent.howto;
	419
	420	if (howto->pc_relative)
	421	*addendp += sec->vma;
	422
	423	if (sym != NULL && sym->n_scnum == 0 && sym->n_value != 0)
	424	{
	425	/* This is a common symbol. The section contents include the
	426	size (sym->n_value) as an addend. The relocate_section
	427	function will be adding in the final value of the symbol. We
	428	need to subtract out the current size in order to get the
	429	correct result. */
	430	BFD_ASSERT (h != NULL);
	431	*addendp -= sym->n_value;
	432	}
	433
	434	/* If the output symbol is common (in which case this must be a
1049f94e	435	relocatable link), we need to add in the final size of the
252b5132 RH	436	common symbol. */
	437	if (h != NULL && h->root.type == bfd_link_hash_common)
	438	*addendp += h->root.u.c.size;
	439
	440	return howto;
	441	}
	442
	443	#define coff_rtype_to_howto m68kcoff_common_addend_rtype_to_howto
	444
	445	#endif /* ! defined (coff_rtype_to_howto) */
	446
	447	#endif /* COFF_COMMON_ADDEND */
20bccb34 NC	448
	449	#if !defined ONLY_DECLARE_RELOCS && ! defined STATIC_RELOCS
	450	/* Given a .data section and a .emreloc in-memory section, store
	451	relocation information into the .emreloc section which can be
	452	used at runtime to relocate the section. This is called by the
	453	linker when the --embedded-relocs switch is used. This is called
	454	after the add_symbols entry point has been called for all the
	455	objects, and before the final_link entry point is called. */
	456
b34976b6	457	bfd_boolean
20bccb34 NC	458	bfd_m68k_coff_create_embedded_relocs (abfd, info, datasec, relsec, errmsg)
	459	bfd *abfd;
	460	struct bfd_link_info *info;
	461	asection *datasec;
	462	asection *relsec;
	463	char **errmsg;
	464	{
	465	char *extsyms;
	466	bfd_size_type symesz;
	467	struct internal_reloc irel, irelend;
	468	bfd_byte *p;
dc810e39	469	bfd_size_type amt;
20bccb34	470
1049f94e	471	BFD_ASSERT (! info->relocatable);
20bccb34 NC	472
	473	*errmsg = NULL;
	474
	475	if (datasec->reloc_count == 0)
b34976b6	476	return TRUE;
20bccb34 NC	477
	478	extsyms = obj_coff_external_syms (abfd);
	479	symesz = bfd_coff_symesz (abfd);
	480
b34976b6	481	irel = _bfd_coff_read_internal_relocs (abfd, datasec, TRUE, NULL, FALSE,
20bccb34 NC	482	NULL);
	483	irelend = irel + datasec->reloc_count;
	484
dc810e39 AM	485	amt = (bfd_size_type) datasec->reloc_count * 12;
dc810e39 AM	486	relsec->contents = (bfd_byte *) bfd_alloc (abfd, amt);
20bccb34	487	if (relsec->contents == NULL)
b34976b6	488	return FALSE;
20bccb34 NC	489
	490	p = relsec->contents;
	491
	492	for (; irel < irelend; irel++, p += 12)
	493	{
	494	asection *targetsec;
	495
	496	/* We are going to write a four byte longword into the runtime
	497	reloc section. The longword will be the address in the data
	498	section which must be relocated. It is followed by the name
	499	of the target section NUL-padded or truncated to 8
	500	characters. */
	501
	502	/* We can only relocate absolute longword relocs at run time. */
	503	if (irel->r_type != R_RELLONG)
	504	{
	505	*errmsg = _("unsupported reloc type");
	506	bfd_set_error (bfd_error_bad_value);
b34976b6	507	return FALSE;
20bccb34 NC	508	}
	509
	510	if (irel->r_symndx == -1)
	511	targetsec = bfd_abs_section_ptr;
	512	else
	513	{
	514	struct coff_link_hash_entry *h;
b48499ec	515
20bccb34 NC	516	h = obj_coff_sym_hashes (abfd)[irel->r_symndx];
	517	if (h == NULL)
	518	{
	519	struct internal_syment isym;
b48499ec	520
20bccb34 NC	521	bfd_coff_swap_sym_in (abfd, extsyms + symesz * irel->r_symndx,
	522	&isym);
	523	targetsec = coff_section_from_bfd_index (abfd, isym.n_scnum);
	524	}
	525	else if (h->root.type == bfd_link_hash_defined
	526	\|\| h->root.type == bfd_link_hash_defweak)
	527	targetsec = h->root.u.def.section;
	528	else
	529	targetsec = NULL;
	530	}
b48499ec	531
20bccb34 NC	532	bfd_put_32 (abfd,
	533	(irel->r_vaddr - datasec->vma + datasec->output_offset), p);
	534	memset (p + 4, 0, 8);
ff0829fd	535	if (targetsec != NULL)
f075ee0c	536	strncpy ((char *) p + 4, targetsec->output_section->name, 8);
20bccb34	537	}
b48499ec	538
b34976b6	539	return TRUE;
20bccb34 NC	540	}
20bccb34 NC	541	#endif /* neither ONLY_DECLARE_RELOCS not STATIC_RELOCS */
252b5132 RH	542	\f
	543	#define coff_bfd_is_local_label_name m68k_coff_is_local_label_name
	544
	545	#define coff_relocate_section _bfd_coff_generic_relocate_section
	546
	547	#include "coffcode.h"
	548
	549	#ifndef TARGET_SYM
	550	#define TARGET_SYM m68kcoff_vec
	551	#endif
	552
	553	#ifndef TARGET_NAME
	554	#define TARGET_NAME "coff-m68k"
	555	#endif
	556
252b5132	557	#ifdef NAMES_HAVE_UNDERSCORE
3fa78519	558	CREATE_BIG_COFF_TARGET_VEC (TARGET_SYM, TARGET_NAME, D_PAGED, 0, '_', NULL, COFF_SWAP_TABLE)
252b5132	559	#else
3fa78519	560	CREATE_BIG_COFF_TARGET_VEC (TARGET_SYM, TARGET_NAME, D_PAGED, 0, 0, NULL, COFF_SWAP_TABLE)
252b5132	561	#endif