[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 const bfd_target *
MY(callback) (abfd)
     bfd *abfd;
{
  struct internal_exec *execp = exec_hdr (abfd);
  unsigned int arch_align_power;
  unsigned long arch_align;

  /* 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.  However, for backward compatibility, we don't
     set the alignment power any higher than as required by the size
     of the section.  */
  arch_align_power = bfd_get_arch_info (abfd)->section_align_power;
  arch_align = 1 << arch_align_power;
  if ((BFD_ALIGN (obj_textsec (abfd)->_raw_size, arch_align)
       == obj_textsec (abfd)->_raw_size)
      && (BFD_ALIGN (obj_datasec (abfd)->_raw_size, arch_align)
	  == obj_datasec (abfd)->_raw_size)
      && (BFD_ALIGN (obj_bsssec (abfd)->_raw_size, arch_align)
	  == obj_bsssec (abfd)->_raw_size))
    {
      obj_textsec (abfd)->alignment_power = arch_align_power;
      obj_datasec (abfd)->alignment_power = arch_align_power;
      obj_bsssec (abfd)->alignment_power = arch_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 const 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 */
  const 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);

#ifdef SWAP_MAGIC
  /* swap_exec_header_in read in a_info with the wrong byte order */
  exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
#endif /* SWAP_MAGIC */

  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

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