[deliverable/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 need to 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
aa91350c ILT	171	we need to know whether this is a QMAGIC file before we set the
	172	section contents, and copy_private_bfd_data is not called until
	173	after the section contents have been set. */
f5419a59 ILT	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 */