[deliverable/binutils-gdb.git] / bfd / host-aout.c

/* BFD backend for local host's a.out binaries */

/* Copyright (C) 1990, 1991 Free Software Foundation, Inc.

This file is part of BFD, the Binary File Diddler.

BFD 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 1, or (at your option)
any later version.

BFD 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 BFD; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */

#include <ansidecl.h>
#include <sysdep.h>
#include "bfd.h"
#include "libbfd.h"

#include <a.out.h>
#include "liba.out.h"           /* BFD a.out internal data structures */

#include "trad-core.h"		/* Traditional Unix core files */

void (*bfd_error_trap)();

static bfd_target *host_aout_callback ();

/*SUPPRESS558*/
/*SUPPRESS529*/

bfd_target *
host_aout_object_p (abfd)
     bfd *abfd;
{
  unsigned char magicbuf[4];	/* Raw bytes of magic number from file */
  unsigned long magic;		/* Swapped magic number */

  bfd_error = system_call_error;

  if (bfd_read ((PTR)magicbuf, 1, sizeof (magicbuf), abfd) !=
      sizeof (magicbuf))
    return 0;
  magic = bfd_h_getlong (abfd, magicbuf);

  if (N_BADMAG (*((struct exec *) &magic))) return 0;

  return some_aout_object_p (abfd, host_aout_callback);
}

/* Set parameters about this a.out file that are machine-dependent.
   This routine is called from some_aout_object_p just before it returns.  */

