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

/* BFD back-end for Hitachi Super-H COFF binaries.
   Copyright 1993, 1994 Free Software Foundation, Inc.
   Contributed by Cygnus Support.
   Written by Steve Chamberlain, <sac@cygnus.com>.

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., 675 Mass Ave, Cambridge, MA 02139, USA.  */

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

static reloc_howto_type r_imm32 =
HOWTO (R_SH_IMM32, 0,2, 32, false, 0,
       complain_overflow_bitfield, 0, "r_imm32", false, 0x0, 0xffffffff,
       false);


/* Turn a howto into a reloc number */

static int 
coff_SH_select_reloc (howto)
     reloc_howto_type *howto;
{
  return howto->type;
}

#define SELECT_RELOC(x,howto) x.r_type = coff_SH_select_reloc(howto)


#define BADMAG(x) SHBADMAG(x)
#define SH 1			/* Customize coffcode.h */

#define __A_MAGIC_SET__

/* Code to swap in the reloc */
#define SWAP_IN_RELOC_OFFSET   bfd_h_get_32
#define SWAP_OUT_RELOC_OFFSET bfd_h_put_32
#define SWAP_OUT_RELOC_EXTRA(abfd, src, dst) \
  dst->r_stuff[0] = 'S'; \
  dst->r_stuff[1] = 'C';

/* Code to turn a r_type into a howto ptr, uses the above howto table
   */

static void
rtype2howto (internal, dst)
     arelent * internal;
     struct internal_reloc *dst;
{
  switch (dst->r_type)
    {
    default:
      fprintf (stderr, "BAD 0x%x\n", dst->r_type);
    case R_SH_IMM32:
      internal->howto = &r_imm32;
      break;
    }
}

#define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry)


/* Perform any necessaru magic to the addend in a reloc entry */


#define CALC_ADDEND(abfd, symbol, ext_reloc, cache_ptr) \
 cache_ptr->addend =  ext_reloc.r_offset;


#define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \
 reloc_processing(relent, reloc, symbols, abfd, section)

static void 
reloc_processing (relent, reloc, symbols, abfd, section)
     arelent * relent;
     struct internal_reloc *reloc;
     asymbol ** symbols;
     bfd * abfd;
     asection * section;
{
  relent->address = reloc->r_vaddr;
  rtype2howto (relent, reloc);

  if (reloc->r_symndx > 0)
    {
      relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx];
    }
  else
    {
      relent->sym_ptr_ptr = &(bfd_abs_symbol);
    }


  relent->addend = reloc->r_offset;
  relent->address -= section->vma;
}

static void
extra_case (in_abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr)
     bfd *in_abfd;
     struct bfd_link_info *link_info;
     struct bfd_link_order *link_order;
     arelent *reloc;
     bfd_byte *data;
     unsigned int *src_ptr;
     unsigned int *dst_ptr;
{
  switch (reloc->howto->type)
    {
    case R_SH_IMM32:
      {
	int v = bfd_coff_reloc16_get_value(reloc, link_info,
					   link_order->u.indirect.section);
	bfd_put_32 (in_abfd, v, data  + *dst_ptr);
	(*dst_ptr) +=4;
	(*src_ptr)+=4;;
      }
      break;

    default:
      abort ();
    }
}

#define coff_reloc16_extra_cases extra_case

#include "coffcode.h"


#undef  coff_bfd_get_relocated_section_contents
#undef coff_bfd_relax_section
#define coff_bfd_get_relocated_section_contents \
  bfd_coff_reloc16_get_relocated_section_contents
#define coff_bfd_relax_section bfd_coff_reloc16_relax_section

bfd_target shcoff_vec =
{
  "coff-sh",			/* name */
  bfd_target_coff_flavour,
  true,				/* data byte order is big */
  true,				/* header byte order is big */

  (HAS_RELOC | EXEC_P |		/* object flags */
   HAS_LINENO | HAS_DEBUG |
   HAS_SYMS | HAS_LOCALS | WP_TEXT | BFD_IS_RELAXABLE ),

  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC),	/* section flags */
  '_',				/* leading symbol underscore */
  '/',				/* ar_pad_char */
  15,				/* ar_max_namelen */
  2,				/* minimum section alignment */
