diff options
| -rw-r--r-- | bfd/host-aout.c | 270 | ||||
| -rw-r--r-- | bfd/hosts/tahoe.h | 30 | ||||
| -rw-r--r-- | bfd/hosts/vaxbsd.h | 30 |
3 files changed, 330 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) +}; diff --git a/bfd/hosts/tahoe.h b/bfd/hosts/tahoe.h new file mode 100644 index 0000000..b8f0788 --- /dev/null +++ b/bfd/hosts/tahoe.h @@ -0,0 +1,30 @@ +#include <fcntl.h> +#include <errno.h> +#include <stdio.h> +#include <sys/types.h> +#include <sys/stat.h> +#include <ctype.h> +#include <string.h> +#include <sys/file.h> +#ifndef O_ACCMODE +#define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) +#endif +#define SEEK_SET 0 +#define SEEK_CUR 1 + +/* EXACT TYPES */ +typedef char int8e_type; +typedef unsigned char uint8e_type; +typedef short int16e_type; +typedef unsigned short uint16e_type; +typedef int int32e_type; +typedef unsigned int uint32e_type; + +/* CORRECT SIZE OR GREATER */ +typedef char int8_type; +typedef unsigned char uint8_type; +typedef short int16_type; +typedef unsigned short uint16_type; +typedef int int32_type; +typedef unsigned int uint32_type; + diff --git a/bfd/hosts/vaxbsd.h b/bfd/hosts/vaxbsd.h new file mode 100644 index 0000000..330fac5 --- /dev/null +++ b/bfd/hosts/vaxbsd.h @@ -0,0 +1,30 @@ +#include <fcntl.h> +#include <errno.h> +#include <stdio.h> +#include <sys/types.h> +#include <sys/stat.h> +#include <ctype.h> +#include <string.h> +#include <sys/file.h> +#include <stdlib.h> + +#ifndef O_ACCMODE +#define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) +#endif + +/* EXACT TYPES */ +typedef char int8e_type; +typedef unsigned char uint8e_type; +typedef short int16e_type; +typedef unsigned short uint16e_type; +typedef int int32e_type; +typedef unsigned int uint32e_type; + +/* CORRECT SIZE OR GREATER */ +typedef char int8_type; +typedef unsigned char uint8_type; +typedef short int16_type; +typedef unsigned short uint16_type; +typedef int int32_type; +typedef unsigned int uint32_type; + |