[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.  */

/* $Id$ */

#define M88 1		/* Customize various include files */
#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "obstack.h"
#include "coff-m88k.h"
#include "internalcoff.h"
#include "libcoff.h"

/* Provided the symbol, returns the value reffed */
#define HOWTO_PREPARE(relocation, symbol) 	\
  {						\
  if (symbol != (asymbol *)NULL) {		\
    if (symbol->flags & BSF_FORT_COMM) {	\
      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),
bfd *abfd AND
arelent *reloc_entry AND
asymbol *symbol_in AND
unsigned char *data AND
asection *ignore_input_section)
{
  long relocation;
  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 */
  '/',				/* 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 SC	20
	21	/* $Id$ */
	22
156e3852	23	#define M88 1 /* Customize various include files */
a7fe4c59	24	#include "bfd.h"
156e3852	25	#include "sysdep.h"
a7fe4c59	26	#include "libbfd.h"
9872a49c	27	#include "obstack.h"
156e3852 JG	28	#include "coff-m88k.h"
156e3852 JG	29	#include "internalcoff.h"
9872a49c SC	30	#include "libcoff.h"
9872a49c SC	31
4cddd1c9 SC	32	/* Provided the symbol, returns the value reffed */
	33	#define HOWTO_PREPARE(relocation, symbol) \
	34	{ \
	35	if (symbol != (asymbol *)NULL) { \
	36	if (symbol->flags & BSF_FORT_COMM) { \
	37	relocation = 0; \
	38	} \
	39	else { \
	40	relocation = symbol->value; \
	41	} \
	42	} \
	43	if (symbol->section != (asection *)NULL) { \
	44	relocation += symbol->section->output_section->vma + \
	45	symbol->section->output_offset; \
	46	} \
	47	}
	48
	49
	50
156e3852	51	static bfd_reloc_status_type
a6ac0c59	52	DEFUN(howto_hvrt16,(abfd, reloc_entry, symbol_in, data, ignore_input_section),
4cddd1c9 SC	53	bfd *abfd AND
	54	arelent *reloc_entry AND
	55	asymbol *symbol_in AND
	56	unsigned char *data AND
	57	asection *ignore_input_section)
	58	{
	59	long relocation;
	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) \
	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; \
	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 */
a7fe4c59 SC	119	'/', /* ar_pad_char */
a7fe4c59 SC	120	15, /* ar_max_namelen */
156e3852 JG	121	3, /* default alignment power */
	122	_do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* data */
	123	_do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* hdrs */
a7fe4c59	124
156e3852 JG	125	{_bfd_dummy_target, coff_object_p, /* bfd_check_format */
	126	bfd_generic_archive_p, _bfd_dummy_target},
	127	{bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
	128	bfd_false},
	129	{bfd_false, coff_write_object_contents, /* bfd_write_contents */
	130	_bfd_write_archive_contents, bfd_false},
9872a49c	131
2700c3c7	132	JUMP_TABLE(coff),
156e3852	133	COFF_SWAP_TABLE
2b1d8a50	134	};