[deliverable/binutils-gdb.git] / bfd / sparclynx.c

/* BFD support for Sparc binaries under LynxOS.
   Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2000,
   2001 Free Software Foundation, Inc.

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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

#if 0
#define BYTES_IN_WORD 4
#define N_SHARED_LIB(x) 0

#define TEXT_START_ADDR 0
#define TARGET_PAGE_SIZE 4096
#define SEGMENT_SIZE TARGET_PAGE_SIZE
#define DEFAULT_ARCH bfd_arch_sparc

#endif

#define MY(OP) CAT (sparclynx_aout_,OP)
#define TARGETNAME "a.out-sparc-lynx"

#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"

#include "aout/sun4.h"
#include "libaout.h"		/* BFD a.out internal data structures */

#include "aout/aout64.h"
#include "aout/stab_gnu.h"
#include "aout/ar.h"

void NAME (lynx,set_arch_mach) PARAMS ((bfd *, unsigned long));
static void choose_reloc_size PARAMS ((bfd *));
static boolean NAME (aout,sparclynx_write_object_contents) PARAMS ((bfd *));

/* This is needed to reject a NewsOS file, e.g. in
   gdb/testsuite/gdb.t10/crossload.exp. <kingdon@cygnus.com>
   I needed to add M_UNKNOWN to recognize a 68000 object, so this will
   probably no longer reject a NewsOS object.  <ian@cygnus.com>.  */
#define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \
			    || (mtype) == M_68010 \
			    || (mtype) == M_68020 \
			    || (mtype) == M_SPARC)

/* The file @code{aoutf1.h} contains the code for BFD's
   a.out back end. Control over the generated back end is given by these
   two preprocessor names:
   @table @code
   @item ARCH_SIZE
   This value should be either 32 or 64, depending upon the size of an
   int in the target format. It changes the sizes of the structs which
   perform the memory/disk mapping of structures.

   The 64 bit backend may only be used if the host compiler supports 64
   ints (eg long long with gcc), by defining the name @code{BFD_HOST_64_BIT} in @code{bfd.h}.
   With this name defined, @emph{all} bfd operations are performed with 64bit
   arithmetic, not just those to a 64bit target.

   @item TARGETNAME
   The name put into the target vector.
   @item
   @end table  */

void
NAME(lynx,set_arch_mach) (abfd, machtype)
     bfd *abfd;
     unsigned long machtype;
{
  /* Determine the architecture and machine type of the object file.  */
  enum bfd_architecture arch;
  unsigned long machine;

  switch (machtype)
    {
    case M_UNKNOWN:
      /* Some Sun3s make magic numbers without cpu types in them, so
	 we'll default to the 68000.  */
      arch = bfd_arch_m68k;
      machine = bfd_mach_m68000;
      break;

    case M_68010:
    case M_HP200:
      arch = bfd_arch_m68k;
      machine = bfd_mach_m68010;
      break;

    case M_68020:
    case M_HP300:
      arch = bfd_arch_m68k;
      machine = bfd_mach_m68020;
      break;

    case M_SPARC:
      arch = bfd_arch_sparc;
      machine = 0;
      break;

    case M_386:
    case M_386_DYNIX:
      arch = bfd_arch_i386;
      machine = 0;
      break;

    case M_29K:
      arch = bfd_arch_a29k;
      machine = 0;
      break;

    case M_HPUX:
      arch = bfd_arch_m68k;
      machine = 0;
      break;

    default:
      arch = bfd_arch_obscure;
      machine = 0;
      break;
    }
  bfd_set_arch_mach (abfd, arch, machine);
}

#define SET_ARCH_MACH(ABFD, EXEC) \
  NAME(lynx,set_arch_mach) (ABFD, N_MACHTYPE (EXEC)); \
  choose_reloc_size(ABFD);

/* Determine the size of a relocation entry, based on the architecture.  */

static void
choose_reloc_size (abfd)
     bfd *abfd;
{
  switch (bfd_get_arch (abfd))
    {
    case bfd_arch_sparc:
    case bfd_arch_a29k:
      obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
      break;
    default:
      obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
      break;
    }
}

/* Write an object file in LynxOS format.
  Section contents have already been written.  We write the
  file header, symbols, and relocation.  */

