[thirdparty/binutils-gdb.git] / bfd / aout-target.h

/* Define a target vector and some small routines for a variant of a.out.
   Copyright (C) 1990, 1991, 1992, 1993, 1994 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */

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

extern CONST struct reloc_howto_struct * NAME(aout,reloc_type_lookup) ();

/* Set parameters about this a.out file that are machine-dependent.
   This routine is called from some_aout_object_p just before it returns.  */
#ifndef MY_callback
static bfd_target *
MY(callback) (abfd)
     bfd *abfd;
{
  struct internal_exec *execp = exec_hdr (abfd);

  /* Calculate the file positions of the parts of a newly read aout header */
  obj_textsec (abfd)->_raw_size = N_TXTSIZE(*execp);

  /* The virtual memory addresses of the sections */
  obj_textsec (abfd)->vma = N_TXTADDR(*execp);
  obj_datasec (abfd)->vma = N_DATADDR(*execp);
  obj_bsssec  (abfd)->vma = N_BSSADDR(*execp);

  /* The file offsets of the sections */
  obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
  obj_datasec (abfd)->filepos = N_DATOFF (*execp);

  /* The file offsets of the relocation info */
  obj_textsec (abfd)->rel_filepos = N_TRELOFF(*execp);
  obj_datasec (abfd)->rel_filepos = N_DRELOFF(*execp);

  /* The file offsets of the string table and symbol table.  */
  obj_sym_filepos (abfd) = N_SYMOFF (*execp);
  obj_str_filepos (abfd) = N_STROFF (*execp);
  
  /* Determine the architecture and machine type of the object file.  */
#ifdef SET_ARCH_MACH
  SET_ARCH_MACH(abfd, *execp);
#else
  bfd_default_set_arch_mach(abfd, DEFAULT_ARCH, 0);
#endif

  /* Now that we know the architecture, set the alignments of the
     sections.  This is normally done by NAME(aout,new_section_hook),
     but when the initial sections were created the architecture had
     not yet been set.  */
  obj_textsec (abfd)->alignment_power =
    obj_datasec (abfd)->alignment_power =
      obj_bsssec (abfd)->alignment_power =
	bfd_get_arch_info (abfd)->section_align_power;

  /* Don't set sizes now -- can't be sure until we know arch & mach.
     Sizes get set in set_sizes callback, later.  */
#if 0
  adata(abfd).page_size = PAGE_SIZE;
#ifdef SEGMENT_SIZE
  adata(abfd).segment_size = SEGMENT_SIZE;
#else
  adata(abfd).segment_size = PAGE_SIZE;
#endif
  adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
#endif

  return abfd->xvec;
}
#endif

#ifndef MY_object_p
/* Finish up the reading of an a.out file header */

static bfd_target *
MY(object_p) (abfd)
     bfd *abfd;
{
  struct external_exec exec_bytes;	/* Raw exec header from file */
  struct internal_exec exec;		/* Cleaned-up exec header */
  bfd_target *target;

  if (bfd_read ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd)
      != EXEC_BYTES_SIZE) {
    if (bfd_get_error () != bfd_error_system_call)
      bfd_set_error (bfd_error_wrong_format);
    return 0;
  }

#ifdef SWAP_MAGIC
  exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
#else
  exec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info);
#endif /* SWAP_MAGIC */

  if (N_BADMAG (exec)) return 0;
#ifdef MACHTYPE_OK
  if (!(MACHTYPE_OK (N_MACHTYPE (exec)))) return 0;
#endif

  NAME(aout,swap_exec_header_in)(abfd, &exec_bytes, &exec);
  target = NAME(aout,some_aout_object_p) (abfd, &exec, MY(callback));

#ifdef ENTRY_CAN_BE_ZERO
  /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
   * means that it isn't obvious if EXEC_P should be set.
   * All of the following must be true for an executable:
   * There must be no relocations, the bfd can be neither an
   * archive nor an archive element, and the file must be executable. */

  if (exec.a_trsize + exec.a_drsize == 0
      && bfd_get_format(abfd) == bfd_object && abfd->my_archive == NULL)
    {
      struct stat buf;
#ifndef S_IXUSR
#define S_IXUSR 0100	/* Execute by owner.  */
#endif
      if (stat(abfd->filename, &buf) == 0 && (buf.st_mode & S_IXUSR))
	abfd->flags |= EXEC_P;
    }
#endif /* ENTRY_CAN_BE_ZERO */

  return target;
}
#define MY_object_p MY(object_p)
#endif


#ifndef MY_mkobject
static boolean
MY(mkobject) (abfd)
     bfd *abfd;
{
  if (NAME(aout,mkobject)(abfd) == false)
    return false;
#if 0 /* Sizes get set in set_sizes callback, later, after we know
	 the architecture and machine.  */
  adata(abfd).page_size = PAGE_SIZE;
#ifdef SEGMENT_SIZE
  adata(abfd).segment_size = SEGMENT_SIZE;
#else
  adata(abfd).segment_size = PAGE_SIZE;
#endif
  adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
#endif
  return true;
}
#define MY_mkobject MY(mkobject)
#endif

