582bc90a63
the default. Given that we *write* the suckers (for long archive member names), we really ought to be able to read them! * trad-core.c: Don't include <machine/reg.h>. It doesn't seem to be needed, and many machines don't have it.
362 lines
11 KiB
C
362 lines
11 KiB
C
/* Define a target vector and some small routines for a variant of a.out.
|
|
Copyright (C) 1990-1991 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"*/
|
|
|
|
/* 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 *
|
|
DEFUN(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
|
|
|
|
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 abfd->xvec;
|
|
}
|
|
|
|
#ifndef MY_object_p
|
|
/* Finish up the reading of an a.out file header */
|
|
|
|
static bfd_target *
|
|
DEFUN(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) {
|
|
bfd_error = wrong_format;
|
|
return 0;
|
|
}
|
|
|
|
exec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info);
|
|
|
|
if (N_BADMAG (exec)) return 0;
|
|
|
|
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
|
|
DEFUN(MY(mkobject),(abfd),
|
|
bfd *abfd)
|
|
{
|
|
if (NAME(aout,mkobject)(abfd) == false)
|
|
return false;
|
|
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_mkobject MY(mkobject)
|
|
#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
|
|
DEFUN(MY(write_object_contents),(abfd),
|
|
bfd *abfd)
|
|
{
|
|
bfd_size_type data_pad = 0;
|
|
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
|
|
|
|
/* 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_dummy_core_file_failing_command
|
|
#endif
|
|
#ifndef MY_core_file_failing_signal
|
|
#define MY_core_file_failing_signal _bfd_dummy_core_file_failing_signal
|
|
#endif
|
|
#ifndef MY_core_file_matches_executable_p
|
|
#define MY_core_file_matches_executable_p \
|
|
_bfd_dummy_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 (PROTO(void,(*),(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_slurp_armap
|
|
#define MY_slurp_armap NAME(aout,slurp_armap)
|
|
#endif
|
|
#ifndef MY_slurp_extended_name_table
|
|
#define MY_slurp_extended_name_table NAME(aout,slurp_extended_name_table)
|
|
#endif
|
|
#ifndef MY_truncate_arname
|
|
#define MY_truncate_arname NAME(aout,truncate_arname)
|
|
#endif
|
|
#ifndef MY_write_armap
|
|
#define MY_write_armap NAME(aout,write_armap)
|
|
#endif
|
|
#ifndef MY_close_and_cleanup
|
|
#define MY_close_and_cleanup NAME(aout,close_and_cleanup)
|
|
#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_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_openr_next_archived_file
|
|
#define MY_openr_next_archived_file NAME(aout,openr_next_archived_file)
|
|
#endif
|
|
#ifndef MY_find_nearest_line
|
|
#define MY_find_nearest_line NAME(aout,find_nearest_line)
|
|
#endif
|
|
#ifndef MY_generic_stat_arch_elt
|
|
#define MY_generic_stat_arch_elt NAME(aout,generic_stat_arch_elt)
|
|
#endif
|
|
#ifndef MY_sizeof_headers
|
|
#define MY_sizeof_headers NAME(aout,sizeof_headers)
|
|
#endif
|
|
#ifndef MY_bfd_debug_info_start
|
|
#define MY_bfd_debug_info_start NAME(aout,bfd_debug_info_start)
|
|
#endif
|
|
#ifndef MY_bfd_debug_info_end
|
|
#define MY_bfd_debug_info_end NAME(aout,bfd_debug_info_end)
|
|
#endif
|
|
#ifndef MY_bfd_debug_info_accumulat
|
|
#define MY_bfd_debug_info_accumulat NAME(aout,bfd_debug_info_accumulat)
|
|
#endif
|
|
#ifndef MY_reloc_howto_type_lookup
|
|
#define MY_reloc_howto_type_lookup 0
|
|
#endif
|
|
#ifndef MY_make_debug_symbol
|
|
#define MY_make_debug_symbol 0
|
|
#endif
|
|
#ifndef MY_backend_data
|
|
#define MY_backend_data (PTR) 0
|
|
#endif
|
|
|
|
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 */
|
|
' ', /* ar_pad_char */
|
|
15, /* ar_max_namelen */
|
|
1, /* minimum alignment */
|
|
#ifdef TARGET_IS_BIG_ENDIAN_P
|
|
_do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* data */
|
|
_do_getb64, _do_putb64, _do_getb32, _do_putb32, _do_getb16, _do_putb16, /* hdrs */
|
|
#else
|
|
_do_getl64, _do_putl64, _do_getl32, _do_putl32, _do_getl16, _do_putl16, /* data */
|
|
_do_getl64, _do_putl64, _do_getl32, _do_putl32, _do_getl16, _do_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},
|
|
|
|
MY_core_file_failing_command,
|
|
MY_core_file_failing_signal,
|
|
MY_core_file_matches_executable_p,
|
|
MY_slurp_armap,
|
|
MY_slurp_extended_name_table,
|
|
MY_truncate_arname,
|
|
MY_write_armap,
|
|
MY_close_and_cleanup,
|
|
MY_set_section_contents,
|
|
MY_get_section_contents,
|
|
MY_new_section_hook,
|
|
MY_get_symtab_upper_bound,
|
|
MY_get_symtab,
|
|
MY_get_reloc_upper_bound,
|
|
MY_canonicalize_reloc,
|
|
MY_make_empty_symbol,
|
|
MY_print_symbol,
|
|
MY_get_lineno,
|
|
MY_set_arch_mach,
|
|
MY_openr_next_archived_file,
|
|
MY_find_nearest_line,
|
|
MY_generic_stat_arch_elt,
|
|
MY_sizeof_headers,
|
|
MY_bfd_debug_info_start,
|
|
MY_bfd_debug_info_end,
|
|
MY_bfd_debug_info_accumulate,
|
|
bfd_generic_get_relocated_section_contents,
|
|
bfd_generic_relax_section,
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* COFF stuff?! */
|
|
MY_reloc_howto_type_lookup,
|
|
MY_make_debug_symbol,
|
|
(PTR) MY_backend_data,
|
|
};
|