General cleanup--added prototypes, removed a few unused variables,

fixed up comments a bit.  Also set version stamp in a.out header to
0x20a rather than 0, to keep the Ultrix linker happy.
This commit is contained in:
Ian Lance Taylor 1993-02-02 22:17:27 +00:00
parent cb4005ffe2
commit f6409552c7

View file

@ -1,7 +1,7 @@
/* BFD back-end for MIPS Extended-Coff files.
Copyright 1990, 1991, 1992 Free Software Foundation, Inc.
Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
Original version by Per Bothner.
Full support by Ian Lance Taylor, ian@cygnus.com.
Full support added by Ian Lance Taylor, ian@cygnus.com.
This file is part of BFD, the Binary File Descriptor library.
@ -133,7 +133,106 @@ typedef struct ecoff_symbol_struct
of the swapping routines from coffswap.h, and some of the generic
COFF routines in coffgen.c, but, unlike the real COFF targets, does
not use coffcode.h itself. */
/* Prototypes for static functions. */
static boolean ecoff_bad_format_hook PARAMS ((bfd *abfd, PTR filehdr));
static asection *ecoff_make_section_hook PARAMS ((bfd *abfd, char *name));
static boolean ecoff_new_section_hook PARAMS ((bfd *abfd, asection *section));
static boolean ecoff_mkobject PARAMS ((bfd *abfd));
static PTR ecoff_mkobject_hook PARAMS ((bfd *abfd, PTR filehdr, PTR aouthdr));
static boolean ecoff_set_arch_mach_hook PARAMS ((bfd *abfd, PTR filehdr));
static long ecoff_sec_to_styp_flags PARAMS ((CONST char *name,
flagword flags));
static flagword ecoff_styp_to_sec_flags PARAMS ((bfd *abfd, PTR hdr));
static boolean ecoff_slurp_symbolic_info PARAMS ((bfd *abfd));
static asymbol *ecoff_make_empty_symbol PARAMS ((bfd *abfd));
static void ecoff_set_symbol_info PARAMS ((bfd *abfd, SYMR *ecoff_sym,
asymbol *asym, int ext));
static boolean ecoff_slurp_symbol_table PARAMS ((bfd *abfd));
static unsigned int ecoff_get_symtab_upper_bound PARAMS ((bfd *abfd));
static unsigned int ecoff_get_symtab PARAMS ((bfd *abfd,
asymbol **alocation));
static void ecoff_emit_aggregate PARAMS ((bfd *abfd, char *string,
RNDXR *rndx, long isym,
CONST char *which));
static char *ecoff_type_to_string PARAMS ((bfd *abfd, union aux_ext *aux_ptr,
int indx, int bigendian));
static void ecoff_print_symbol PARAMS ((bfd *abfd, PTR filep,
asymbol *symbol,
bfd_print_symbol_type how));
static void ecoff_swap_reloc_in PARAMS ((bfd *abfd, RELOC *ext,
struct internal_reloc *intern));
static unsigned int ecoff_swap_reloc_out PARAMS ((bfd *abfd, PTR src,
PTR dst));
static bfd_reloc_status_type ecoff_generic_reloc PARAMS ((bfd *abfd,
arelent *reloc,
asymbol *symbol,
PTR data,
asection *section,
bfd *output_bfd));
static bfd_reloc_status_type ecoff_refhi_reloc PARAMS ((bfd *abfd,
arelent *reloc,
asymbol *symbol,
PTR data,
asection *section,
bfd *output_bfd));
static bfd_reloc_status_type ecoff_gprel_reloc PARAMS ((bfd *abfd,
arelent *reloc,
asymbol *symbol,
PTR data,
asection *section,
bfd *output_bfd));
static boolean ecoff_slurp_reloc_table PARAMS ((bfd *abfd, asection *section,
asymbol **symbols));
static unsigned int ecoff_canonicalize_reloc PARAMS ((bfd *abfd,
asection *section,
arelent **relptr,
asymbol **symbols));
static boolean ecoff_find_nearest_line PARAMS ((bfd *abfd,
asection *section,
asymbol **symbols,
bfd_vma offset,
CONST char **filename_ptr,
CONST char **fnname_ptr,
unsigned int *retline_ptr));
static void ecoff_clear_output_flags PARAMS ((bfd *abfd));
static boolean ecoff_rel PARAMS ((bfd *output_bfd, bfd_seclet_type *seclet,
asection *output_section, PTR data,
boolean relocateable));
static boolean ecoff_dump_seclet PARAMS ((bfd *abfd, bfd_seclet_type *seclet,
asection *section, PTR data,
boolean relocateable));
static long ecoff_add_string PARAMS ((bfd *output_bfd, FDR *fdr,
CONST char *string, boolean external));
static boolean ecoff_get_debug PARAMS ((bfd *output_bfd,
bfd_seclet_type *seclet,
asection *section,
boolean relocateable));
static boolean ecoff_bfd_seclet_link PARAMS ((bfd *abfd, PTR data,
boolean relocateable));
static boolean ecoff_set_arch_mach PARAMS ((bfd *abfd,
enum bfd_architecture arch,
unsigned long machine));
static int ecoff_sizeof_headers PARAMS ((bfd *abfd, boolean reloc));
static void ecoff_compute_section_file_positions PARAMS ((bfd *abfd));
static boolean ecoff_set_section_contents PARAMS ((bfd *abfd,
asection *section,
PTR location,
file_ptr offset,
bfd_size_type count));
static boolean ecoff_write_object_contents PARAMS ((bfd *abfd));
static unsigned int ecoff_armap_hash PARAMS ((CONST char *s,
unsigned int *rehash,
unsigned int size,
unsigned int hlog));
static boolean ecoff_slurp_armap PARAMS ((bfd *abfd));
static boolean ecoff_write_armap PARAMS ((bfd *abfd, unsigned int elength,
struct orl *map,
unsigned int orl_count,
int stridx));
static bfd_target *ecoff_archive_p PARAMS ((bfd *abfd));
/* Get the generic COFF swapping routines, except for the reloc,
symbol, and lineno ones. Give them ecoff names. */
#define MIPSECOFF
@ -155,9 +254,9 @@ static asection bfd_debug_section = { "*DEBUG*" };
/* See whether the magic number matches. */
static boolean
DEFUN(ecoff_bad_format_hook, (abfd, filehdr),
bfd *abfd AND
PTR filehdr)
ecoff_bad_format_hook (abfd, filehdr)
bfd *abfd;
PTR filehdr;
{
struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
@ -170,9 +269,9 @@ DEFUN(ecoff_bad_format_hook, (abfd, filehdr),
/* This is a hook needed by SCO COFF, but we have nothing to do. */
static asection *
DEFUN (ecoff_make_section_hook, (abfd, name),
bfd *abfd AND
char *name)
ecoff_make_section_hook (abfd, name)
bfd *abfd;
char *name;
{
return (asection *) NULL;
}
@ -180,9 +279,9 @@ DEFUN (ecoff_make_section_hook, (abfd, name),
/* Initialize a new section. */
static boolean
DEFUN (ecoff_new_section_hook, (abfd, section),
bfd *abfd AND
asection *section)
ecoff_new_section_hook (abfd, section)
bfd *abfd;
asection *section;
{
section->alignment_power = abfd->xvec->align_power_min;
@ -206,12 +305,16 @@ DEFUN (ecoff_new_section_hook, (abfd, section),
return true;
}
/* Set the alignment of a section; we have nothing to do. */
#define ecoff_set_alignment_hook \
((void (*) PARAMS ((bfd *, asection *, PTR))) bfd_void)
/* Create an ECOFF object. */
static boolean
DEFUN (ecoff_mkobject, (abfd),
bfd *abfd)
ecoff_mkobject (abfd)
bfd *abfd;
{
abfd->tdata.ecoff_obj_data = ((struct ecoff_tdata *)
bfd_zalloc (abfd, sizeof(ecoff_data_type)));
@ -228,7 +331,7 @@ DEFUN (ecoff_mkobject, (abfd),
return true;
}
/* Create the COFF backend specific information. */
/* Create the ECOFF backend specific information. */
static PTR
ecoff_mkobject_hook (abfd, filehdr, aouthdr)
@ -260,39 +363,39 @@ ecoff_mkobject_hook (abfd, filehdr, aouthdr)
}
/* Determine the machine architecture and type. */
static boolean
DEFUN (ecoff_set_arch_mach_hook, (abfd, filehdr),
bfd *abfd AND
PTR filehdr)
ecoff_set_arch_mach_hook (abfd, filehdr)
bfd *abfd;
PTR filehdr;
{
long machine;
enum bfd_architecture arch;
struct internal_filehdr *internal_f = (struct internal_filehdr *) filehdr;
enum bfd_architecture arch;
machine = 0;
switch (internal_f->f_magic) {
case MIPS_MAGIC_1:
case MIPS_MAGIC_2:
case MIPS_MAGIC_3:
arch = bfd_arch_mips;
machine = 0;
break;
switch (internal_f->f_magic)
{
case MIPS_MAGIC_1:
case MIPS_MAGIC_2:
case MIPS_MAGIC_3:
arch = bfd_arch_mips;
break;
default: /* Unreadable input file type */
arch = bfd_arch_obscure;
break;
}
default:
arch = bfd_arch_obscure;
break;
}
bfd_default_set_arch_mach (abfd, arch, (unsigned long) 0);
bfd_default_set_arch_mach(abfd, arch, machine);
return true;
}
/* Get the section s_flags to use for a section. */
static long
DEFUN (sec_to_styp_flags, (name, flags),
CONST char *name AND
flagword flags)
ecoff_sec_to_styp_flags (name, flags)
CONST char *name;
flagword flags;
{
long styp;
@ -334,9 +437,9 @@ DEFUN (sec_to_styp_flags, (name, flags),
/* Get the BFD flags to use for a section. */
static flagword
DEFUN (styp_to_sec_flags, (abfd, hdr),
bfd *abfd AND
PTR hdr)
ecoff_styp_to_sec_flags (abfd, hdr)
bfd *abfd;
PTR hdr;
{
struct internal_scnhdr *internal_s = (struct internal_scnhdr *) hdr;
long styp_flags = internal_s->s_flags;
@ -391,8 +494,8 @@ DEFUN (styp_to_sec_flags, (abfd, hdr),
object file. */
static boolean
DEFUN (ecoff_slurp_symbolic_info, (abfd),
bfd *abfd)
ecoff_slurp_symbolic_info (abfd)
bfd *abfd;
{
struct hdr_ext external_symhdr;
HDRR *internal_symhdr;
@ -553,8 +656,8 @@ static asymbol *ecoff_scom_symbol_ptr;
/* Create an empty symbol. */
static asymbol *
DEFUN (ecoff_make_empty_symbol, (abfd),
bfd *abfd)
ecoff_make_empty_symbol (abfd)
bfd *abfd;
{
ecoff_symbol_type *new;
@ -575,11 +678,11 @@ DEFUN (ecoff_make_empty_symbol, (abfd),
/* Set the BFD flags and section for an ECOFF symbol. */
static void
DEFUN (ecoff_set_symbol_info, (abfd, ecoff_sym, asym, ext),
bfd *abfd AND
SYMR *ecoff_sym AND
asymbol *asym AND
int ext)
ecoff_set_symbol_info (abfd, ecoff_sym, asym, ext)
bfd *abfd;
SYMR *ecoff_sym;
asymbol *asym;
int ext;
{
asym->the_bfd = abfd;
asym->value = ecoff_sym->value;
@ -729,8 +832,8 @@ DEFUN (ecoff_set_symbol_info, (abfd, ecoff_sym, asym, ext),
/* Read an ECOFF symbol table. */
static boolean
DEFUN (ecoff_slurp_symbol_table, (abfd),
bfd *abfd)
ecoff_slurp_symbol_table (abfd)
bfd *abfd;
{
bfd_size_type internal_size;
ecoff_symbol_type *internal;
@ -808,8 +911,8 @@ DEFUN (ecoff_slurp_symbol_table, (abfd),
}
static unsigned int
DEFUN (ecoff_get_symtab_upper_bound, (abfd),
bfd *abfd)
ecoff_get_symtab_upper_bound (abfd)
bfd *abfd;
{
if (ecoff_slurp_symbolic_info (abfd) == false
|| bfd_get_symcount (abfd) == 0)
@ -819,9 +922,9 @@ DEFUN (ecoff_get_symtab_upper_bound, (abfd),
}
static unsigned int
DEFUN (ecoff_get_symtab, (abfd, alocation),
bfd *abfd AND
asymbol **alocation)
ecoff_get_symtab (abfd, alocation)
bfd *abfd;
asymbol **alocation;
{
unsigned int counter = 0;
ecoff_symbol_type *symbase;
@ -842,18 +945,18 @@ DEFUN (ecoff_get_symtab, (abfd, alocation),
}
/* Turn ECOFF type information into a printable string.
emit_aggregate and type_to_string are from gcc/mips-tdump.c, with
swapping added and used_ptr removed. */
ecoff_emit_aggregate and ecoff_type_to_string are from
gcc/mips-tdump.c, with swapping added and used_ptr removed. */
/* Write aggregate information to a string. */
static void
DEFUN (emit_aggregate, (abfd, string, rndx, isym, which),
bfd *abfd AND
char *string AND
RNDXR *rndx AND
long isym AND
CONST char *which)
ecoff_emit_aggregate (abfd, string, rndx, isym, which)
bfd *abfd;
char *string;
RNDXR *rndx;
long isym;
CONST char *which;
{
int ifd = rndx->rfd;
int indx = rndx->index;
@ -888,11 +991,11 @@ DEFUN (emit_aggregate, (abfd, string, rndx, isym, which),
/* Convert the type information to string format. */
static char *
DEFUN (type_to_string, (abfd, aux_ptr, indx, bigendian),
bfd *abfd AND
union aux_ext *aux_ptr AND
int indx AND
int bigendian)
ecoff_type_to_string (abfd, aux_ptr, indx, bigendian)
bfd *abfd;
union aux_ext *aux_ptr;
int indx;
int bigendian;
{
AUXU u;
struct qual {
@ -989,9 +1092,9 @@ DEFUN (type_to_string, (abfd, aux_ptr, indx, bigendian),
case btStruct: /* Structure (Record) */
ecoff_swap_rndx_in (bigendian, &aux_ptr[indx].a_rndx, &rndx);
emit_aggregate (abfd, p1, &rndx,
AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]),
"struct");
ecoff_emit_aggregate (abfd, p1, &rndx,
AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]),
"struct");
indx++; /* skip aux words */
break;
@ -1001,9 +1104,9 @@ DEFUN (type_to_string, (abfd, aux_ptr, indx, bigendian),
case btUnion: /* Union */
ecoff_swap_rndx_in (bigendian, &aux_ptr[indx].a_rndx, &rndx);
emit_aggregate (abfd, p1, &rndx,
AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]),
"union");
ecoff_emit_aggregate (abfd, p1, &rndx,
AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]),
"union");
indx++; /* skip aux words */
break;
@ -1013,9 +1116,9 @@ DEFUN (type_to_string, (abfd, aux_ptr, indx, bigendian),
case btEnum: /* Enumeration */
ecoff_swap_rndx_in (bigendian, &aux_ptr[indx].a_rndx, &rndx);
emit_aggregate (abfd, p1, &rndx,
AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]),
"enum");
ecoff_emit_aggregate (abfd, p1, &rndx,
AUX_GET_ISYM (bigendian, &aux_ptr[indx+1]),
"enum");
indx++; /* skip aux words */
break;
@ -1194,11 +1297,11 @@ DEFUN (type_to_string, (abfd, aux_ptr, indx, bigendian),
/* Print information about an ECOFF symbol. */
static void
DEFUN (ecoff_print_symbol, (abfd, filep, symbol, how),
bfd *abfd AND
PTR filep AND
asymbol *symbol AND
bfd_print_symbol_type how)
ecoff_print_symbol (abfd, filep, symbol, how)
bfd *abfd;
PTR filep;
asymbol *symbol;
bfd_print_symbol_type how;
{
FILE *file = (FILE *)filep;
@ -1341,8 +1444,8 @@ DEFUN (ecoff_print_symbol, (abfd, filep, symbol, how),
(AUX_GET_ISYM (bigendian,
&aux_base[ecoff_ext.asym.index])
+ sym_base),
type_to_string (abfd, aux_base, indx + 1,
bigendian));
ecoff_type_to_string (abfd, aux_base, indx + 1,
bigendian));
else
printf ("\n Local symbol: %d",
(indx
@ -1353,7 +1456,8 @@ DEFUN (ecoff_print_symbol, (abfd, filep, symbol, how),
default:
if (!MIPS_IS_STAB (&ecoff_ext.asym))
printf ("\n Type: %s",
type_to_string (abfd, aux_base, indx, bigendian));
ecoff_type_to_string (abfd, aux_base, indx,
bigendian));
break;
}
}
@ -1369,10 +1473,10 @@ DEFUN (ecoff_print_symbol, (abfd, filep, symbol, how),
/* Swap a reloc in. */
static void
DEFUN (ecoff_swap_reloc_in, (abfd, ext, intern),
bfd *abfd AND
RELOC *ext AND
struct internal_reloc *intern)
ecoff_swap_reloc_in (abfd, ext, intern)
bfd *abfd;
RELOC *ext;
struct internal_reloc *intern;
{
intern->r_vaddr = bfd_h_get_32 (abfd, (bfd_byte *) ext->r_vaddr);
if (abfd->xvec->header_byteorder_big_p != false)
@ -1404,10 +1508,10 @@ DEFUN (ecoff_swap_reloc_in, (abfd, ext, intern),
/* Swap a reloc out. */
static unsigned int
DEFUN (ecoff_swap_reloc_out, (abfd, src, dst),
bfd *abfd AND
PTR src AND
PTR dst)
ecoff_swap_reloc_out (abfd, src, dst)
bfd *abfd;
PTR src;
PTR dst;
{
struct internal_reloc *intern = (struct internal_reloc *) src;
RELOC *ext = (RELOC *) dst;
@ -1813,10 +1917,10 @@ static reloc_howto_type ecoff_howto_table[] =
/* Read in the relocs for a section. */
static boolean
DEFUN (ecoff_slurp_reloc_table, (abfd, section, symbols),
bfd *abfd AND
asection *section AND
asymbol **symbols)
ecoff_slurp_reloc_table (abfd, section, symbols)
bfd *abfd;
asection *section;
asymbol **symbols;
{
RELOC *external_relocs;
arelent *internal_relocs;
@ -1918,11 +2022,11 @@ DEFUN (ecoff_slurp_reloc_table, (abfd, section, symbols),
/* Get a canonical list of relocs. */
static unsigned int
DEFUN (ecoff_canonicalize_reloc, (abfd, section, relptr, symbols),
bfd *abfd AND
asection *section AND
arelent **relptr AND
asymbol **symbols)
ecoff_canonicalize_reloc (abfd, section, relptr, symbols)
bfd *abfd;
asection *section;
arelent **relptr;
asymbol **symbols;
{
unsigned int count;
@ -1963,20 +2067,20 @@ DEFUN (ecoff_canonicalize_reloc, (abfd, section, relptr, symbols),
wanted location. */
static boolean
DEFUN (ecoff_find_nearest_line, (abfd,
section,
ignore_symbols,
offset,
filename_ptr,
functionname_ptr,
retline_ptr),
bfd *abfd AND
asection *section AND
asymbol **ignore_symbols AND
bfd_vma offset AND
CONST char **filename_ptr AND
CONST char **functionname_ptr AND
unsigned int *retline_ptr)
ecoff_find_nearest_line (abfd,
section,
ignore_symbols,
offset,
filename_ptr,
functionname_ptr,
retline_ptr)
bfd *abfd;
asection *section;
asymbol **ignore_symbols;
bfd_vma offset;
CONST char **filename_ptr;
CONST char **functionname_ptr;
unsigned int *retline_ptr;
{
FDR *fdr_ptr;
FDR *fdr_start;
@ -2137,8 +2241,8 @@ DEFUN (ecoff_find_nearest_line, (abfd,
once. */
static void
DEFUN (ecoff_clear_output_flags, (abfd),
bfd *abfd)
ecoff_clear_output_flags (abfd)
bfd *abfd;
{
register asection *o;
register bfd_seclet_type *p;
@ -2156,18 +2260,16 @@ DEFUN (ecoff_clear_output_flags, (abfd),
any. */
static boolean
DEFUN (ecoff_rel, (output_bfd, seclet, output_section, data, relocateable),
bfd *output_bfd AND
bfd_seclet_type *seclet AND
asection *output_section AND
PTR data AND
boolean relocateable)
ecoff_rel (output_bfd, seclet, output_section, data, relocateable)
bfd *output_bfd;
bfd_seclet_type *seclet;
asection *output_section;
PTR data;
boolean relocateable;
{
bfd *input_bfd;
HDRR *output_symhdr;
HDRR *input_symhdr;
ecoff_symbol_type *sym_ptr;
ecoff_symbol_type *sym_end;
if ((output_section->flags & SEC_HAS_CONTENTS)
&& !(output_section->flags & SEC_NEVER_LOAD)
@ -2274,12 +2376,12 @@ DEFUN (ecoff_rel, (output_bfd, seclet, output_section, data, relocateable),
/* Handle an arbitrary seclet on the first pass. */
static boolean
DEFUN (ecoff_dump_seclet, (abfd, seclet, section, data, relocateable),
bfd *abfd AND
bfd_seclet_type *seclet AND
asection *section AND
PTR data AND
boolean relocateable)
ecoff_dump_seclet (abfd, seclet, section, data, relocateable)
bfd *abfd;
bfd_seclet_type *seclet;
asection *section;
PTR data;
boolean relocateable;
{
switch (seclet->type)
{
@ -2325,11 +2427,11 @@ DEFUN (ecoff_dump_seclet, (abfd, seclet, section, data, relocateable),
external string base. */
static long
DEFUN (ecoff_add_string, (output_bfd, fdr, string, external),
bfd *output_bfd AND
FDR *fdr AND
CONST char *string AND
boolean external)
ecoff_add_string (output_bfd, fdr, string, external)
bfd *output_bfd;
FDR *fdr;
CONST char *string;
boolean external;
{
HDRR *symhdr;
size_t len;
@ -2356,11 +2458,11 @@ DEFUN (ecoff_add_string, (output_bfd, fdr, string, external),
/* Accumulate the debugging information from an input section. */
static boolean
DEFUN (ecoff_get_debug, (output_bfd, seclet, section, relocateable),
bfd *output_bfd AND
bfd_seclet_type *seclet AND
asection *section AND
boolean relocateable)
ecoff_get_debug (output_bfd, seclet, section, relocateable)
bfd *output_bfd;
bfd_seclet_type *seclet;
asection *section;
boolean relocateable;
{
bfd *input_bfd;
HDRR *output_symhdr;
@ -2369,7 +2471,6 @@ DEFUN (ecoff_get_debug, (output_bfd, seclet, section, relocateable),
ecoff_data_type *input_ecoff;
unsigned int count;
struct sym_ext *sym_out;
struct ext_ext *ext_out;
ecoff_symbol_type *esym_ptr;
ecoff_symbol_type *esym_end;
FDR *fdr_ptr;
@ -2698,10 +2799,10 @@ DEFUN (ecoff_get_debug, (output_bfd, seclet, section, relocateable),
seclets. */
static boolean
DEFUN (ecoff_bfd_seclet_link, (abfd, data, relocateable),
bfd *abfd AND
PTR data AND
boolean relocateable)
ecoff_bfd_seclet_link (abfd, data, relocateable)
bfd *abfd;
PTR data;
boolean relocateable;
{
HDRR *symhdr;
int ipass;
@ -2970,10 +3071,10 @@ DEFUN (ecoff_bfd_seclet_link, (abfd, data, relocateable),
the return value. */
static boolean
DEFUN (ecoff_set_arch_mach, (abfd, arch, machine),
bfd *abfd AND
enum bfd_architecture arch AND
unsigned long machine)
ecoff_set_arch_mach (abfd, arch, machine)
bfd *abfd;
enum bfd_architecture arch;
unsigned long machine;
{
bfd_default_set_arch_mach (abfd, arch, machine);
return arch == bfd_arch_mips;
@ -2994,8 +3095,8 @@ ecoff_sizeof_headers (abfd, reloc)
reloc_filepos. */
static void
DEFUN (ecoff_compute_section_file_positions, (abfd),
bfd *abfd)
ecoff_compute_section_file_positions (abfd)
bfd *abfd;
{
asection *current;
file_ptr sofar;
@ -3050,12 +3151,12 @@ DEFUN (ecoff_compute_section_file_positions, (abfd),
/* Set the contents of a section. */
static boolean
DEFUN (ecoff_set_section_contents, (abfd, section, location, offset, count),
bfd *abfd AND
asection *section AND
PTR location AND
file_ptr offset AND
bfd_size_type count)
ecoff_set_section_contents (abfd, section, location, offset, count)
bfd *abfd;
asection *section;
PTR location;
file_ptr offset;
bfd_size_type count;
{
if (abfd->output_has_begun == false)
ecoff_compute_section_file_positions (abfd);
@ -3071,8 +3172,8 @@ DEFUN (ecoff_set_section_contents, (abfd, section, location, offset, count),
/* Write out an ECOFF file. */
static boolean
DEFUN (ecoff_write_object_contents, (abfd),
bfd *abfd)
ecoff_write_object_contents (abfd)
bfd *abfd;
{
asection *current;
unsigned int count;
@ -3193,7 +3294,8 @@ DEFUN (ecoff_write_object_contents, (abfd),
section.s_nreloc = current->reloc_count;
section.s_nlnno = 0;
section.s_flags = sec_to_styp_flags (current->name, current->flags);
section.s_flags = ecoff_sec_to_styp_flags (current->name,
current->flags);
{
SCNHDR buff;
@ -3267,8 +3369,9 @@ DEFUN (ecoff_write_object_contents, (abfd),
/* Set up the ``optional'' header. */
internal_a.magic = ZMAGIC;
/* FIXME: What should this be? */
internal_a.vstamp = 0;
/* FIXME: This is what Ultrix puts in, and it makes the Ultrix
linker happy. But, is it right? */
internal_a.vstamp = 0x20a;
/* At least on Ultrix, these have to be rounded to page boundaries.
FIXME: Is this true on other platforms? */
@ -3515,8 +3618,8 @@ ecoff_armap_hash (s, rehash, size, hlog)
/* Read in the armap. */
static boolean
DEFUN (ecoff_slurp_armap, (abfd),
bfd *abfd)
ecoff_slurp_armap (abfd)
bfd *abfd;
{
char nextname[17];
unsigned int i;
@ -3665,12 +3768,12 @@ DEFUN (ecoff_slurp_armap, (abfd),
/* Write out an armap. */
static boolean
DEFUN (ecoff_write_armap, (abfd, elength, map, orl_count, stridx),
bfd *abfd AND
unsigned int elength AND
struct orl *map AND
unsigned int orl_count AND
int stridx)
ecoff_write_armap (abfd, elength, map, orl_count, stridx)
bfd *abfd;
unsigned int elength;
struct orl *map;
unsigned int orl_count;
int stridx;
{
unsigned int hashsize, hashlog;
unsigned int symdefsize;
@ -3720,8 +3823,7 @@ DEFUN (ecoff_write_armap, (abfd, elength, map, orl_count, stridx),
complain that the index is out of date. Actually, the Ultrix
linker just checks the archive name; the GNU linker may check the
date. */
if (stat (abfd->filename, &statbuf) < 0)
statbuf.st_mtime = time ((PTR) NULL);
stat (abfd->filename, &statbuf);
sprintf (hdr.ar_date, "%ld", (long) (statbuf.st_mtime + 60));
/* The DECstation uses zeroes for the uid, gid and mode of the
@ -3837,8 +3939,8 @@ DEFUN (ecoff_write_armap, (abfd, elength, map, orl_count, stridx),
and the extended name table. */
static bfd_target *
DEFUN (ecoff_archive_p, (abfd),
bfd *abfd)
ecoff_archive_p (abfd)
bfd *abfd;
{
char armag[SARMAG + 1];
@ -3874,6 +3976,10 @@ DEFUN (ecoff_archive_p, (abfd),
return abfd->xvec;
}
/* This is the COFF backend structure. The backend_data field of the
bfd_target structure is set to this. The section reading code in
coffgen.c uses this structure. */
static CONST bfd_coff_backend_data bfd_ecoff_std_swap_table = {
(void (*) PARAMS ((bfd *,PTR,int,int,PTR))) bfd_void, /* aux_in */
(void (*) PARAMS ((bfd *,PTR,PTR))) bfd_void, /* sym_in */
@ -3886,7 +3992,7 @@ static CONST bfd_coff_backend_data bfd_ecoff_std_swap_table = {
FILHSZ, AOUTSZ, SCNHSZ, 0, 0, 0, true,
ecoff_swap_filehdr_in, ecoff_swap_aouthdr_in, ecoff_swap_scnhdr_in,
ecoff_bad_format_hook, ecoff_set_arch_mach_hook, ecoff_mkobject_hook,
styp_to_sec_flags, ecoff_make_section_hook, ecoff_set_alignment_hook,
ecoff_styp_to_sec_flags, ecoff_make_section_hook, ecoff_set_alignment_hook,
ecoff_slurp_symbol_table
};
@ -3896,9 +4002,12 @@ static CONST bfd_coff_backend_data bfd_ecoff_std_swap_table = {
#define ecoff_get_lineno \
((alent *(*) PARAMS ((bfd *, asymbol *))) bfd_nullvoidptr)
/* These bfd_target functions are defined in other files. */
#define ecoff_core_file_failing_command _bfd_dummy_core_file_failing_command
#define ecoff_core_file_failing_signal _bfd_dummy_core_file_failing_signal
#define ecoff_core_file_matches_executable_p _bfd_dummy_core_file_matches_executable_p
#define ecoff_core_file_matches_executable_p \
_bfd_dummy_core_file_matches_executable_p
#define ecoff_truncate_arname bfd_dont_truncate_arname
#define ecoff_openr_next_archived_file bfd_generic_openr_next_archived_file
#define ecoff_generic_stat_arch_elt bfd_generic_stat_arch_elt
@ -3909,7 +4018,8 @@ static CONST bfd_coff_backend_data bfd_ecoff_std_swap_table = {
#define ecoff_bfd_debug_info_end bfd_void
#define ecoff_bfd_debug_info_accumulate \
((void (*) PARAMS ((bfd *, struct sec *))) bfd_void)
#define ecoff_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
#define ecoff_bfd_get_relocated_section_contents \
bfd_generic_get_relocated_section_contents
#define ecoff_bfd_relax_section bfd_generic_relax_section
bfd_target ecoff_little_vec =