bfd_getb64, bfd_getb_signed_64, bfd_putb64,
     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
     bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
bfd_getb64, bfd_getb_signed_64, bfd_putb64,
     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
     bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */

  {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
     bfd_generic_archive_p, _bfd_dummy_target},
  {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
     bfd_false},
  {bfd_false, coff_write_object_contents,	/* bfd_write_contents */
     _bfd_write_archive_contents, bfd_false},

     BFD_JUMP_TABLE_GENERIC (coff),
     BFD_JUMP_TABLE_COPY (coff),
     BFD_JUMP_TABLE_CORE (_bfd_nocore),
     BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
     BFD_JUMP_TABLE_SYMBOLS (coff),
     BFD_JUMP_TABLE_RELOCS (coff),
     BFD_JUMP_TABLE_WRITE (coff),
     BFD_JUMP_TABLE_LINK (coff),

    COFF_SWAP_TABLE,
};
Commit	Line	Data
46dd0622	1	/* BFD back-end for Hitachi Super-H COFF binaries.
6812b607	2	Copyright 1993, 1994 Free Software Foundation, Inc.
46dd0622 SC	3	Contributed by Cygnus Support.
	4	Written by Steve Chamberlain, <sac@cygnus.com>.
	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
	10	the Free Software Foundation; either version 2 of the License, or
	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
	20	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
	21
	22	#include "bfd.h"
	23	#include "sysdep.h"
46dd0622	24	#include "obstack.h"
6812b607 ILT	25	#include "libbfd.h"
6812b607 ILT	26	#include "bfdlink.h"
46dd0622 SC	27	#include "coff/sh.h"
	28	#include "coff/internal.h"
	29	#include "libcoff.h"
46dd0622 SC	30
46dd0622 SC	31	static reloc_howto_type r_imm32 =
6812b607 ILT	32	HOWTO (R_SH_IMM32, 0,2, 32, false, 0,
	33	complain_overflow_bitfield, 0, "r_imm32", false, 0x0, 0xffffffff,
	34	false);
46dd0622 SC	35
	36
	37
	38	/* Turn a howto into a reloc number */
	39
	40	static int
	41	coff_SH_select_reloc (howto)
	42	reloc_howto_type *howto;
	43	{
	44	return howto->type;
	45	}
	46
6812b607	47	#define SELECT_RELOC(x,howto) x.r_type = coff_SH_select_reloc(howto)
46dd0622 SC	48
	49
	50	#define BADMAG(x) SHBADMAG(x)
	51	#define SH 1 /* Customize coffcode.h */
	52
	53	#define __A_MAGIC_SET__
	54
	55	/* Code to swap in the reloc */
	56	#define SWAP_IN_RELOC_OFFSET bfd_h_get_32
	57	#define SWAP_OUT_RELOC_OFFSET bfd_h_put_32
	58	#define SWAP_OUT_RELOC_EXTRA(abfd, src, dst) \
	59	dst->r_stuff[0] = 'S'; \
	60	dst->r_stuff[1] = 'C';
	61
	62	/* Code to turn a r_type into a howto ptr, uses the above howto table
	63	*/
	64
	65	static void
6812b607 ILT	66	rtype2howto (internal, dst)
	67	arelent * internal;
	68	struct internal_reloc *dst;
46dd0622 SC	69	{
	70	switch (dst->r_type)
	71	{
	72	default:
	73	fprintf (stderr, "BAD 0x%x\n", dst->r_type);
	74	case R_SH_IMM32:
	75	internal->howto = &r_imm32;
	76	break;
	77	}
	78	}
	79
	80	#define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry)
	81
	82
	83	/* Perform any necessaru magic to the addend in a reloc entry */
	84
	85
	86	#define CALC_ADDEND(abfd, symbol, ext_reloc, cache_ptr) \
	87	cache_ptr->addend = ext_reloc.r_offset;
	88
	89
	90	#define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \
	91	reloc_processing(relent, reloc, symbols, abfd, section)
	92
	93	static void
