aboutsummaryrefslogtreecommitdiff
path: root/bfd/host-aout.c
diff options
context:
space:
mode:
Diffstat (limited to 'bfd/host-aout.c')
-rw-r--r--bfd/host-aout.c270
1 files changed, 270 insertions, 0 deletions
diff --git a/bfd/host-aout.c b/bfd/host-aout.c
new file mode 100644
index 0000000..aaf9e6f
--- /dev/null
+++ b/bfd/host-aout.c
@@ -0,0 +1,270 @@
+/* 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;
+}
+
+/* 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)
+};