#ifndef MY_bfd_copy_private_section_data

/* Copy private section data.  This actually does nothing with the
   sections.  It copies the subformat field.  We copy it here, because
   we know whether this is a QMAGIC file before we set the section
   contents, and copy_private_bfd_data is not called until after the
   section contents have been set.  */

/*ARGSUSED*/
static boolean
MY_bfd_copy_private_section_data (ibfd, isec, obfd, osec)
     bfd *ibfd;
     asection *isec;
     bfd *obfd;
     asection *osec;
{
  obj_aout_subformat (obfd) = obj_aout_subformat (ibfd);
  return true;
}

#endif

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

#ifndef MY_write_object_contents
static boolean
MY(write_object_contents) (abfd)
     bfd *abfd;
{
  struct external_exec exec_bytes;
  struct internal_exec *execp = exec_hdr (abfd);

#if CHOOSE_RELOC_SIZE
  CHOOSE_RELOC_SIZE(abfd);
#else
  obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
#endif

  WRITE_HEADERS(abfd, execp);

  return true;
}
#define MY_write_object_contents MY(write_object_contents)
#endif

#ifndef MY_set_sizes
static boolean
MY(set_sizes) (abfd)
     bfd *abfd;
{
  adata(abfd).page_size = PAGE_SIZE;
#ifdef SEGMENT_SIZE
  adata(abfd).segment_size = SEGMENT_SIZE;
#else
  adata(abfd).segment_size = PAGE_SIZE;
#endif
  adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
  return true;
}
#define MY_set_sizes MY(set_sizes)
#endif

#ifndef MY_exec_hdr_flags
#define MY_exec_hdr_flags 0
#endif

#ifndef MY_backend_data

#ifndef MY_text_includes_header
#define MY_text_includes_header 0
#endif
#ifndef MY_add_dynamic_symbols
#define MY_add_dynamic_symbols 0
#endif
#ifndef MY_add_one_symbol
#define MY_add_one_symbol 0
#endif
#ifndef MY_link_dynamic_object
#define MY_link_dynamic_object 0
#endif
#ifndef MY_write_dynamic_symbol
#define MY_write_dynamic_symbol 0
#endif
#ifndef MY_check_dynamic_reloc
#define MY_check_dynamic_reloc 0
#endif
#ifndef MY_finish_dynamic_link
#define MY_finish_dynamic_link 0
#endif

static CONST struct aout_backend_data MY(backend_data) = {
  0,				/* zmagic contiguous */
  MY_text_includes_header,
  MY_exec_hdr_flags,
  0,				/* text vma? */
  MY_set_sizes,
  0,				/* exec header is counted */
  MY_add_dynamic_symbols,
  MY_add_one_symbol,
  MY_link_dynamic_object,
  MY_write_dynamic_symbol,
  MY_check_dynamic_reloc,
  MY_finish_dynamic_link
};
#define MY_backend_data &MY(backend_data)
#endif

#ifndef MY_final_link_callback

/* Callback for the final_link routine to set the section offsets.  */

static void MY_final_link_callback
  PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *));

static void
MY_final_link_callback (abfd, ptreloff, pdreloff, psymoff)
     bfd *abfd;
     file_ptr *ptreloff;
     file_ptr *pdreloff;
     file_ptr *psymoff;
{
  struct internal_exec *execp = exec_hdr (abfd);

  *ptreloff = N_TRELOFF (*execp);
  *pdreloff = N_DRELOFF (*execp);
  *psymoff = N_SYMOFF (*execp);
}

#endif

#ifndef MY_bfd_final_link

/* Final link routine.  We need to use a call back to get the correct
   offsets in the output file.  */

static boolean
MY_bfd_final_link (abfd, info)
     bfd *abfd;
     struct bfd_link_info *info;
{
  return NAME(aout,final_link) (abfd, info, MY_final_link_callback);
}

#endif

/* We assume BFD generic archive files.  */
#ifndef	MY_openr_next_archived_file
#define	MY_openr_next_archived_file	bfd_generic_openr_next_archived_file
#endif
#ifndef	MY_generic_stat_arch_elt
#define	MY_generic_stat_arch_elt	bfd_generic_stat_arch_elt
#endif
#ifndef	MY_slurp_armap
#define	MY_slurp_armap			bfd_slurp_bsd_armap
#endif
#ifndef	MY_slurp_extended_name_table
#define	MY_slurp_extended_name_table	_bfd_slurp_extended_name_table
#endif
#ifndef	MY_write_armap
#define	MY_write_armap		bsd_write_armap
#endif
#ifndef	MY_truncate_arname
#define	MY_truncate_arname		bfd_bsd_truncate_arname
#endif