6812b607 ILT	94	reloc_processing (relent, reloc, symbols, abfd, section)
	95	arelent * relent;
	96	struct internal_reloc *reloc;
	97	asymbol ** symbols;
	98	bfd * abfd;
	99	asection * section;
46dd0622 SC	100	{
	101	relent->address = reloc->r_vaddr;
	102	rtype2howto (relent, reloc);
	103
	104	if (reloc->r_symndx > 0)
	105	{
	106	relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx];
	107	}
	108	else
	109	{
	110	relent->sym_ptr_ptr = &(bfd_abs_symbol);
	111	}
	112
	113
	114	relent->addend = reloc->r_offset;
	115	relent->address -= section->vma;
	116	}
	117
	118	static void
6812b607	119	extra_case (in_abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr)
46dd0622	120	bfd *in_abfd;
6812b607 ILT	121	struct bfd_link_info *link_info;
6812b607 ILT	122	struct bfd_link_order *link_order;
46dd0622 SC	123	arelent *reloc;
	124	bfd_byte *data;
	125	unsigned int *src_ptr;
	126	unsigned int *dst_ptr;
	127	{
	128	switch (reloc->howto->type)
	129	{
	130	case R_SH_IMM32:
	131	{
6812b607 ILT	132	int v = bfd_coff_reloc16_get_value(reloc, link_info,
6812b607 ILT	133	link_order->u.indirect.section);
46dd0622 SC	134	bfd_put_32 (in_abfd, v, data + *dst_ptr);
	135	(*dst_ptr) +=4;
	136	(*src_ptr)+=4;;
	137	}
	138	break;
	139
	140	default:
	141	abort ();
	142	}
	143	}
	144
	145	#define coff_reloc16_extra_cases extra_case
	146
	147	#include "coffcode.h"
	148
	149
	150	#undef coff_bfd_get_relocated_section_contents
	151	#undef coff_bfd_relax_section
6812b607 ILT	152	#define coff_bfd_get_relocated_section_contents \
6812b607 ILT	153	bfd_coff_reloc16_get_relocated_section_contents
46dd0622 SC	154	#define coff_bfd_relax_section bfd_coff_reloc16_relax_section
	155
	156	bfd_target shcoff_vec =
	157	{
	158	"coff-sh", /* name */
	159	bfd_target_coff_flavour,
	160	true, /* data byte order is big */
	161	true, /* header byte order is big */
	162
	163	(HAS_RELOC \| EXEC_P \| /* object flags */
	164	HAS_LINENO \| HAS_DEBUG \|
6812b607	165	HAS_SYMS \| HAS_LOCALS \| WP_TEXT \| BFD_IS_RELAXABLE ),
46dd0622 SC	166
	167	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
	168	'_', /* leading symbol underscore */
	169	'/', /* ar_pad_char */
	170	15, /* ar_max_namelen */
	171	2, /* minimum section alignment */
6812b607 ILT	172	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
	173	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
	174	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
	175	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
	176	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
	177	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
46dd0622 SC	178
	179	{_bfd_dummy_target, coff_object_p, /* bfd_check_format */
	180	bfd_generic_archive_p, _bfd_dummy_target},
	181	{bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
	182	bfd_false},
	183	{bfd_false, coff_write_object_contents, /* bfd_write_contents */
	184	_bfd_write_archive_contents, bfd_false},
	185
6812b607 ILT	186	BFD_JUMP_TABLE_GENERIC (coff),
	187	BFD_JUMP_TABLE_COPY (coff),
	188	BFD_JUMP_TABLE_CORE (_bfd_nocore),
	189	BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
	190	BFD_JUMP_TABLE_SYMBOLS (coff),
	191	BFD_JUMP_TABLE_RELOCS (coff),
	192	BFD_JUMP_TABLE_WRITE (coff),
	193	BFD_JUMP_TABLE_LINK (coff),
	194
46dd0622 SC	195	COFF_SWAP_TABLE,
46dd0622 SC	196	};