657 lines
16 KiB
C
657 lines
16 KiB
C
/* Generic BFD library interface and support routines.
|
||
Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
|
||
Written by Cygnus Support.
|
||
|
||
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. */
|
||
|
||
/*
|
||
SECTION
|
||
<<typedef bfd>>
|
||
|
||
A BFD is has type <<bfd>>; objects of this type are the
|
||
cornerstone of any application using <<libbfd>>. References
|
||
though the BFD and to data in the BFD give the entire BFD
|
||
functionality.
|
||
|
||
Here is the struct used to define the type <<bfd>>. This
|
||
contains the major data about the file, and contains pointers
|
||
to the rest of the data.
|
||
|
||
CODE_FRAGMENT
|
||
.
|
||
.struct _bfd
|
||
.{
|
||
. {* The filename the application opened the BFD with. *}
|
||
. CONST char *filename;
|
||
.
|
||
. {* A pointer to the target jump table. *}
|
||
. struct bfd_target *xvec;
|
||
.
|
||
. {* To avoid dragging too many header files into every file that
|
||
. includes `<<bfd.h>>', IOSTREAM has been declared as a "char
|
||
. *", and MTIME as a "long". Their correct types, to which they
|
||
. are cast when used, are "FILE *" and "time_t". The iostream
|
||
. is the result of an fopen on the filename. *}
|
||
. char *iostream;
|
||
.
|
||
. {* Is the file being cached *}
|
||
.
|
||
. boolean cacheable;
|
||
.
|
||
. {* Marks whether there was a default target specified when the
|
||
. BFD was opened. This is used to select what matching algorithm
|
||
. to use to chose the back end. *}
|
||
.
|
||
. boolean target_defaulted;
|
||
.
|
||
. {* The caching routines use these to maintain a
|
||
. least-recently-used list of BFDs *}
|
||
.
|
||
. struct _bfd *lru_prev, *lru_next;
|
||
.
|
||
. {* When a file is closed by the caching routines, BFD retains
|
||
. state information on the file here:
|
||
. *}
|
||
.
|
||
. file_ptr where;
|
||
.
|
||
. {* and here:*}
|
||
.
|
||
. boolean opened_once;
|
||
.
|
||
. {* Set if we have a locally maintained mtime value, rather than
|
||
. getting it from the file each time: *}
|
||
.
|
||
. boolean mtime_set;
|
||
.
|
||
. {* File modified time, if mtime_set is true: *}
|
||
.
|
||
. long mtime;
|
||
.
|
||
. {* Reserved for an unimplemented file locking extension.*}
|
||
.
|
||
. int ifd;
|
||
.
|
||
. {* The format which belongs to the BFD.*}
|
||
.
|
||
. bfd_format format;
|
||
.
|
||
. {* The direction the BFD was opened with*}
|
||
.
|
||
. enum bfd_direction {no_direction = 0,
|
||
. read_direction = 1,
|
||
. write_direction = 2,
|
||
. both_direction = 3} direction;
|
||
.
|
||
. {* Format_specific flags*}
|
||
.
|
||
. flagword flags;
|
||
.
|
||
. {* Currently my_archive is tested before adding origin to
|
||
. anything. I believe that this can become always an add of
|
||
. origin, with origin set to 0 for non archive files. *}
|
||
.
|
||
. file_ptr origin;
|
||
.
|
||
. {* Remember when output has begun, to stop strange things
|
||
. happening. *}
|
||
. boolean output_has_begun;
|
||
.
|
||
. {* Pointer to linked list of sections*}
|
||
. struct sec *sections;
|
||
.
|
||
. {* The number of sections *}
|
||
. unsigned int section_count;
|
||
.
|
||
. {* Stuff only useful for object files:
|
||
. The start address. *}
|
||
. bfd_vma start_address;
|
||
.
|
||
. {* Used for input and output*}
|
||
. unsigned int symcount;
|
||
.
|
||
. {* Symbol table for output BFD*}
|
||
. struct symbol_cache_entry **outsymbols;
|
||
.
|
||
. {* Pointer to structure which contains architecture information*}
|
||
. struct bfd_arch_info *arch_info;
|
||
.
|
||
. {* Stuff only useful for archives:*}
|
||
. PTR arelt_data;
|
||
. struct _bfd *my_archive;
|
||
. struct _bfd *next;
|
||
. struct _bfd *archive_head;
|
||
. boolean has_armap;
|
||
.
|
||
. {* Used by the back end to hold private data. *}
|
||
.
|
||
. union
|
||
. {
|
||
. struct aout_data_struct *aout_data;
|
||
. struct artdata *aout_ar_data;
|
||
. struct _oasys_data *oasys_obj_data;
|
||
. struct _oasys_ar_data *oasys_ar_data;
|
||
. struct coff_tdata *coff_obj_data;
|
||
. struct ecoff_tdata *ecoff_obj_data;
|
||
. struct ieee_data_struct *ieee_data;
|
||
. struct ieee_ar_data_struct *ieee_ar_data;
|
||
. struct srec_data_struct *srec_data;
|
||
. struct tekhex_data_struct *tekhex_data;
|
||
. struct elf_obj_tdata *elf_obj_data;
|
||
. struct bout_data_struct *bout_data;
|
||
. struct sun_core_struct *sun_core_data;
|
||
. struct trad_core_struct *trad_core_data;
|
||
. struct hppa_data_struct *hppa_data;
|
||
. struct hppa_core_struct *hppa_core_data;
|
||
. struct sgi_core_struct *sgi_core_data;
|
||
. PTR any;
|
||
. } tdata;
|
||
.
|
||
. {* Used by the application to hold private data*}
|
||
. PTR usrdata;
|
||
.
|
||
. {* Where all the allocated stuff under this BFD goes *}
|
||
. struct obstack memory;
|
||
.
|
||
. {* Is this really needed in addition to usrdata? *}
|
||
. asymbol **ld_symbols;
|
||
.};
|
||
.
|
||
*/
|
||
|
||
#include "bfd.h"
|
||
#include "sysdep.h"
|
||
#include "libbfd.h"
|
||
#include "coff/sym.h"
|
||
#include "libecoff.h"
|
||
|
||
#undef strerror
|
||
extern char *strerror();
|
||
|
||
|
||
CONST short _bfd_host_big_endian = 0x0100;
|
||
/* Accessing the above as (*(char*)&_bfd_host_big_endian), will
|
||
return 1 if the host is big-endian, 0 otherwise.
|
||
(assuming that a short is two bytes long!!! FIXME)
|
||
(See HOST_IS_BIG_ENDIAN_P in bfd.h.) */
|
||
|
||
/** Error handling
|
||
o - Most functions return nonzero on success (check doc for
|
||
precise semantics); 0 or NULL on error.
|
||
o - Internal errors are documented by the value of bfd_error.
|
||
If that is system_call_error then check errno.
|
||
o - The easiest way to report this to the user is to use bfd_perror.
|
||
*/
|
||
|
||
bfd_ec bfd_error = no_error;
|
||
|
||
CONST char *CONST bfd_errmsgs[] = {
|
||
"No error",
|
||
"System call error",
|
||
"Invalid target",
|
||
"File in wrong format",
|
||
"Invalid operation",
|
||
"Memory exhausted",
|
||
"No symbols",
|
||
"No relocation info",
|
||
"No more archived files",
|
||
"Malformed archive",
|
||
"Symbol not found",
|
||
"File format not recognized",
|
||
"File format is ambiguous",
|
||
"Section has no contents",
|
||
"Nonrepresentable section on output",
|
||
"Symbol needs debug section which does not exist",
|
||
"Bad value",
|
||
"File truncated",
|
||
"#<Invalid error code>"
|
||
};
|
||
|
||
static
|
||
void
|
||
DEFUN(bfd_nonrepresentable_section,(abfd, name),
|
||
CONST bfd * CONST abfd AND
|
||
CONST char * CONST name)
|
||
{
|
||
printf("bfd error writing file %s, format %s can't represent section %s\n",
|
||
abfd->filename,
|
||
abfd->xvec->name,
|
||
name);
|
||
exit(1);
|
||
}
|
||
|
||
/*ARGSUSED*/
|
||
static
|
||
void
|
||
DEFUN(bfd_undefined_symbol,(relent, seclet),
|
||
CONST arelent *relent AND
|
||
CONST struct bfd_seclet *seclet)
|
||
{
|
||
asymbol *symbol = *(relent->sym_ptr_ptr);
|
||
printf("bfd error relocating, symbol %s is undefined\n",
|
||
symbol->name);
|
||
exit(1);
|
||
}
|
||
/*ARGSUSED*/
|
||
static
|
||
void
|
||
DEFUN(bfd_reloc_value_truncated,(relent, seclet),
|
||
CONST arelent *relent AND
|
||
struct bfd_seclet *seclet)
|
||
{
|
||
printf("bfd error relocating, value truncated\n");
|
||
exit(1);
|
||
}
|
||
/*ARGSUSED*/
|
||
static
|
||
void
|
||
DEFUN(bfd_reloc_is_dangerous,(relent, seclet),
|
||
CONST arelent *relent AND
|
||
CONST struct bfd_seclet *seclet)
|
||
{
|
||
printf("bfd error relocating, dangerous\n");
|
||
exit(1);
|
||
}
|
||
|
||
bfd_error_vector_type bfd_error_vector =
|
||
{
|
||
bfd_nonrepresentable_section ,
|
||
bfd_undefined_symbol,
|
||
bfd_reloc_value_truncated,
|
||
bfd_reloc_is_dangerous,
|
||
};
|
||
|
||
|
||
CONST char *
|
||
bfd_errmsg (error_tag)
|
||
bfd_ec error_tag;
|
||
{
|
||
#ifndef errno
|
||
extern int errno;
|
||
#endif
|
||
if (error_tag == system_call_error)
|
||
return strerror (errno);
|
||
|
||
if ((((int)error_tag <(int) no_error) ||
|
||
((int)error_tag > (int)invalid_error_code)))
|
||
error_tag = invalid_error_code;/* sanity check */
|
||
|
||
return bfd_errmsgs [(int)error_tag];
|
||
}
|
||
|
||
void
|
||
DEFUN (bfd_default_error_trap, (error_tag),
|
||
bfd_ec error_tag)
|
||
{
|
||
printf("bfd assert fail (%s)\n", bfd_errmsg(error_tag));
|
||
}
|
||
|
||
void (*bfd_error_trap) PARAMS ((bfd_ec)) = bfd_default_error_trap;
|
||
void (*bfd_error_nonrepresentabltrap) PARAMS ((bfd_ec)) = bfd_default_error_trap;
|
||
|
||
void
|
||
DEFUN(bfd_perror,(message),
|
||
CONST char *message)
|
||
{
|
||
if (bfd_error == system_call_error)
|
||
perror((char *)message); /* must be system error then... */
|
||
else {
|
||
if (message == NULL || *message == '\0')
|
||
fprintf (stderr, "%s\n", bfd_errmsg (bfd_error));
|
||
else
|
||
fprintf (stderr, "%s: %s\n", message, bfd_errmsg (bfd_error));
|
||
}
|
||
}
|
||
|
||
|
||
/** Symbols */
|
||
|
||
|
||
/*
|
||
FUNCTION
|
||
bfd_get_reloc_upper_bound
|
||
|
||
SYNOPSIS
|
||
unsigned int bfd_get_reloc_upper_bound(bfd *abfd, asection *sect);
|
||
|
||
DESCRIPTION
|
||
This function return the number of bytes required to store the
|
||
relocation information associated with section <<sect>>
|
||
attached to bfd <<abfd>>
|
||
|
||
*/
|
||
|
||
|
||
unsigned int
|
||
DEFUN(bfd_get_reloc_upper_bound,(abfd, asect),
|
||
bfd *abfd AND
|
||
sec_ptr asect)
|
||
{
|
||
if (abfd->format != bfd_object) {
|
||
bfd_error = invalid_operation;
|
||
return 0;
|
||
}
|
||
|
||
return BFD_SEND (abfd, _get_reloc_upper_bound, (abfd, asect));
|
||
}
|
||
|
||
/*
|
||
FUNCTION
|
||
bfd_canonicalize_reloc
|
||
|
||
SYNOPSIS
|
||
unsigned int bfd_canonicalize_reloc
|
||
(bfd *abfd,
|
||
asection *sec,
|
||
arelent **loc,
|
||
asymbol **syms);
|
||
|
||
DESCRIPTION
|
||
This function calls the back end associated with the open
|
||
<<abfd>> and translates the external form of the relocation
|
||
information attached to <<sec>> into the internal canonical
|
||
form. The table is placed into memory at <<loc>>, which has
|
||
been preallocated, usually by a call to
|
||
<<bfd_get_reloc_upper_bound>>.
|
||
|
||
The <<syms>> table is also needed for horrible internal magic
|
||
reasons.
|
||
|
||
|
||
*/
|
||
unsigned int
|
||
DEFUN(bfd_canonicalize_reloc,(abfd, asect, location, symbols),
|
||
bfd *abfd AND
|
||
sec_ptr asect AND
|
||
arelent **location AND
|
||
asymbol **symbols)
|
||
{
|
||
if (abfd->format != bfd_object) {
|
||
bfd_error = invalid_operation;
|
||
return 0;
|
||
}
|
||
return BFD_SEND (abfd, _bfd_canonicalize_reloc,
|
||
(abfd, asect, location, symbols));
|
||
}
|
||
|
||
|
||
/*
|
||
FUNCTION
|
||
bfd_set_file_flags
|
||
|
||
SYNOPSIS
|
||
boolean bfd_set_file_flags(bfd *abfd, flagword flags);
|
||
|
||
DESCRIPTION
|
||
This function attempts to set the flag word in the referenced
|
||
BFD structure to the value supplied.
|
||
|
||
Possible errors are:
|
||
o wrong_format - The target bfd was not of object format.
|
||
o invalid_operation - The target bfd was open for reading.
|
||
o invalid_operation -
|
||
The flag word contained a bit which was not applicable to the
|
||
type of file. eg, an attempt was made to set the D_PAGED bit
|
||
on a bfd format which does not support demand paging
|
||
|
||
*/
|
||
|
||
boolean
|
||
bfd_set_file_flags (abfd, flags)
|
||
bfd *abfd;
|
||
flagword flags;
|
||
{
|
||
if (abfd->format != bfd_object) {
|
||
bfd_error = wrong_format;
|
||
return false;
|
||
}
|
||
|
||
if (bfd_read_p (abfd)) {
|
||
bfd_error = invalid_operation;
|
||
return false;
|
||
}
|
||
|
||
bfd_get_file_flags (abfd) = flags;
|
||
if ((flags & bfd_applicable_file_flags (abfd)) != flags) {
|
||
bfd_error = invalid_operation;
|
||
return false;
|
||
}
|
||
|
||
return true;
|
||
}
|
||
|
||
/*
|
||
FUNCTION
|
||
bfd_set_reloc
|
||
|
||
SYNOPSIS
|
||
void bfd_set_reloc
|
||
(bfd *abfd, asection *sec, arelent **rel, unsigned int count)
|
||
|
||
DESCRIPTION
|
||
This function sets the relocation pointer and count within a
|
||
section to the supplied values.
|
||
|
||
*/
|
||
/*ARGSUSED*/
|
||
void
|
||
bfd_set_reloc (ignore_abfd, asect, location, count)
|
||
bfd *ignore_abfd;
|
||
sec_ptr asect;
|
||
arelent **location;
|
||
unsigned int count;
|
||
{
|
||
asect->orelocation = location;
|
||
asect->reloc_count = count;
|
||
}
|
||
|
||
void
|
||
bfd_assert(file, line)
|
||
char *file;
|
||
int line;
|
||
{
|
||
printf("bfd assertion fail %s:%d\n",file,line);
|
||
}
|
||
|
||
|
||
/*
|
||
FUNCTION
|
||
bfd_set_start_address
|
||
|
||
DESCRIPTION
|
||
Marks the entry point of an output BFD.
|
||
|
||
RETURNS
|
||
Returns <<true>> on success, <<false>> otherwise.
|
||
|
||
SYNOPSIS
|
||
boolean bfd_set_start_address(bfd *, bfd_vma);
|
||
*/
|
||
|
||
boolean
|
||
bfd_set_start_address(abfd, vma)
|
||
bfd *abfd;
|
||
bfd_vma vma;
|
||
{
|
||
abfd->start_address = vma;
|
||
return true;
|
||
}
|
||
|
||
|
||
/*
|
||
FUNCTION
|
||
The bfd_get_mtime function
|
||
|
||
SYNOPSIS
|
||
long bfd_get_mtime(bfd *);
|
||
|
||
DESCRIPTION
|
||
Return file modification time (as read from file system, or
|
||
from archive header for archive members).
|
||
|
||
*/
|
||
|
||
long
|
||
bfd_get_mtime (abfd)
|
||
bfd *abfd;
|
||
{
|
||
FILE *fp;
|
||
struct stat buf;
|
||
|
||
if (abfd->mtime_set)
|
||
return abfd->mtime;
|
||
|
||
fp = bfd_cache_lookup (abfd);
|
||
if (0 != fstat (fileno (fp), &buf))
|
||
return 0;
|
||
|
||
abfd->mtime = buf.st_mtime; /* Save value in case anyone wants it */
|
||
return buf.st_mtime;
|
||
}
|
||
|
||
/*
|
||
FUNCTION
|
||
The bfd_get_size function
|
||
|
||
SYNOPSIS
|
||
long bfd_get_size(bfd *);
|
||
|
||
DESCRIPTION
|
||
Return file size (as read from file system) for the file
|
||
associated with a bfd.
|
||
|
||
Note that the initial motivation for, and use of, this routine is not
|
||
so we can get the exact size of the object the bfd applies to, since
|
||
that might not be generally possible (archive members for example?).
|
||
Although it would be ideal if someone could eventually modify
|
||
it so that such results were guaranteed.
|
||
|
||
Instead, we want to ask questions like "is this NNN byte sized
|
||
object I'm about to try read from file offset YYY reasonable?"
|
||
As as example of where we might want to do this, some object formats
|
||
use string tables for which the first sizeof(long) bytes of the table
|
||
contain the size of the table itself, including the size bytes.
|
||
If an application tries to read what it thinks is one of these
|
||
string tables, without some way to validate the size, and for
|
||
some reason the size is wrong (byte swapping error, wrong location
|
||
for the string table, etc), the only clue is likely to be a read
|
||
error when it tries to read the table, or a "virtual memory
|
||
exhausted" error when it tries to allocated 15 bazillon bytes
|
||
of space for the 15 bazillon byte table it is about to read.
|
||
This function at least allows us to answer the quesion, "is the
|
||
size reasonable?".
|
||
*/
|
||
|
||
long
|
||
bfd_get_size (abfd)
|
||
bfd *abfd;
|
||
{
|
||
FILE *fp;
|
||
struct stat buf;
|
||
|
||
fp = bfd_cache_lookup (abfd);
|
||
if (0 != fstat (fileno (fp), &buf))
|
||
return 0;
|
||
|
||
return buf.st_size;
|
||
}
|
||
|
||
/*
|
||
FUNCTION
|
||
The bfd_get_gp_size function
|
||
|
||
SYNOPSIS
|
||
int bfd_get_gp_size(bfd *);
|
||
|
||
DESCRIPTION
|
||
Get the maximum size of objects to be optimized using the GP
|
||
register under MIPS ECOFF. This is typically set by the -G
|
||
argument to the compiler, assembler or linker.
|
||
*/
|
||
|
||
int
|
||
bfd_get_gp_size (abfd)
|
||
bfd *abfd;
|
||
{
|
||
if (abfd->xvec->flavour == bfd_target_ecoff_flavour)
|
||
return ecoff_data (abfd)->gp_size;
|
||
return 0;
|
||
}
|
||
|
||
/*
|
||
FUNCTION
|
||
The bfd_set_gp_size function
|
||
|
||
SYNOPSIS
|
||
void bfd_set_gp_size(bfd *, int);
|
||
|
||
DESCRIPTION
|
||
Set the maximum size of objects to be optimized using the GP
|
||
register under MIPS ECOFF. This is typically set by the -G
|
||
argument to the compiler, assembler or linker.
|
||
*/
|
||
|
||
void
|
||
bfd_set_gp_size (abfd, i)
|
||
bfd *abfd;
|
||
int i;
|
||
{
|
||
if (abfd->xvec->flavour == bfd_target_ecoff_flavour)
|
||
ecoff_data (abfd)->gp_size = i;
|
||
}
|
||
|
||
/*
|
||
FUNCTION
|
||
stuff
|
||
|
||
DESCRIPTION
|
||
stuff which should be documented
|
||
|
||
.#define bfd_sizeof_headers(abfd, reloc) \
|
||
. BFD_SEND (abfd, _bfd_sizeof_headers, (abfd, reloc))
|
||
.
|
||
.#define bfd_find_nearest_line(abfd, sec, syms, off, file, func, line) \
|
||
. BFD_SEND (abfd, _bfd_find_nearest_line, (abfd, sec, syms, off, file, func, line))
|
||
.
|
||
. {* Do these three do anything useful at all, for any back end? *}
|
||
.#define bfd_debug_info_start(abfd) \
|
||
. BFD_SEND (abfd, _bfd_debug_info_start, (abfd))
|
||
.
|
||
.#define bfd_debug_info_end(abfd) \
|
||
. BFD_SEND (abfd, _bfd_debug_info_end, (abfd))
|
||
.
|
||
.#define bfd_debug_info_accumulate(abfd, section) \
|
||
. BFD_SEND (abfd, _bfd_debug_info_accumulate, (abfd, section))
|
||
.
|
||
.
|
||
.#define bfd_stat_arch_elt(abfd, stat) \
|
||
. BFD_SEND (abfd, _bfd_stat_arch_elt,(abfd, stat))
|
||
.
|
||
.#define bfd_set_arch_mach(abfd, arch, mach)\
|
||
. BFD_SEND ( abfd, _bfd_set_arch_mach, (abfd, arch, mach))
|
||
.
|
||
.#define bfd_get_relocated_section_contents(abfd, seclet, data, relocateable) \
|
||
. BFD_SEND (abfd, _bfd_get_relocated_section_contents, (abfd, seclet, data, relocateable))
|
||
.
|
||
.#define bfd_relax_section(abfd, section, symbols) \
|
||
. BFD_SEND (abfd, _bfd_relax_section, (abfd, section, symbols))
|
||
.
|
||
.#define bfd_seclet_link(abfd, data, relocateable) \
|
||
. BFD_SEND (abfd, _bfd_seclet_link, (abfd, data, relocateable))
|
||
|
||
*/
|