/* No core file defined here -- configure in trad-core.c separately.  */
#ifndef	MY_core_file_failing_command
#define	MY_core_file_failing_command _bfd_nocore_core_file_failing_command
#endif
#ifndef	MY_core_file_failing_signal
#define	MY_core_file_failing_signal	_bfd_nocore_core_file_failing_signal
#endif
#ifndef	MY_core_file_matches_executable_p
#define	MY_core_file_matches_executable_p	\
				_bfd_nocore_core_file_matches_executable_p
#endif
#ifndef	MY_core_file_p
#define	MY_core_file_p		_bfd_dummy_target
#endif

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

#ifndef MY_core_file_failing_command
#define MY_core_file_failing_command NAME(aout,core_file_failing_command)
#endif
#ifndef MY_core_file_failing_signal
#define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
#endif
#ifndef MY_core_file_matches_executable_p
#define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
#endif
#ifndef MY_set_section_contents
#define MY_set_section_contents NAME(aout,set_section_contents)
#endif
#ifndef MY_get_section_contents
#define MY_get_section_contents NAME(aout,get_section_contents)
#endif
#ifndef MY_new_section_hook
#define MY_new_section_hook NAME(aout,new_section_hook)
#endif
#ifndef MY_get_symtab_upper_bound
#define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
#endif
#ifndef MY_get_symtab
#define MY_get_symtab NAME(aout,get_symtab)
#endif
#ifndef MY_get_reloc_upper_bound
#define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
#endif
#ifndef MY_canonicalize_reloc
#define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
#endif
#ifndef MY_make_empty_symbol
#define MY_make_empty_symbol NAME(aout,make_empty_symbol)
#endif
#ifndef MY_print_symbol
#define MY_print_symbol NAME(aout,print_symbol)
#endif
#ifndef MY_get_symbol_info
#define MY_get_symbol_info NAME(aout,get_symbol_info)
#endif
#ifndef MY_get_lineno
#define MY_get_lineno NAME(aout,get_lineno)
#endif
#ifndef MY_set_arch_mach
#define MY_set_arch_mach NAME(aout,set_arch_mach)
#endif
#ifndef MY_find_nearest_line
#define MY_find_nearest_line NAME(aout,find_nearest_line)
#endif
#ifndef MY_sizeof_headers
#define MY_sizeof_headers NAME(aout,sizeof_headers)
#endif
#ifndef MY_bfd_get_relocated_section_contents
#define MY_bfd_get_relocated_section_contents \
			bfd_generic_get_relocated_section_contents
#endif
#ifndef MY_bfd_relax_section
#define MY_bfd_relax_section bfd_generic_relax_section
#endif
#ifndef MY_bfd_reloc_type_lookup
#define MY_bfd_reloc_type_lookup NAME(aout,reloc_type_lookup)
#endif
#ifndef MY_bfd_make_debug_symbol
#define MY_bfd_make_debug_symbol 0
#endif
#ifndef MY_bfd_link_hash_table_create
#define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
#endif
#ifndef MY_bfd_link_add_symbols
#define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
#endif

#ifndef MY_bfd_copy_private_bfd_data
#define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
#endif

#ifndef MY_bfd_is_local_label
#define MY_bfd_is_local_label bfd_generic_is_local_label
#endif

#ifndef MY_bfd_free_cached_info
#define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
#endif

#ifndef MY_close_and_cleanup
#define MY_close_and_cleanup MY_bfd_free_cached_info
#endif

#ifndef MY_get_dynamic_symtab_upper_bound
#define MY_get_dynamic_symtab_upper_bound \
  _bfd_nodynamic_get_dynamic_symtab_upper_bound
#endif
#ifndef MY_canonicalize_dynamic_symtab
#define MY_canonicalize_dynamic_symtab \
  _bfd_nodynamic_canonicalize_dynamic_symtab
#endif
#ifndef MY_get_dynamic_reloc_upper_bound
#define MY_get_dynamic_reloc_upper_bound \
  _bfd_nodynamic_get_dynamic_reloc_upper_bound
#endif
#ifndef MY_canonicalize_dynamic_reloc
#define MY_canonicalize_dynamic_reloc \
  _bfd_nodynamic_canonicalize_dynamic_reloc
#endif

/* Aout symbols normally have leading underscores */
#ifndef MY_symbol_leading_char 
#define MY_symbol_leading_char '_'
#endif

/* Aout archives normally use spaces for padding */
#ifndef AR_PAD_CHAR
#define AR_PAD_CHAR ' '
#endif

