[binutils.git] / bfd / sparclynx.c

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