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

/* Motorola 88000 COFF support ("Binary Compatability Standard") for BFD.
   Copyright (C) 1990-1991 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */

#define M88 1		/* Customize various include files */
#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "obstack.h"
#include "coff/m88k.h"
#include "coff/internal.h"
#include "libcoff.h"
#undef HOWTO_PREPARE
/* Provided the symbol, returns the value reffed */
#define HOWTO_PREPARE(relocation, symbol) 	\
  {						\
  if (symbol != (asymbol *)NULL) {		\
    if (symbol->section == &bfd_com_section) {	\
      relocation = 0;				\
    }						\
    else {					\
      relocation = symbol->value;		\
    }						\
  }						\
  if (symbol->section != (asection *)NULL) {	\
    relocation += symbol->section->output_section->vma +	\
      symbol->section->output_offset;		\
  }						\
}			
 

static bfd_reloc_status_type 
DEFUN(howto_hvrt16,(abfd, reloc_entry, symbol_in, data,
		    ignore_input_section, ignore_bfd),
      bfd *abfd AND
      arelent *reloc_entry AND
      asymbol *symbol_in AND
      PTR data AND
      asection *ignore_input_section AND
      bfd *ignore_bfd)
{
  long relocation = 0;
  bfd_vma addr = reloc_entry->address;
  long x = bfd_get_16(abfd, (bfd_byte *)data + addr);

  HOWTO_PREPARE(relocation, symbol_in);

  x = (x + relocation + reloc_entry->addend) >> 16;

  bfd_put_16(abfd, x, (bfd_byte *)data + addr);
  return bfd_reloc_ok;
}


static reloc_howto_type howto_table[] = 
{
  HOWTO(R_PCR16L,02,1,16,true, 0,false,true,0,"PCR16L",false,0x0000ffff,0x0000ffff,true),
  HOWTO(R_PCR26L,02,2,16,true, 0,false,true,0,"PCR26L",false,0x03ffffff,0x03ffffff,true),
  HOWTO(R_VRT16, 00,1,16,false,0,false,true,0,"VRT16", false,0x0000ffff,0x0000ffff,true),
  HOWTO(R_HVRT16,16,1,16,false,0,false,true,howto_hvrt16,"HVRT16",false,0x0000ffff,0x0000ffff,true),
  HOWTO(R_LVRT16,00,1,16,false,0,false,true,0,"LVRT16",false,0x0000ffff,0x0000ffff,true),
  HOWTO(R_VRT32, 00,2,32,false,0,false,true,0,"VRT32", false,0xffffffff,0xffffffff,true),
};


/* Code to swap in the reloc offset */
#define SWAP_IN_RELOC_OFFSET   bfd_h_get_16
#define SWAP_OUT_RELOC_OFFSET bfd_h_put_16


/* Code to turn an external r_type into a pointer to an entry in the
   above howto table */
#define RTYPE2HOWTO(cache_ptr, dst)					\
	    if ((dst)->r_type >= R_PCR16L && (dst)->r_type <= R_VRT32) {\
		cache_ptr->howto = howto_table + (dst)->r_type - R_PCR16L;\
		cache_ptr->addend += (dst)->r_offset << 16;		\
	    }								\
	    else {							\
		BFD_ASSERT(0);						\
	    }


#define BADMAG(x) MC88BADMAG(x)
#include "coffcode.h"

#undef coff_write_armap

bfd_target m88kbcs_vec =
{
  "coff-m88kbcs",		/* 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 | DYNAMIC | WP_TEXT),

  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
  0,				/* leading underscore */
  '/',				/* ar_pad_char */
  15,				/* ar_max_namelen */
  3,				/* default alignment power */
  _do_getb64, _do_putb64,  _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* data */
  _do_getb64, _do_putb64,   _do_getb32, _do_putb32, _do_getb16, _do_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},

  JUMP_TABLE(coff),
  COFF_SWAP_TABLE
};
Commit	Line	Data
156e3852 JG	1	/* Motorola 88000 COFF support ("Binary Compatability Standard") for BFD.
	2	Copyright (C) 1990-1991 Free Software Foundation, Inc.
	3	Written by Cygnus Support.
a7fe4c59	4
156e3852	5	This file is part of BFD, the Binary File Descriptor library.
a7fe4c59	6
156e3852	7	This program is free software; you can redistribute it and/or modify
a7fe4c59	8	it under the terms of the GNU General Public License as published by
156e3852 JG	9	the Free Software Foundation; either version 2 of the License, or
156e3852 JG	10	(at your option) any later version.
a7fe4c59	11
156e3852	12	This program is distributed in the hope that it will be useful,
a7fe4c59 SC	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
	16
	17	You should have received a copy of the GNU General Public License
156e3852 JG	18	along with this program; if not, write to the Free Software
156e3852 JG	19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
a7fe4c59	20
156e3852	21	#define M88 1 /* Customize various include files */
a7fe4c59	22	#include "bfd.h"
156e3852	23	#include "sysdep.h"
a7fe4c59	24	#include "libbfd.h"
9872a49c	25	#include "obstack.h"
294eaca4 SC	26	#include "coff/m88k.h"
294eaca4 SC	27	#include "coff/internal.h"
9872a49c	28	#include "libcoff.h"
294eaca4	29	#undef HOWTO_PREPARE
4cddd1c9 SC	30	/* Provided the symbol, returns the value reffed */
	31	#define HOWTO_PREPARE(relocation, symbol) \
	32	{ \
	33	if (symbol != (asymbol *)NULL) { \
294eaca4	34	if (symbol->section == &bfd_com_section) { \
4cddd1c9 SC	35	relocation = 0; \
	36	} \
	37	else { \
	38	relocation = symbol->value; \
	39	} \
	40	} \
	41	if (symbol->section != (asection *)NULL) { \
	42	relocation += symbol->section->output_section->vma + \
	43	symbol->section->output_offset; \
	44	} \
	45	}
	46
	47
	48