#ifndef MY_BFD_TARGET
bfd_target MY(vec) =
{
  TARGETNAME,		/* name */
  bfd_target_aout_flavour,
#ifdef TARGET_IS_BIG_ENDIAN_P
  true,				/* target byte order (big) */
  true,				/* target headers byte order (big) */
#else
  false,			/* target byte order (little) */
  false,			/* target headers byte order (little) */
#endif
  (HAS_RELOC | EXEC_P |		/* object flags */
   HAS_LINENO | HAS_DEBUG |
   HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
  MY_symbol_leading_char,
  AR_PAD_CHAR,			/* ar_pad_char */
  15,				/* ar_max_namelen */
  3,				/* minimum alignment */
#ifdef TARGET_IS_BIG_ENDIAN_P
  bfd_getb64, bfd_getb_signed_64, bfd_putb64,
     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
     bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
  bfd_getb64, bfd_getb_signed_64, bfd_putb64,
     bfd_getb32, bfd_getb_signed_32, bfd_putb32,
     bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
#else
  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
     bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
  bfd_getl64, bfd_getl_signed_64, bfd_putl64,
     bfd_getl32, bfd_getl_signed_32, bfd_putl32,
     bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
#endif
    {_bfd_dummy_target, MY_object_p, /* bfd_check_format */
       bfd_generic_archive_p, MY_core_file_p},
    {bfd_false, MY_mkobject,	/* bfd_set_format */
       _bfd_generic_mkarchive, bfd_false},
    {bfd_false, MY_write_object_contents, /* bfd_write_contents */
       _bfd_write_archive_contents, bfd_false},

     BFD_JUMP_TABLE_GENERIC (MY),
     BFD_JUMP_TABLE_COPY (MY),
     BFD_JUMP_TABLE_CORE (MY),
     BFD_JUMP_TABLE_ARCHIVE (MY),
     BFD_JUMP_TABLE_SYMBOLS (MY),
     BFD_JUMP_TABLE_RELOCS (MY),
     BFD_JUMP_TABLE_WRITE (MY),
     BFD_JUMP_TABLE_LINK (MY),
     BFD_JUMP_TABLE_DYNAMIC (MY),

  (PTR) MY_backend_data,
};
#endif /* MY_BFD_TARGET */
Commit	Line	Data
582bc90a	1	/* Define a target vector and some small routines for a variant of a.out.
f5419a59	2	Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
e98e6ec1 SC	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
	18	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
	19
582bc90a PB	20	#include "aout/aout64.h"
	21	#include "aout/stab_gnu.h"
	22	#include "aout/ar.h"
	23	/#include "libaout.h"/
	24
214f8f23 KR	25	extern CONST struct reloc_howto_struct * NAME(aout,reloc_type_lookup) ();
214f8f23 KR	26
e98e6ec1 SC	27	/* Set parameters about this a.out file that are machine-dependent.
e98e6ec1 SC	28	This routine is called from some_aout_object_p just before it returns. */
214f8f23	29	#ifndef MY_callback
e98e6ec1	30	static bfd_target *
57a1867e DM	31	MY(callback) (abfd)
57a1867e DM	32	bfd *abfd;
e98e6ec1 SC	33	{
e98e6ec1 SC	34	struct internal_exec *execp = exec_hdr (abfd);
294eaca4 SC	35
294eaca4 SC	36	/* Calculate the file positions of the parts of a newly read aout header */
e98e6ec1 SC	37	obj_textsec (abfd)->_raw_size = N_TXTSIZE(*execp);
	38
	39	/* The virtual memory addresses of the sections */
	40	obj_textsec (abfd)->vma = N_TXTADDR(*execp);
	41	obj_datasec (abfd)->vma = N_DATADDR(*execp);
	42	obj_bsssec (abfd)->vma = N_BSSADDR(*execp);
	43
	44	/* The file offsets of the sections */
	45	obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
	46	obj_datasec (abfd)->filepos = N_DATOFF (*execp);
	47
	48	/* The file offsets of the relocation info */
	49	obj_textsec (abfd)->rel_filepos = N_TRELOFF(*execp);
	50	obj_datasec (abfd)->rel_filepos = N_DRELOFF(*execp);
	51
	52	/* The file offsets of the string table and symbol table. */
	53	obj_sym_filepos (abfd) = N_SYMOFF (*execp);
	54	obj_str_filepos (abfd) = N_STROFF (*execp);
	55
582bc90a	56	/* Determine the architecture and machine type of the object file. */
e98e6ec1 SC	57	#ifdef SET_ARCH_MACH
	58	SET_ARCH_MACH(abfd, *execp);
	59	#else
	60	bfd_default_set_arch_mach(abfd, DEFAULT_ARCH, 0);
	61	#endif
	62
785e2b52 ILT	63	/* Now that we know the architecture, set the alignments of the
	64	sections. This is normally done by NAME(aout,new_section_hook),
	65	but when the initial sections were created the architecture had
	66	not yet been set. */
	67	obj_textsec (abfd)->alignment_power =
	68	obj_datasec (abfd)->alignment_power =
	69	obj_bsssec (abfd)->alignment_power =
	70	bfd_get_arch_info (abfd)->section_align_power;
	71
294eaca4 SC	72	/* Don't set sizes now -- can't be sure until we know arch & mach.
	73	Sizes get set in set_sizes callback, later. */
	74	#if 0
e98e6ec1 SC	75	adata(abfd).page_size = PAGE_SIZE;
	76	#ifdef SEGMENT_SIZE
	77	adata(abfd).segment_size = SEGMENT_SIZE;
	78	#else
	79	adata(abfd).segment_size = PAGE_SIZE;
	80	#endif
	81	adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
294eaca4	82	#endif
e98e6ec1 SC	83
	84	return abfd->xvec;
	85	}
214f8f23	86	#endif
e98e6ec1 SC	87
	88	#ifndef MY_object_p
	89	/* Finish up the reading of an a.out file header */
	90
	91	static bfd_target *
57a1867e DM	92	MY(object_p) (abfd)
57a1867e DM	93	bfd *abfd;
e98e6ec1 SC	94	{
	95	struct external_exec exec_bytes; /* Raw exec header from file */
	96	struct internal_exec exec; /* Cleaned-up exec header */
	97	bfd_target *target;
	98
	99	if (bfd_read ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd)
	100	!= EXEC_BYTES_SIZE) {
4002f18a ILT	101	if (bfd_get_error () != bfd_error_system_call)
4002f18a ILT	102	bfd_set_error (bfd_error_wrong_format);
e98e6ec1 SC	103	return 0;
	104	}
	105
3f99570e JK	106	#ifdef SWAP_MAGIC
3f99570e JK	107	exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
4c3721d5	108	#else
e98e6ec1	109	exec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info);
3f99570e	110	#endif /* SWAP_MAGIC */
e98e6ec1 SC	111
e98e6ec1 SC	112	if (N_BADMAG (exec)) return 0;
4c3721d5 ILT	113	#ifdef MACHTYPE_OK
	114	if (!(MACHTYPE_OK (N_MACHTYPE (exec)))) return 0;
	115	#endif