static boolean
NAME(aout,sparclynx_write_object_contents) (abfd)
     bfd *abfd;
{
  struct external_exec exec_bytes;
  struct internal_exec *execp = exec_hdr (abfd);

  /* Magic number, maestro, please!  */
  switch (bfd_get_arch (abfd))
    {
    case bfd_arch_m68k:
      switch (bfd_get_mach (abfd))
	{
	case bfd_mach_m68010:
	  N_SET_MACHTYPE (*execp, M_68010);
	  break;
	default:
	case bfd_mach_m68020:
	  N_SET_MACHTYPE (*execp, M_68020);
	  break;
	}
      break;
    case bfd_arch_sparc:
      N_SET_MACHTYPE (*execp, M_SPARC);
      break;
    case bfd_arch_i386:
      N_SET_MACHTYPE (*execp, M_386);
      break;
    case bfd_arch_a29k:
      N_SET_MACHTYPE (*execp, M_29K);
      break;
    default:
      N_SET_MACHTYPE (*execp, M_UNKNOWN);
    }

  choose_reloc_size (abfd);

  N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags);

  WRITE_HEADERS (abfd, execp);

  return true;
}

#define MY_set_sizes sparclynx_set_sizes
static boolean sparclynx_set_sizes PARAMS ((bfd *));

static boolean
sparclynx_set_sizes (abfd)
     bfd *abfd;
{
  switch (bfd_get_arch (abfd))
    {
    default:
      return false;
    case bfd_arch_sparc:
      adata (abfd).page_size = 0x2000;
      adata (abfd).segment_size = 0x2000;
      adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
      return true;
    case bfd_arch_m68k:
      adata (abfd).page_size = 0x2000;
      adata (abfd).segment_size = 0x20000;
      adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
      return true;
    }
}

static const struct aout_backend_data sparclynx_aout_backend =
  {
    0, 1, 0, 1, 0, sparclynx_set_sizes, 0,
    0,				/* add_dynamic_symbols */
    0,				/* add_one_symbol */
    0,				/* link_dynamic_object */
    0,				/* write_dynamic_symbol */
    0,				/* check_dynamic_reloc */
    0				/* finish_dynamic_link */
  };
\f

#define MY_bfd_debug_info_start		bfd_void
#define MY_bfd_debug_info_end		bfd_void
#define MY_bfd_debug_info_accumulate	\
			(void (*) PARAMS ((bfd *, struct sec *))) bfd_void

#define MY_write_object_contents	NAME(aout,sparclynx_write_object_contents)
#define MY_backend_data			&sparclynx_aout_backend

#define TARGET_IS_BIG_ENDIAN_P

#ifdef LYNX_CORE

char *  lynx_core_file_failing_command ();
int     lynx_core_file_failing_signal ();
boolean lynx_core_file_matches_executable_p ();
const bfd_target * lynx_core_file_p ();

#define	MY_core_file_failing_command lynx_core_file_failing_command
#define	MY_core_file_failing_signal lynx_core_file_failing_signal
#define	MY_core_file_matches_executable_p lynx_core_file_matches_executable_p
#define	MY_core_file_p lynx_core_file_p

#endif /* LYNX_CORE */

#include "aout-target.h"
Commit	Line	Data
252b5132	1	/* BFD support for Sparc binaries under LynxOS.
42ef282f NC	2	Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2000,
42ef282f NC	3	2001 Free Software Foundation, Inc.
252b5132 RH	4
	5	This file is part of BFD, the Binary File Descriptor library.
	6
	7	This program is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
	9	the Free Software Foundation; either version 2 of the License, or
	10	(at your option) any later version.
	11
	12	This program is distributed in the hope that it will be useful,
	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
	18	along with this program; if not, write to the Free Software
	19	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	20
	21	#if 0
	22	#define BYTES_IN_WORD 4
	23	#define N_SHARED_LIB(x) 0
	24
	25	#define TEXT_START_ADDR 0
	26	#define TARGET_PAGE_SIZE 4096
	27	#define SEGMENT_SIZE TARGET_PAGE_SIZE
	28	#define DEFAULT_ARCH bfd_arch_sparc
	29
	30	#endif
	31
42ef282f	32	#define MY(OP) CAT (sparclynx_aout_,OP)
252b5132 RH	33	#define TARGETNAME "a.out-sparc-lynx"
	34
	35	#include "bfd.h"
	36	#include "sysdep.h"
	37	#include "libbfd.h"
	38
	39	#include "aout/sun4.h"
	40	#include "libaout.h" /* BFD a.out internal data structures */
	41
	42	#include "aout/aout64.h"
	43	#include "aout/stab_gnu.h"
	44	#include "aout/ar.h"
	45
