253 lines
6.9 KiB
C
253 lines
6.9 KiB
C
/* BFD support for Sparc binaries under LynxOS.
|
||
Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2000,
|
||
2001, 2002, 2003, 2005, 2007 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 3 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., 51 Franklin Street - Fifth Floor, Boston,
|
||
MA 02110-1301, USA. */
|
||
|
||
|
||
/* Do not "beautify" the CONCAT* macro args. Traditional C will not
|
||
remove whitespace added here, and thus will fail to concatenate
|
||
the tokens. */
|
||
#define MY(OP) CONCAT2 (sparclynx_aout_,OP)
|
||
#define TARGETNAME "a.out-sparc-lynx"
|
||
|
||
#include "sysdep.h"
|
||
#include "bfd.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 bfd_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_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:
|
||
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 bfd_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;
|
||
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 bfd_boolean sparclynx_set_sizes PARAMS ((bfd *));
|
||
|
||
static bfd_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 */
|
||
};
|
||
|
||
|
||
#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 bfd_section *))) 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 ();
|
||
bfd_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"
|