e98e6ec1 SC	116
	117	NAME(aout,swap_exec_header_in)(abfd, &exec_bytes, &exec);
	118	target = NAME(aout,some_aout_object_p) (abfd, &exec, MY(callback));
	119
	120	#ifdef ENTRY_CAN_BE_ZERO
	121	/* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
	122	* means that it isn't obvious if EXEC_P should be set.
	123	* All of the following must be true for an executable:
	124	* There must be no relocations, the bfd can be neither an
	125	* archive nor an archive element, and the file must be executable. */
	126
	127	if (exec.a_trsize + exec.a_drsize == 0
	128	&& bfd_get_format(abfd) == bfd_object && abfd->my_archive == NULL)
	129	{
	130	struct stat buf;
	131	#ifndef S_IXUSR
	132	#define S_IXUSR 0100 /* Execute by owner. */
	133	#endif
	134	if (stat(abfd->filename, &buf) == 0 && (buf.st_mode & S_IXUSR))
	135	abfd->flags \|= EXEC_P;
	136	}
	137	#endif /* ENTRY_CAN_BE_ZERO */
	138
	139	return target;
	140	}
	141	#define MY_object_p MY(object_p)
	142	#endif
	143
	144
	145	#ifndef MY_mkobject
	146	static boolean
57a1867e DM	147	MY(mkobject) (abfd)
57a1867e DM	148	bfd *abfd;
e98e6ec1 SC	149	{
	150	if (NAME(aout,mkobject)(abfd) == false)
	151	return false;
294eaca4 SC	152	#if 0 /* Sizes get set in set_sizes callback, later, after we know
294eaca4 SC	153	the architecture and machine. */
e98e6ec1 SC	154	adata(abfd).page_size = PAGE_SIZE;
	155	#ifdef SEGMENT_SIZE
	156	adata(abfd).segment_size = SEGMENT_SIZE;
	157	#else
	158	adata(abfd).segment_size = PAGE_SIZE;
	159	#endif
	160	adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
294eaca4	161	#endif
e98e6ec1 SC	162	return true;
	163	}
	164	#define MY_mkobject MY(mkobject)
	165	#endif
	166
f5419a59 ILT	167	#ifndef MY_bfd_copy_private_section_data
	168
	169	/* Copy private section data. This actually does nothing with the
	170	sections. It copies the subformat field. We copy it here, because
	171	we know whether this is a QMAGIC file before we set the section
	172	contents, and copy_private_bfd_data is not called until after the
	173	section contents have been set. */
	174
	175	/ARGSUSED/
	176	static boolean
	177	MY_bfd_copy_private_section_data (ibfd, isec, obfd, osec)
	178	bfd *ibfd;
	179	asection *isec;
	180	bfd *obfd;
	181	asection *osec;
	182	{
	183	obj_aout_subformat (obfd) = obj_aout_subformat (ibfd);
	184	return true;
	185	}
	186
	187	#endif
	188
e98e6ec1 SC	189	/* Write an object file.
	190	Section contents have already been written. We write the
	191	file header, symbols, and relocation. */
	192
	193	#ifndef MY_write_object_contents
	194	static boolean
57a1867e DM	195	MY(write_object_contents) (abfd)
57a1867e DM	196	bfd *abfd;
e98e6ec1	197	{
e98e6ec1 SC	198	struct external_exec exec_bytes;
	199	struct internal_exec *execp = exec_hdr (abfd);
	200
582bc90a PB	201	#if CHOOSE_RELOC_SIZE
	202	CHOOSE_RELOC_SIZE(abfd);
	203	#else
	204	obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
	205	#endif
	206
e98e6ec1	207	WRITE_HEADERS(abfd, execp);
582bc90a	208
e98e6ec1 SC	209	return true;
	210	}
	211	#define MY_write_object_contents MY(write_object_contents)
	212	#endif
	213