156e3852	49	static bfd_reloc_status_type
294eaca4 SC	50	DEFUN(howto_hvrt16,(abfd, reloc_entry, symbol_in, data,
	51	ignore_input_section, ignore_bfd),
	52	bfd *abfd AND
	53	arelent *reloc_entry AND
	54	asymbol *symbol_in AND
	55	PTR data AND
	56	asection *ignore_input_section AND
	57	bfd *ignore_bfd)
4cddd1c9	58	{
294eaca4	59	long relocation = 0;
4cddd1c9	60	bfd_vma addr = reloc_entry->address;
19b03b7a	61	long x = bfd_get_16(abfd, (bfd_byte *)data + addr);
4cddd1c9 SC	62
	63	HOWTO_PREPARE(relocation, symbol_in);
	64
	65	x = (x + relocation + reloc_entry->addend) >> 16;
	66
19b03b7a	67	bfd_put_16(abfd, x, (bfd_byte *)data + addr);
4cddd1c9 SC	68	return bfd_reloc_ok;
	69	}
	70
a7fe4c59 SC	71
	72
	73	static reloc_howto_type howto_table[] =
	74	{
4cddd1c9 SC	75	HOWTO(R_PCR16L,02,1,16,true, 0,false,true,0,"PCR16L",false,0x0000ffff,0x0000ffff,true),
	76	HOWTO(R_PCR26L,02,2,16,true, 0,false,true,0,"PCR26L",false,0x03ffffff,0x03ffffff,true),
	77	HOWTO(R_VRT16, 00,1,16,false,0,false,true,0,"VRT16", false,0x0000ffff,0x0000ffff,true),
	78	HOWTO(R_HVRT16,16,1,16,false,0,false,true,howto_hvrt16,"HVRT16",false,0x0000ffff,0x0000ffff,true),
	79	HOWTO(R_LVRT16,00,1,16,false,0,false,true,0,"LVRT16",false,0x0000ffff,0x0000ffff,true),
	80	HOWTO(R_VRT32, 00,2,32,false,0,false,true,0,"VRT32", false,0xffffffff,0xffffffff,true),
a7fe4c59 SC	81	};
	82
	83
3b4f1a5d SC	84	/* Code to swap in the reloc offset */
	85	#define SWAP_IN_RELOC_OFFSET bfd_h_get_16
	86	#define SWAP_OUT_RELOC_OFFSET bfd_h_put_16
	87
	88
	89	/* Code to turn an external r_type into a pointer to an entry in the
	90	above howto table */
	91	#define RTYPE2HOWTO(cache_ptr, dst) \
294eaca4 SC	92	if ((dst)->r_type >= R_PCR16L && (dst)->r_type <= R_VRT32) {\
	93	cache_ptr->howto = howto_table + (dst)->r_type - R_PCR16L;\
	94	cache_ptr->addend += (dst)->r_offset << 16; \
3b4f1a5d SC	95	} \
	96	else { \
	97	BFD_ASSERT(0); \
	98	}
	99
	100
a7fe4c59 SC	101
a7fe4c59 SC	102	#define BADMAG(x) MC88BADMAG(x)
2700c3c7	103	#include "coffcode.h"
a7fe4c59	104
5685fb50	105	#undef coff_write_armap
9872a49c	106
080f6324	107	bfd_target m88kbcs_vec =
a7fe4c59	108	{
3b4f1a5d	109	"coff-m88kbcs", /* name */
156e3852	110	bfd_target_coff_flavour,
9872a49c	111	true, /* data byte order is big */
a7fe4c59 SC	112	true, /* header byte order is big */
	113
	114	(HAS_RELOC \| EXEC_P \| /* object flags */
	115	HAS_LINENO \| HAS_DEBUG \|
	116	HAS_SYMS \| HAS_LOCALS \| DYNAMIC \| WP_TEXT),
	117
	118	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
294eaca4	119	0, /* leading underscore */
a7fe4c59 SC	120	'/', /* ar_pad_char */
a7fe4c59 SC	121	15, /* ar_max_namelen */
156e3852 JG	122	3, /* default alignment power */
	123	_do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* data */
	124	_do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* hdrs */
a7fe4c59	125
156e3852 JG	126	{_bfd_dummy_target, coff_object_p, /* bfd_check_format */
	127	bfd_generic_archive_p, _bfd_dummy_target},
	128	{bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
	129	bfd_false},
	130	{bfd_false, coff_write_object_contents, /* bfd_write_contents */
	131	_bfd_write_archive_contents, bfd_false},
9872a49c	132
2700c3c7	133	JUMP_TABLE(coff),
156e3852	134	COFF_SWAP_TABLE
2b1d8a50	135	};