dc810e39	46	void NAME (lynx,set_arch_mach) PARAMS ((bfd *, unsigned long));
42ef282f NC	47	static void choose_reloc_size PARAMS ((bfd *));
	48	static boolean NAME (aout,sparclynx_write_object_contents) PARAMS ((bfd *));
	49
252b5132 RH	50	/* This is needed to reject a NewsOS file, e.g. in
	51	gdb/testsuite/gdb.t10/crossload.exp. <kingdon@cygnus.com>
	52	I needed to add M_UNKNOWN to recognize a 68000 object, so this will
7b82c249	53	probably no longer reject a NewsOS object. <ian@cygnus.com>. */
252b5132 RH	54	#define MACHTYPE_OK(mtype) ((mtype) == M_UNKNOWN \
	55	\|\| (mtype) == M_68010 \
	56	\|\| (mtype) == M_68020 \
	57	\|\| (mtype) == M_SPARC)
	58
42ef282f NC	59	/* The file @code{aoutf1.h} contains the code for BFD's
	60	a.out back end. Control over the generated back end is given by these
	61	two preprocessor names:
	62	@table @code
	63	@item ARCH_SIZE
	64	This value should be either 32 or 64, depending upon the size of an
	65	int in the target format. It changes the sizes of the structs which
	66	perform the memory/disk mapping of structures.
	67
	68	The 64 bit backend may only be used if the host compiler supports 64
	69	ints (eg long long with gcc), by defining the name @code{BFD_HOST_64_BIT} in @code{bfd.h}.
	70	With this name defined, @emph{all} bfd operations are performed with 64bit
	71	arithmetic, not just those to a 64bit target.
	72
	73	@item TARGETNAME
	74	The name put into the target vector.
	75	@item
	76	@end table */
252b5132 RH	77
	78	void
	79	NAME(lynx,set_arch_mach) (abfd, machtype)
	80	bfd *abfd;
dc810e39	81	unsigned long machtype;
252b5132 RH	82	{
	83	/* Determine the architecture and machine type of the object file. */
	84	enum bfd_architecture arch;
dc810e39	85	unsigned long machine;
42ef282f	86
252b5132 RH	87	switch (machtype)
252b5132 RH	88	{
252b5132 RH	89	case M_UNKNOWN:
252b5132 RH	90	/* Some Sun3s make magic numbers without cpu types in them, so
7b82c249	91	we'll default to the 68000. */
252b5132 RH	92	arch = bfd_arch_m68k;
	93	machine = bfd_mach_m68000;
	94	break;
	95
	96	case M_68010:
	97	case M_HP200:
	98	arch = bfd_arch_m68k;
	99	machine = bfd_mach_m68010;
	100	break;
	101
	102	case M_68020:
	103	case M_HP300:
	104	arch = bfd_arch_m68k;
	105	machine = bfd_mach_m68020;
	106	break;
	107
	108	case M_SPARC:
	109	arch = bfd_arch_sparc;
	110	machine = 0;
	111	break;
	112
	113	case M_386:
	114	case M_386_DYNIX:
	115	arch = bfd_arch_i386;
	116	machine = 0;
	117	break;
	118
	119	case M_29K:
	120	arch = bfd_arch_a29k;
	121	machine = 0;
	122	break;
	123
	124	case M_HPUX:
	125	arch = bfd_arch_m68k;
	126	machine = 0;
	127	break;
	128
	129	default:
	130	arch = bfd_arch_obscure;
	131	machine = 0;
	132	break;
	133	}
	134	bfd_set_arch_mach (abfd, arch, machine);
	135	}
	136
	137	#define SET_ARCH_MACH(ABFD, EXEC) \