294eaca4 SC	214	#ifndef MY_set_sizes
294eaca4 SC	215	static boolean
57a1867e DM	216	MY(set_sizes) (abfd)
57a1867e DM	217	bfd *abfd;
294eaca4 SC	218	{
	219	adata(abfd).page_size = PAGE_SIZE;
	220	#ifdef SEGMENT_SIZE
	221	adata(abfd).segment_size = SEGMENT_SIZE;
	222	#else
	223	adata(abfd).segment_size = PAGE_SIZE;
	224	#endif
	225	adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
	226	return true;
	227	}
	228	#define MY_set_sizes MY(set_sizes)
	229	#endif
	230
f5419a59 ILT	231	#ifndef MY_exec_hdr_flags
	232	#define MY_exec_hdr_flags 0
	233	#endif
	234
294eaca4	235	#ifndef MY_backend_data
57a1867e	236
f5419a59 ILT	237	#ifndef MY_text_includes_header
	238	#define MY_text_includes_header 0
	239	#endif
	240	#ifndef MY_add_dynamic_symbols
	241	#define MY_add_dynamic_symbols 0
	242	#endif
	243	#ifndef MY_add_one_symbol
	244	#define MY_add_one_symbol 0
	245	#endif
	246	#ifndef MY_link_dynamic_object
	247	#define MY_link_dynamic_object 0
	248	#endif
	249	#ifndef MY_write_dynamic_symbol
	250	#define MY_write_dynamic_symbol 0
	251	#endif
	252	#ifndef MY_check_dynamic_reloc
	253	#define MY_check_dynamic_reloc 0
57a1867e	254	#endif
f5419a59 ILT	255	#ifndef MY_finish_dynamic_link
f5419a59 ILT	256	#define MY_finish_dynamic_link 0
57a1867e DM	257	#endif
57a1867e DM	258
294eaca4 SC	259	static CONST struct aout_backend_data MY(backend_data) = {
294eaca4 SC	260	0, /* zmagic contiguous */
f5419a59 ILT	261	MY_text_includes_header,
f5419a59 ILT	262	MY_exec_hdr_flags,
294eaca4 SC	263	0, /* text vma? */
294eaca4 SC	264	MY_set_sizes,
1f29e30b	265	0, /* exec header is counted */
f5419a59 ILT	266	MY_add_dynamic_symbols,
	267	MY_add_one_symbol,
	268	MY_link_dynamic_object,
	269	MY_write_dynamic_symbol,
	270	MY_check_dynamic_reloc,
	271	MY_finish_dynamic_link
294eaca4 SC	272	};
	273	#define MY_backend_data &MY(backend_data)
	274	#endif
	275
f5419a59	276	#ifndef MY_final_link_callback
4c3721d5	277
f5419a59	278	/* Callback for the final_link routine to set the section offsets. */
4c3721d5	279
f5419a59	280	static void MY_final_link_callback
4c3721d5 ILT	281	PARAMS ((bfd , file_ptr , file_ptr , file_ptr ));
	282
	283	static void
f5419a59	284	MY_final_link_callback (abfd, ptreloff, pdreloff, psymoff)
4c3721d5 ILT	285	bfd *abfd;
	286	file_ptr *ptreloff;
	287	file_ptr *pdreloff;
	288	file_ptr *psymoff;
	289	{
	290	struct internal_exec *execp = exec_hdr (abfd);
	291
	292	ptreloff = N_TRELOFF (execp);
	293	pdreloff = N_DRELOFF (execp);
	294	psymoff = N_SYMOFF (execp);
	295	}
	296
f5419a59 ILT	297	#endif
	298
	299	#ifndef MY_bfd_final_link
	300
	301	/* Final link routine. We need to use a call back to get the correct
	302	offsets in the output file. */
	303
4c3721d5 ILT	304	static boolean
	305	MY_bfd_final_link (abfd, info)
	306	bfd *abfd;
	307	struct bfd_link_info *info;
	308	{
f5419a59	309	return NAME(aout,final_link) (abfd, info, MY_final_link_callback);
4c3721d5 ILT	310	}
	311
	312	#endif
	313
e98e6ec1 SC	314	/* We assume BFD generic archive files. */
	315	#ifndef MY_openr_next_archived_file
	316	#define MY_openr_next_archived_file bfd_generic_openr_next_archived_file
	317	#endif
	318	#ifndef MY_generic_stat_arch_elt
	319	#define MY_generic_stat_arch_elt bfd_generic_stat_arch_elt
	320	#endif
	321	#ifndef MY_slurp_armap
	322	#define MY_slurp_armap bfd_slurp_bsd_armap
	323	#endif
	324	#ifndef MY_slurp_extended_name_table
