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

/* BFD support for Sparc binaries under LynxOS.
   Copyright (C) 1990, 91, 92, 93, 94, 95, 1997 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"

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

*/

/*SUPPRESS558*/
/*SUPPRESS529*/

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