static bfd_target *
host_aout_callback (abfd)
     bfd *abfd;
{
  struct exec *execp = exec_hdr (abfd);

  /* The virtual memory addresses of the sections */
  obj_datasec (abfd)->vma = N_DATADDR(*execp);
  obj_bsssec (abfd)->vma = N_BSSADDR(*execp);
  obj_textsec (abfd)->vma = N_TXTADDR(*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_str_filepos (abfd) = N_STROFF (*execp);
  obj_sym_filepos (abfd) = N_SYMOFF (*execp);

#ifdef HOST_MACHINE_ARCH
  abfd->obj_arch = HOST_MACHINE_ARCH;
#endif
#ifdef HOST_MACHINE_MACHINE
  abfd->obj_machine = HOST_MACHINE_MACHINE;
#endif

  return abfd->xvec;
}


boolean
host_aout_mkobject (abfd)
     bfd *abfd;
{
  char *rawptr;

  bfd_error = system_call_error;

  /* Use an intermediate variable for clarity */
  rawptr = bfd_zalloc (abfd, sizeof (struct aoutdata) + sizeof (struct exec));

  if (rawptr == NULL) {
    bfd_error = no_memory;
    return false;
  }

  set_tdata (abfd, (struct aoutdata *) rawptr);
  exec_hdr (abfd) = (struct exec *) (rawptr + sizeof (struct aoutdata));

  /* For simplicity's sake we just make all the sections right here. */

  obj_textsec (abfd) = (asection *)NULL;
  obj_datasec (abfd) = (asection *)NULL;
  obj_bsssec (abfd) = (asection *)NULL;
  bfd_make_section (abfd, ".text");
  bfd_make_section (abfd, ".data");
  bfd_make_section (abfd, ".bss");

  return true;
}

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

boolean
host_aout_write_object_contents (abfd)
     bfd *abfd;
{
/* This works because we are on the host system */
#define	EXEC_BYTES_SIZE	sizeof (struct exec)
  size_t data_pad = 0;
  unsigned char exec_bytes[EXEC_BYTES_SIZE];
  struct exec *execp = exec_hdr (abfd);

  execp->a_text = obj_textsec (abfd)->size;


  N_SET_MAGIC (*execp, OMAGIC);
  if (abfd->flags & D_PAGED) {
    /* This is not strictly true, but will probably do for the default
	case.  FIXME.  
	*/

    execp->a_text = obj_textsec (abfd)->size + EXEC_BYTES_SIZE;
    N_SET_MAGIC (*execp, ZMAGIC);
  } else if (abfd->flags & WP_TEXT) {
    N_SET_MAGIC (*execp, NMAGIC);
  }
  N_SET_FLAGS (*execp, 0x1);	/* copied from ld.c; who the hell knows? */

  if (abfd->flags & D_PAGED) 
      {
	data_pad = ((obj_datasec(abfd)->size + PAGE_SIZE -1)
		    & (- PAGE_SIZE)) - obj_datasec(abfd)->size;

	if (data_pad > obj_bsssec(abfd)->size)
	  execp->a_bss = 0;
	else 
	  execp->a_bss = obj_bsssec(abfd)->size - data_pad;
	execp->a_data = obj_datasec(abfd)->size + data_pad;

      }
  else {
    execp->a_data = obj_datasec (abfd)->size;
    execp->a_bss = obj_bsssec (abfd)->size;
  }

  execp->a_syms = bfd_get_symcount (abfd) * sizeof (struct nlist);
  execp->a_entry = bfd_get_start_address (abfd);

  execp->a_trsize = ((obj_textsec (abfd)->reloc_count) *
		     obj_reloc_entry_size (abfd));
		       
  execp->a_drsize = ((obj_datasec (abfd)->reloc_count) *
		     obj_reloc_entry_size (abfd));

  bfd_aout_swap_exec_header_out (abfd, execp, exec_bytes);

  bfd_seek (abfd, 0L, false);
  bfd_write ((PTR) exec_bytes, 1, EXEC_BYTES_SIZE, abfd);

  /* Now write out reloc info, followed by syms and strings */

  if (bfd_get_symcount (abfd) != 0) 
    {
      bfd_seek (abfd,
		(long)(N_SYMOFF(*execp)), false);

      aout_write_syms (abfd);

      bfd_seek (abfd,	(long)(N_TRELOFF(*execp)), false);

      if (!aout_squirt_out_relocs (abfd, obj_textsec (abfd))) return false;
      bfd_seek (abfd, (long)(N_DRELOFF(*execp)), false);

      if (!aout_squirt_out_relocs (abfd, obj_datasec (abfd))) return false;
    }
  return true;
}
\f
/* We use BFD generic archive files.  */
#define	aout_openr_next_archived_file	bfd_generic_openr_next_archived_file
#define	aout_generic_stat_arch_elt	bfd_generic_stat_arch_elt
#define	aout_slurp_armap		bfd_slurp_bsd_armap
#define	aout_slurp_extended_name_table	bfd_true
#define	aout_write_armap		bsd_write_armap
#define	aout_truncate_arname		bfd_bsd_truncate_arname

/* We use traditional Unix core file format.  */
#define	aout_core_file_failing_command	trad_unix_core_file_failing_command
#define	aout_core_file_failing_signal	trad_unix_core_file_failing_signal
#define	aout_core_file_matches_executable_p	\
					trad_unix_core_file_matches_executable_p

/* We replace this function */
#define	aout_write_object_contents	host_aout_write_object_contents

bfd_target host_aout_big_vec =
{
  "a.out-host-big",		/* name */
  bfd_target_aout_flavour_enum,
  true,				/* target byte order */
  true,				/* target headers byte order */
  (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 */
  ' ',				/* ar_pad_char */
  16,				/* ar_max_namelen */
  _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* data */
  _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */

    {_bfd_dummy_target, host_aout_object_p,
       bfd_generic_archive_p, trad_unix_core_file_p},
    {bfd_false, host_aout_mkobject,
       _bfd_generic_mkarchive, bfd_false},
    {bfd_false, aout_write_object_contents,	/* bfd_write_contents */
       _bfd_write_archive_contents, bfd_false},

  JUMP_TABLE(aout)
};

bfd_target host_aout_little_vec =
{
  "a.out-host-little",		/* name */
  bfd_target_aout_flavour_enum,
  false,			/* target byte order */
  false,			/* target headers byte order */
  (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 */
  ' ',				/* ar_pad_char */
  16,				/* ar_max_namelen */
  _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* data */
  _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* hdrs */

    {_bfd_dummy_target, host_aout_object_p,
       bfd_generic_archive_p, trad_unix_core_file_p},
    {bfd_false, host_aout_mkobject,
       _bfd_generic_mkarchive, bfd_false},
    {bfd_false, aout_write_object_contents,	/* bfd_write_contents */
       _bfd_write_archive_contents, bfd_false},

  JUMP_TABLE(aout)
};
Commit	Line	Data
c4cd3fc6 JG	1	/* BFD backend for local host's a.out binaries */
	2
	3	/* Copyright (C) 1990, 1991 Free Software Foundation, Inc.
	4
	5	This file is part of BFD, the Binary File Diddler.
	6
	7	BFD is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
	9	the Free Software Foundation; either version 1, or (at your option)
	10	any later version.
	11
	12	BFD is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
	16
	17	You should have received a copy of the GNU General Public License
	18	along with BFD; see the file COPYING. If not, write to
	19	the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
	20
	21	#include <ansidecl.h>
7ed4093a	22	#include <sysdep.h>
c4cd3fc6 JG	23	#include "bfd.h"
	24	#include "libbfd.h"
	25
	26	#include <a.out.h>
	27	#include "liba.out.h" /* BFD a.out internal data structures */
	28
	29	#include "trad-core.h" /* Traditional Unix core files */
	30
	31	void (*bfd_error_trap)();
	32
	33	static bfd_target *host_aout_callback ();
	34
	35	/SUPPRESS558/
	36	/SUPPRESS529/
	37
	38	bfd_target *
	39	host_aout_object_p (abfd)
	40	bfd *abfd;
	41	{
	42	unsigned char magicbuf[4]; /* Raw bytes of magic number from file */
	43	unsigned long magic; /* Swapped magic number */
	44
	45	bfd_error = system_call_error;
	46
	47	if (bfd_read ((PTR)magicbuf, 1, sizeof (magicbuf), abfd) !=
	48	sizeof (magicbuf))
	49	return 0;
	50	magic = bfd_h_getlong (abfd, magicbuf);
	51
	52	if (N_BADMAG (((struct exec ) &magic))) return 0;
	53
	54	return some_aout_object_p (abfd, host_aout_callback);
	55	}
	56
	57	/* Set parameters about this a.out file that are machine-dependent.
	58	This routine is called from some_aout_object_p just before it returns. */
	59
	60	static bfd_target *
	61	host_aout_callback (abfd)
	62	bfd *abfd;
	63	{
	64	struct exec *execp = exec_hdr (abfd);
	65
	66	/* The virtual memory addresses of the sections */
	67	obj_datasec (abfd)->vma = N_DATADDR(*execp);
	68	obj_bsssec (abfd)->vma = N_BSSADDR(*execp);
	69	obj_textsec (abfd)->vma = N_TXTADDR(*execp);
	70
	71	/* The file offsets of the sections */
	72	obj_textsec (abfd)->filepos = N_TXTOFF(*execp);
	73	obj_datasec (abfd)->filepos = N_DATOFF(*execp);
	74
	75	/* The file offsets of the relocation info */
	76	obj_textsec (abfd)->rel_filepos = N_TRELOFF(*execp);
	77	obj_datasec (abfd)->rel_filepos = N_DRELOFF(*execp);
	78
	79	/* The file offsets of the string table and symbol table. */
	80	obj_str_filepos (abfd) = N_STROFF (*execp);
	81	obj_sym_filepos (abfd) = N_SYMOFF (*execp);
	82
	83	#ifdef HOST_MACHINE_ARCH
	84	abfd->obj_arch = HOST_MACHINE_ARCH;
	85	#endif
	86	#ifdef HOST_MACHINE_MACHINE
87	abfd->obj_machine = HOST_MACHINE_MACHINE;
88	#endif
89
90	return abfd->xvec;
91	}
92
93
94	boolean
95	host_aout_mkobject (abfd)
96	bfd *abfd;
97	{
98	char *rawptr;
99
100	bfd_error = system_call_error;
101
102	/* Use an intermediate variable for clarity */
103	rawptr = bfd_zalloc (abfd, sizeof (struct aoutdata) + sizeof (struct exec));
104
105	if (rawptr == NULL) {
106	bfd_error = no_memory;
107	return false;
108	}
109
110	set_tdata (abfd, (struct aoutdata *) rawptr);
111	exec_hdr (abfd) = (struct exec *) (rawptr + sizeof (struct aoutdata));
112
113	/* For simplicity's sake we just make all the sections right here. */
114
115	obj_textsec (abfd) = (asection *)NULL;
116	obj_datasec (abfd) = (asection *)NULL;
117	obj_bsssec (abfd) = (asection *)NULL;
118	bfd_make_section (abfd, ".text");
119	bfd_make_section (abfd, ".data");
120	bfd_make_section (abfd, ".bss");
121
122	return true;
123	}
124
125	/* Write an object file in host a.out format.
126	Section contents have already been written. We write the
127	file header, symbols, and relocation. */
128
129	boolean
130	host_aout_write_object_contents (abfd)
131	bfd *abfd;
132	{
133	/* This works because we are on the host system */
134	#define EXEC_BYTES_SIZE sizeof (struct exec)
135	size_t data_pad = 0;
136	unsigned char exec_bytes[EXEC_BYTES_SIZE];
137	struct exec *execp = exec_hdr (abfd);
138
139	execp->a_text = obj_textsec (abfd)->size;
140
141
142	N_SET_MAGIC (*execp, OMAGIC);
143	if (abfd->flags & D_PAGED) {
144	/* This is not strictly true, but will probably do for the default
145	case. FIXME.
146	*/
147
148	execp->a_text = obj_textsec (abfd)->size + EXEC_BYTES_SIZE;
149	N_SET_MAGIC (*execp, ZMAGIC);
150	} else if (abfd->flags & WP_TEXT) {
151	N_SET_MAGIC (*execp, NMAGIC);
152	}
153	N_SET_FLAGS (execp, 0x1); / copied from ld.c; who the hell knows? */
154
155	if (abfd->flags & D_PAGED)
156	{
157	data_pad = ((obj_datasec(abfd)->size + PAGE_SIZE -1)
158	& (- PAGE_SIZE)) - obj_datasec(abfd)->size;
159
160	if (data_pad > obj_bsssec(abfd)->size)
161	execp->a_bss = 0;
162	else
163	execp->a_bss = obj_bsssec(abfd)->size - data_pad;
164	execp->a_data = obj_datasec(abfd)->size + data_pad;
165
166	}
167	else {
168	execp->a_data = obj_datasec (abfd)->size;
169	execp->a_bss = obj_bsssec (abfd)->size;
170	}
171
172	execp->a_syms = bfd_get_symcount (abfd) * sizeof (struct nlist);
173	execp->a_entry = bfd_get_start_address (abfd);
174
175	execp->a_trsize = ((obj_textsec (abfd)->reloc_count) *
176	obj_reloc_entry_size (abfd));
177
178	execp->a_drsize = ((obj_datasec (abfd)->reloc_count) *
179	obj_reloc_entry_size (abfd));
180
181	bfd_aout_swap_exec_header_out (abfd, execp, exec_bytes);
182
183	bfd_seek (abfd, 0L, false);
184	bfd_write ((PTR) exec_bytes, 1, EXEC_BYTES_SIZE, abfd);
185
186	/* Now write out reloc info, followed by syms and strings */
187
188	if (bfd_get_symcount (abfd) != 0)
189	{
190	bfd_seek (abfd,
191	(long)(N_SYMOFF(*execp)), false);
192
193	aout_write_syms (abfd);
194
195	bfd_seek (abfd, (long)(N_TRELOFF(*execp)), false);
196
197	if (!aout_squirt_out_relocs (abfd, obj_textsec (abfd))) return false;
198	bfd_seek (abfd, (long)(N_DRELOFF(*execp)), false);
199
200	if (!aout_squirt_out_relocs (abfd, obj_datasec (abfd))) return false;
201	}
202	return true;
203	}
204	\f
205	/* We use BFD generic archive files. */
206	#define aout_openr_next_archived_file bfd_generic_openr_next_archived_file
207	#define aout_generic_stat_arch_elt bfd_generic_stat_arch_elt
208	#define aout_slurp_armap bfd_slurp_bsd_armap
209	#define aout_slurp_extended_name_table bfd_true
210	#define aout_write_armap bsd_write_armap
211	#define aout_truncate_arname bfd_bsd_truncate_arname
212
213	/* We use traditional Unix core file format. */
214	#define aout_core_file_failing_command trad_unix_core_file_failing_command
215	#define aout_core_file_failing_signal trad_unix_core_file_failing_signal
216	#define aout_core_file_matches_executable_p \
217	trad_unix_core_file_matches_executable_p
218
219	/* We replace this function */
220	#define aout_write_object_contents host_aout_write_object_contents
221
222	bfd_target host_aout_big_vec =
223	{
224	"a.out-host-big", /* name */
225	bfd_target_aout_flavour_enum,
226	true, /* target byte order */
227	true, /* target headers byte order */
228	(HAS_RELOC \| EXEC_P \| /* object flags */
229	HAS_LINENO \| HAS_DEBUG \|
230	HAS_SYMS \| HAS_LOCALS \| DYNAMIC \| WP_TEXT \| D_PAGED),
231	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
232	' ', /* ar_pad_char */
233	16, /* ar_max_namelen */
234	_do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* data */
235	_do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */
236
237	{_bfd_dummy_target, host_aout_object_p,
238	bfd_generic_archive_p, trad_unix_core_file_p},
239	{bfd_false, host_aout_mkobject,
240	_bfd_generic_mkarchive, bfd_false},
241	{bfd_false, aout_write_object_contents, /* bfd_write_contents */
242	_bfd_write_archive_contents, bfd_false},
243
244	JUMP_TABLE(aout)
245	};
246
247	bfd_target host_aout_little_vec =
248	{
249	"a.out-host-little", /* name */
250	bfd_target_aout_flavour_enum,
251	false, /* target byte order */
252	false, /* target headers byte order */
253	(HAS_RELOC \| EXEC_P \| /* object flags */
254	HAS_LINENO \| HAS_DEBUG \|
255	HAS_SYMS \| HAS_LOCALS \| DYNAMIC \| WP_TEXT \| D_PAGED),
256	(SEC_HAS_CONTENTS \| SEC_ALLOC \| SEC_LOAD \| SEC_RELOC), /* section flags */
257	' ', /* ar_pad_char */
258	16, /* ar_max_namelen */
259	_do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* data */
260	_do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* hdrs */
261
262	{_bfd_dummy_target, host_aout_object_p,
263	bfd_generic_archive_p, trad_unix_core_file_p},
264	{bfd_false, host_aout_mkobject,
265	_bfd_generic_mkarchive, bfd_false},
266	{bfd_false, aout_write_object_contents, /* bfd_write_contents */
267	_bfd_write_archive_contents, bfd_false},
268
269	JUMP_TABLE(aout)
270	};