582bc90a	325	#define MY_slurp_extended_name_table _bfd_slurp_extended_name_table
e98e6ec1 SC	326	#endif
	327	#ifndef MY_write_armap
	328	#define MY_write_armap bsd_write_armap
	329	#endif
	330	#ifndef MY_truncate_arname
	331	#define MY_truncate_arname bfd_bsd_truncate_arname
	332	#endif
	333
	334	/* No core file defined here -- configure in trad-core.c separately. */
	335	#ifndef MY_core_file_failing_command
6812b607	336	#define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
e98e6ec1 SC	337	#endif
e98e6ec1 SC	338	#ifndef MY_core_file_failing_signal
6812b607	339	#define MY_core_file_failing_signal _bfd_nocore_core_file_failing_signal
e98e6ec1 SC	340	#endif
	341	#ifndef MY_core_file_matches_executable_p
	342	#define MY_core_file_matches_executable_p \
6812b607	343	_bfd_nocore_core_file_matches_executable_p
e98e6ec1 SC	344	#endif
	345	#ifndef MY_core_file_p
	346	#define MY_core_file_p _bfd_dummy_target
	347	#endif
	348
	349	#ifndef MY_bfd_debug_info_start
	350	#define MY_bfd_debug_info_start bfd_void
	351	#endif
	352	#ifndef MY_bfd_debug_info_end
	353	#define MY_bfd_debug_info_end bfd_void
	354	#endif
	355	#ifndef MY_bfd_debug_info_accumulate
1f29e30b JG	356	#define MY_bfd_debug_info_accumulate \
1f29e30b JG	357	(void () PARAMS ((bfd, struct sec *))) bfd_void
e98e6ec1 SC	358	#endif
	359
	360	#ifndef MY_core_file_failing_command
	361	#define MY_core_file_failing_command NAME(aout,core_file_failing_command)
	362	#endif
	363	#ifndef MY_core_file_failing_signal
	364	#define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
	365	#endif
	366	#ifndef MY_core_file_matches_executable_p
	367	#define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
	368	#endif
e98e6ec1 SC	369	#ifndef MY_set_section_contents
	370	#define MY_set_section_contents NAME(aout,set_section_contents)
	371	#endif
	372	#ifndef MY_get_section_contents
	373	#define MY_get_section_contents NAME(aout,get_section_contents)
	374	#endif
	375	#ifndef MY_new_section_hook
	376	#define MY_new_section_hook NAME(aout,new_section_hook)
	377	#endif
	378	#ifndef MY_get_symtab_upper_bound
	379	#define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
	380	#endif
	381	#ifndef MY_get_symtab
	382	#define MY_get_symtab NAME(aout,get_symtab)
	383	#endif
	384	#ifndef MY_get_reloc_upper_bound
	385	#define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
	386	#endif
	387	#ifndef MY_canonicalize_reloc
	388	#define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
	389	#endif
	390	#ifndef MY_make_empty_symbol
	391	#define MY_make_empty_symbol NAME(aout,make_empty_symbol)
	392	#endif
	393	#ifndef MY_print_symbol
	394	#define MY_print_symbol NAME(aout,print_symbol)
	395	#endif
4c3721d5 ILT	396	#ifndef MY_get_symbol_info
	397	#define MY_get_symbol_info NAME(aout,get_symbol_info)
	398	#endif
e98e6ec1 SC	399	#ifndef MY_get_lineno
	400	#define MY_get_lineno NAME(aout,get_lineno)
	401	#endif
	402	#ifndef MY_set_arch_mach
	403	#define MY_set_arch_mach NAME(aout,set_arch_mach)
	404	#endif
e98e6ec1 SC	405	#ifndef MY_find_nearest_line
	406	#define MY_find_nearest_line NAME(aout,find_nearest_line)
	407	#endif
e98e6ec1 SC	408	#ifndef MY_sizeof_headers
	409	#define MY_sizeof_headers NAME(aout,sizeof_headers)
	410	#endif
4c3721d5 ILT	411	#ifndef MY_bfd_get_relocated_section_contents
	412	#define MY_bfd_get_relocated_section_contents \
	413	bfd_generic_get_relocated_section_contents
e98e6ec1	414	#endif
4c3721d5 ILT	415	#ifndef MY_bfd_relax_section
	416	#define MY_bfd_relax_section bfd_generic_relax_section
	417	#endif
	418	#ifndef MY_bfd_reloc_type_lookup
	419	#define MY_bfd_reloc_type_lookup NAME(aout,reloc_type_lookup)
e98e6ec1	420	#endif
4c3721d5 ILT	421	#ifndef MY_bfd_make_debug_symbol
4c3721d5 ILT	422	#define MY_bfd_make_debug_symbol 0
e98e6ec1	423	#endif
4c3721d5 ILT	424	#ifndef MY_bfd_link_hash_table_create
4c3721d5 ILT	425	#define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
582bc90a	426	#endif
4c3721d5 ILT	427	#ifndef MY_bfd_link_add_symbols
4c3721d5 ILT	428	#define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
582bc90a	429	#endif
294eaca4	430
9deaaaf1	431	#ifndef MY_bfd_copy_private_bfd_data
6812b607	432	#define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
9deaaaf1 ILT	433	#endif
	434
	435	#ifndef MY_bfd_is_local_label
	436	#define MY_bfd_is_local_label bfd_generic_is_local_label
	437	#endif
	438
	439	#ifndef MY_bfd_free_cached_info