7b82c249	138	NAME(lynx,set_arch_mach) (ABFD, N_MACHTYPE (EXEC)); \
252b5132 RH	139	choose_reloc_size(ABFD);
252b5132 RH	140
42ef282f NC	141	/* Determine the size of a relocation entry, based on the architecture. */
42ef282f NC	142
252b5132 RH	143	static void
	144	choose_reloc_size (abfd)
	145	bfd *abfd;
	146	{
	147	switch (bfd_get_arch (abfd))
	148	{
	149	case bfd_arch_sparc:
	150	case bfd_arch_a29k:
	151	obj_reloc_entry_size (abfd) = RELOC_EXT_SIZE;
	152	break;
	153	default:
	154	obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
	155	break;
	156	}
	157	}
	158
	159	/* Write an object file in LynxOS format.
	160	Section contents have already been written. We write the
	161	file header, symbols, and relocation. */
	162
	163	static boolean
	164	NAME(aout,sparclynx_write_object_contents) (abfd)
	165	bfd *abfd;
	166	{
	167	struct external_exec exec_bytes;
	168	struct internal_exec *execp = exec_hdr (abfd);
	169
	170	/* Magic number, maestro, please! */
	171	switch (bfd_get_arch (abfd))
	172	{
	173	case bfd_arch_m68k:
	174	switch (bfd_get_mach (abfd))
	175	{
	176	case bfd_mach_m68010:
	177	N_SET_MACHTYPE (*execp, M_68010);
	178	break;
	179	default:
	180	case bfd_mach_m68020:
	181	N_SET_MACHTYPE (*execp, M_68020);
	182	break;
	183	}
	184	break;
	185	case bfd_arch_sparc:
	186	N_SET_MACHTYPE (*execp, M_SPARC);
	187	break;
	188	case bfd_arch_i386:
	189	N_SET_MACHTYPE (*execp, M_386);
	190	break;
	191	case bfd_arch_a29k:
	192	N_SET_MACHTYPE (*execp, M_29K);
	193	break;
	194	default:
	195	N_SET_MACHTYPE (*execp, M_UNKNOWN);
	196	}
	197
	198	choose_reloc_size (abfd);
	199
	200	N_SET_FLAGS (*execp, aout_backend_info (abfd)->exec_hdr_flags);
	201
	202	WRITE_HEADERS (abfd, execp);
	203
	204	return true;
	205	}
	206
207	#define MY_set_sizes sparclynx_set_sizes
42ef282f NC	208	static boolean sparclynx_set_sizes PARAMS ((bfd *));
42ef282f NC	209
252b5132 RH	210	static boolean
	211	sparclynx_set_sizes (abfd)
	212	bfd *abfd;
	213	{
	214	switch (bfd_get_arch (abfd))
	215	{
	216	default:
	217	return false;
	218	case bfd_arch_sparc:
	219	adata (abfd).page_size = 0x2000;
	220	adata (abfd).segment_size = 0x2000;
	221	adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
	222	return true;
	223	case bfd_arch_m68k:
	224	adata (abfd).page_size = 0x2000;
	225	adata (abfd).segment_size = 0x20000;
	226	adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
	227	return true;
	228	}
	229	}
	230
dc810e39	231	static const struct aout_backend_data sparclynx_aout_backend =
42ef282f NC	232	{
	233	0, 1, 0, 1, 0, sparclynx_set_sizes, 0,
	234	0, /* add_dynamic_symbols */
	235	0, /* add_one_symbol */
	236	0, /* link_dynamic_object */
	237	0, /* write_dynamic_symbol */
	238	0, /* check_dynamic_reloc */
	239	0 /* finish_dynamic_link */
	240	};
252b5132 RH	241	\f
	242
	243	#define MY_bfd_debug_info_start bfd_void
	244	#define MY_bfd_debug_info_end bfd_void
	245	#define MY_bfd_debug_info_accumulate \
	246	(void () PARAMS ((bfd , struct sec *))) bfd_void
	247
	248	#define MY_write_object_contents NAME(aout,sparclynx_write_object_contents)
	249	#define MY_backend_data &sparclynx_aout_backend
	250
	251	#define TARGET_IS_BIG_ENDIAN_P
	252
	253	#ifdef LYNX_CORE
	254
42ef282f NC	255	char * lynx_core_file_failing_command ();
42ef282f NC	256	int lynx_core_file_failing_signal ();
252b5132	257	boolean lynx_core_file_matches_executable_p ();
42ef282f	258	const bfd_target * lynx_core_file_p ();
252b5132 RH	259
	260	#define MY_core_file_failing_command lynx_core_file_failing_command
	261	#define MY_core_file_failing_signal lynx_core_file_failing_signal
	262	#define MY_core_file_matches_executable_p lynx_core_file_matches_executable_p
	263	#define MY_core_file_p lynx_core_file_p
	264
	265	#endif /* LYNX_CORE */
	266
	267	#include "aout-target.h"