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