5c8444f8 ILT	440	#define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
	441	#endif
	442
	443	#ifndef MY_close_and_cleanup
	444	#define MY_close_and_cleanup MY_bfd_free_cached_info
9deaaaf1 ILT	445	#endif
9deaaaf1 ILT	446
f5419a59 ILT	447	#ifndef MY_get_dynamic_symtab_upper_bound
	448	#define MY_get_dynamic_symtab_upper_bound \
	449	_bfd_nodynamic_get_dynamic_symtab_upper_bound
	450	#endif
	451	#ifndef MY_canonicalize_dynamic_symtab
	452	#define MY_canonicalize_dynamic_symtab \
	453	_bfd_nodynamic_canonicalize_dynamic_symtab
	454	#endif
	455	#ifndef MY_get_dynamic_reloc_upper_bound
	456	#define MY_get_dynamic_reloc_upper_bound \
	457	_bfd_nodynamic_get_dynamic_reloc_upper_bound
	458	#endif
	459	#ifndef MY_canonicalize_dynamic_reloc
	460	#define MY_canonicalize_dynamic_reloc \
	461	_bfd_nodynamic_canonicalize_dynamic_reloc
	462	#endif
	463
294eaca4 SC	464	/* Aout symbols normally have leading underscores */
	465	#ifndef MY_symbol_leading_char
	466	#define MY_symbol_leading_char '_'
582bc90a	467	#endif
e98e6ec1	468
4c3721d5 ILT	469	/* Aout archives normally use spaces for padding */
	470	#ifndef AR_PAD_CHAR
	471	#define AR_PAD_CHAR ' '
	472	#endif
	473
	474	#ifndef MY_BFD_TARGET
e98e6ec1 SC	475	bfd_target MY(vec) =
	476	{
	477	TARGETNAME, /* name */
	478	bfd_target_aout_flavour,
582bc90a PB	479	#ifdef TARGET_IS_BIG_ENDIAN_P
	480	true, /* target byte order (big) */
	481	true, /* target headers byte order (big) */
	482	#else
	483	false, /* target byte order (little) */
	484	false, /* target headers byte order (little) */
	485	#endif
e98e6ec1 SC	486	(HAS_RELOC \| EXEC_P \| /* object flags */
e98e6ec1 SC	487	HAS_LINENO \| HAS_DEBUG \|
57a1867e	488	HAS_SYMS \| HAS_LOCALS \| DYNAMIC \| WP_TEXT \| D_PAGED),
e98e6ec1	489	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
294eaca4	490	MY_symbol_leading_char,
4c3721d5	491	AR_PAD_CHAR, /* ar_pad_char */
582bc90a	492	15, /* ar_max_namelen */
4c3721d5	493	3, /* minimum alignment */
e98e6ec1	494	#ifdef TARGET_IS_BIG_ENDIAN_P
4c3721d5 ILT	495	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
	496	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
	497	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
	498	bfd_getb64, bfd_getb_signed_64, bfd_putb64,
	499	bfd_getb32, bfd_getb_signed_32, bfd_putb32,
	500	bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
e98e6ec1	501	#else
4c3721d5 ILT	502	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	503	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	504	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
	505	bfd_getl64, bfd_getl_signed_64, bfd_putl64,
	506	bfd_getl32, bfd_getl_signed_32, bfd_putl32,
	507	bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
e98e6ec1 SC	508	#endif
	509	{_bfd_dummy_target, MY_object_p, /* bfd_check_format */
	510	bfd_generic_archive_p, MY_core_file_p},
	511	{bfd_false, MY_mkobject, /* bfd_set_format */
	512	_bfd_generic_mkarchive, bfd_false},
	513	{bfd_false, MY_write_object_contents, /* bfd_write_contents */
	514	_bfd_write_archive_contents, bfd_false},
	515
6812b607 ILT	516	BFD_JUMP_TABLE_GENERIC (MY),
	517	BFD_JUMP_TABLE_COPY (MY),
	518	BFD_JUMP_TABLE_CORE (MY),
	519	BFD_JUMP_TABLE_ARCHIVE (MY),
	520	BFD_JUMP_TABLE_SYMBOLS (MY),
	521	BFD_JUMP_TABLE_RELOCS (MY),
	522	BFD_JUMP_TABLE_WRITE (MY),
	523	BFD_JUMP_TABLE_LINK (MY),
f5419a59	524	BFD_JUMP_TABLE_DYNAMIC (MY),
6812b607	525
582bc90a	526	(PTR) MY_backend_data,
e98e6ec1	527	};
4c3721d5	528	#endif /* MY_BFD_TARGET */