binutils-gdb/bfd/oasys.c

1571 lines
40 KiB
C
Raw Normal View History

1999-05-03 09:29:11 +02:00
/* BFD back-end for oasys objects.
bfd * elf-bfd.h (enum elf_link_info_type): Remove. (struct bfd_elf_section_data): Move sec_info_type, use_rela_p fields to struct sec. Remove linkonce_p field. (elf_linkonce_p): Delete. (elf_discarded_section): Update for sec_info_type change. * section.c (struct sec): Add sec_info_type, use_rela_p, has_tls_reloc, flag11, flag12, flag13, flag14, flag15, flag16, flag20, flag24. (ELF_INFO_TYPE_NONE): Define. (ELF_INFO_TYPE_STABS): Define. (ELF_INFO_TYPE_MERGE): Define. (ELF_INFO_TYPE_EH_FRAME): Define. (ELF_INFO_TYPE_JUST_SYMS): Define. (STD_SECTION): Update struct sec initializer. * ecoff.c (bfd_debug_section): Likewise. * elf.c: Likewise. Update occurrences of sec_info_type and use_rela_p. * elflink.h: Likewise. * elf-eh-frame.c: Likewise. * elf64-alpha.c: Likewise. * elfxx-ia64.c: Likewise. * elfxx-mips.c: Likewise. * bfd-in2.h: Regenerate. * elf32-sparc.c (sec_do_relax): Use elf_section_data macro rather than referring to used_by_bfd. * elf64-sparc.c (sec_do_relax): Likewise. * elf64-mmix.c (mmix_elf_section_data): Likewise. * elfxx-mips.c (mips_elf_section_data): Likewise. * ieee.c (ieee_slurp_section_data): Use ieee_per_section macro. (ieee_get_section_contents): Likewise. (ieee_new_section_hook): Formatting. (ieee_canonicalize_reloc): Remove commented out code. * mmo.c (mmo_section_data): Define. Use throughout file. * oasys.c (oasys_get_section_contents): Use oasys_per_section macro. gas * config/obj-elf.c (obj_elf_change_section): Set SEC_LINK_ONCE and SEC_LINK_DUPLICATES_DISCARD directly rather than using elf_linkonce_p.
2003-02-04 13:34:08 +01:00
Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2001,
2002, 2003 Free Software Foundation, Inc.
1999-05-03 09:29:11 +02:00
Written by Steve Chamberlain of Cygnus Support, <sac@cygnus.com>.
2001-08-28 11:35:16 +02:00
This file is part of BFD, the Binary File Descriptor library.
1999-05-03 09:29:11 +02:00
2001-08-28 11:35:16 +02:00
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.
1999-05-03 09:29:11 +02:00
2001-08-28 11:35:16 +02:00
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.
1999-05-03 09:29:11 +02:00
2001-08-28 11:35:16 +02:00
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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
1999-05-03 09:29:11 +02:00
#define UNDERSCORE_HACK 1
#include "bfd.h"
#include "sysdep.h"
#include "safe-ctype.h"
1999-05-03 09:29:11 +02:00
#include "libbfd.h"
#include "oasys.h"
#include "liboasys.h"
static bfd_boolean oasys_slurp_section_data
PARAMS ((bfd * const));
static bfd_boolean oasys_read_record
PARAMS ((bfd *, oasys_record_union_type *));
static bfd_boolean oasys_write_sections
PARAMS ((bfd *));
static bfd_boolean oasys_write_record
PARAMS ((bfd *, oasys_record_enum_type, oasys_record_union_type *, size_t));
static bfd_boolean oasys_write_syms
PARAMS ((bfd *));
static bfd_boolean oasys_write_header
PARAMS ((bfd *));
static bfd_boolean oasys_write_end
PARAMS ((bfd *));
static bfd_boolean oasys_write_data
PARAMS ((bfd *));
static size_t oasys_string_length
PARAMS ((oasys_record_union_type *));
static bfd_boolean oasys_slurp_symbol_table
PARAMS ((bfd *const));
static long int oasys_get_symtab_upper_bound
PARAMS ((bfd *const));
static const bfd_target *oasys_archive_p
PARAMS ((bfd *));
static bfd_boolean oasys_mkobject
PARAMS ((bfd *));
static const bfd_target *oasys_object_p
PARAMS ((bfd *));
static void oasys_get_symbol_info
PARAMS ((bfd *, asymbol *, symbol_info *));
static void oasys_print_symbol
PARAMS ((bfd *, void *, asymbol *, bfd_print_symbol_type));
static bfd_boolean oasys_new_section_hook
PARAMS ((bfd *, asection *));
static long int oasys_get_reloc_upper_bound
PARAMS ((bfd *, sec_ptr));
static bfd_boolean oasys_get_section_contents
PARAMS ((bfd *, sec_ptr, void *, file_ptr, bfd_size_type));
static int comp
PARAMS ((const void *, const void *));
static bfd_boolean oasys_write_object_contents
PARAMS ((bfd *));
static bfd_boolean oasys_set_section_contents
PARAMS ((bfd *, sec_ptr, void *, file_ptr, bfd_size_type));
static asymbol *oasys_make_empty_symbol
PARAMS ((bfd *));
static bfd *oasys_openr_next_archived_file
PARAMS ((bfd *, bfd *));
static bfd_boolean oasys_find_nearest_line
PARAMS ((bfd *, asection *, asymbol **, bfd_vma,
const char **, const char **, unsigned int *));
static int oasys_generic_stat_arch_elt
PARAMS ((bfd *, struct stat *));
static int oasys_sizeof_headers
PARAMS ((bfd *, bfd_boolean));
1999-05-03 09:29:11 +02:00
long oasys_get_symtab
PARAMS ((bfd *, asymbol **));
long oasys_canonicalize_reloc
PARAMS ((bfd *, sec_ptr, arelent **, asymbol **));
2001-08-28 11:35:16 +02:00
/* Read in all the section data and relocation stuff too. */
1999-05-03 09:29:11 +02:00
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_read_record (abfd, record)
bfd *abfd;
oasys_record_union_type *record;
{
bfd_size_type amt = sizeof (record->header);
if (bfd_bread ((PTR) record, amt, abfd) != amt)
return FALSE;
1999-05-03 09:29:11 +02:00
amt = record->header.length - sizeof (record->header);
if ((long) amt <= 0)
return TRUE;
if (bfd_bread ((PTR) ((char *) record + sizeof (record->header)), amt, abfd)
!= amt)
return FALSE;
return TRUE;
1999-05-03 09:29:11 +02:00
}
1999-05-03 09:29:11 +02:00
static size_t
oasys_string_length (record)
oasys_record_union_type *record;
{
return record->header.length
- ((char *) record->symbol.name - (char *) record);
}
/*****************************************************************************/
/*
Slurp the symbol table by reading in all the records at the start file
till we get to the first section record.
We'll sort the symbolss into two lists, defined and undefined. The
undefined symbols will be placed into the table according to their
refno.
We do this by placing all undefined symbols at the front of the table
moving in, and the defined symbols at the end of the table moving back.
*/
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_slurp_symbol_table (abfd)
bfd *const abfd;
1999-05-03 09:29:11 +02:00
{
oasys_record_union_type record;
oasys_data_type *data = OASYS_DATA (abfd);
bfd_boolean loop = TRUE;
1999-05-03 09:29:11 +02:00
asymbol *dest_defined;
asymbol *dest;
char *string_ptr;
bfd_size_type amt;
1999-05-03 09:29:11 +02:00
if (data->symbols != (asymbol *) NULL)
{
return TRUE;
1999-05-03 09:29:11 +02:00
}
/* Buy enough memory for all the symbols and all the names */
amt = abfd->symcount;
amt *= sizeof (asymbol);
data->symbols = (asymbol *) bfd_alloc (abfd, amt);
amt = data->symbol_string_length;
1999-05-03 09:29:11 +02:00
#ifdef UNDERSCORE_HACK
/* buy 1 more char for each symbol to keep the underscore in*/
amt += abfd->symcount;
1999-05-03 09:29:11 +02:00
#endif
data->strings = bfd_alloc (abfd, amt);
1999-05-03 09:29:11 +02:00
if (!data->symbols || !data->strings)
return FALSE;
1999-05-03 09:29:11 +02:00
dest_defined = data->symbols + abfd->symcount - 1;
string_ptr = data->strings;
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
return FALSE;
1999-05-03 09:29:11 +02:00
while (loop)
{
if (! oasys_read_record (abfd, &record))
return FALSE;
1999-05-03 09:29:11 +02:00
switch (record.header.type)
{
case oasys_record_is_header_enum:
break;
case oasys_record_is_local_enum:
case oasys_record_is_symbol_enum:
{
int flag = record.header.type == (int) oasys_record_is_local_enum ?
(BSF_LOCAL) : (BSF_GLOBAL | BSF_EXPORT);
size_t length = oasys_string_length (&record);
switch (record.symbol.relb & RELOCATION_TYPE_BITS)
{
case RELOCATION_TYPE_ABS:
dest = dest_defined--;
dest->section = bfd_abs_section_ptr;
dest->flags = 0;
break;
case RELOCATION_TYPE_REL:
dest = dest_defined--;
dest->section =
OASYS_DATA (abfd)->sections[record.symbol.relb &
RELOCATION_SECT_BITS];
if (record.header.type == (int) oasys_record_is_local_enum)
{
dest->flags = BSF_LOCAL;
if (dest->section == (asection *) (~0))
{
/* It seems that sometimes internal symbols are tied up, but
still get output, even though there is no
section */
dest->section = 0;
}
}
else
{
dest->flags = flag;
}
break;
case RELOCATION_TYPE_UND:
dest = data->symbols + H_GET_16 (abfd, record.symbol.refno);
1999-05-03 09:29:11 +02:00
dest->section = bfd_und_section_ptr;
break;
case RELOCATION_TYPE_COM:
dest = dest_defined--;
dest->name = string_ptr;
dest->the_bfd = abfd;
dest->section = bfd_com_section_ptr;
break;
default:
dest = dest_defined--;
BFD_ASSERT (0);
break;
}
dest->name = string_ptr;
dest->the_bfd = abfd;
dest->udata.p = (PTR) NULL;
dest->value = H_GET_32 (abfd, record.symbol.value);
1999-05-03 09:29:11 +02:00
#ifdef UNDERSCORE_HACK
if (record.symbol.name[0] != '_')
{
string_ptr[0] = '_';
string_ptr++;
}
#endif
memcpy (string_ptr, record.symbol.name, length);
string_ptr[length] = 0;
string_ptr += length + 1;
}
break;
default:
loop = FALSE;
1999-05-03 09:29:11 +02:00
}
}
return TRUE;
1999-05-03 09:29:11 +02:00
}
static long
oasys_get_symtab_upper_bound (abfd)
bfd *const abfd;
1999-05-03 09:29:11 +02:00
{
if (! oasys_slurp_symbol_table (abfd))
return -1;
return (abfd->symcount + 1) * (sizeof (oasys_symbol_type *));
}
extern const bfd_target oasys_vec;
long
oasys_get_symtab (abfd, location)
bfd *abfd;
asymbol **location;
{
asymbol *symbase;
unsigned int counter;
2002-06-25 08:21:54 +02:00
if (! oasys_slurp_symbol_table (abfd))
1999-05-03 09:29:11 +02:00
{
return -1;
}
symbase = OASYS_DATA (abfd)->symbols;
for (counter = 0; counter < abfd->symcount; counter++)
{
*(location++) = symbase++;
}
*location = 0;
return abfd->symcount;
}
/***********************************************************************
* archive stuff
*/
static const bfd_target *
oasys_archive_p (abfd)
bfd *abfd;
{
oasys_archive_header_type header;
oasys_extarchive_header_type header_ext;
unsigned int i;
file_ptr filepos;
bfd_size_type amt;
1999-05-03 09:29:11 +02:00
amt = sizeof (header_ext);
if (bfd_seek (abfd, (file_ptr) 0, 0) != 0
|| bfd_bread ((PTR) &header_ext, amt, abfd) != amt)
1999-05-03 09:29:11 +02:00
{
if (bfd_get_error () != bfd_error_system_call)
bfd_set_error (bfd_error_wrong_format);
return NULL;
}
header.version = H_GET_32 (abfd, header_ext.version);
header.mod_count = H_GET_32 (abfd, header_ext.mod_count);
header.mod_tbl_offset = H_GET_32 (abfd, header_ext.mod_tbl_offset);
header.sym_tbl_size = H_GET_32 (abfd, header_ext.sym_tbl_size);
header.sym_count = H_GET_32 (abfd, header_ext.sym_count);
header.sym_tbl_offset = H_GET_32 (abfd, header_ext.sym_tbl_offset);
header.xref_count = H_GET_32 (abfd, header_ext.xref_count);
header.xref_lst_offset = H_GET_32 (abfd, header_ext.xref_lst_offset);
1999-05-03 09:29:11 +02:00
/*
There isn't a magic number in an Oasys archive, so the best we
can do to verify reasnableness is to make sure that the values in
the header are too weird
*/
if (header.version > 10000 ||
header.mod_count > 10000 ||
header.sym_count > 100000 ||
header.xref_count > 100000)
return (const bfd_target *) NULL;
/*
That all worked, let's buy the space for the header and read in
the headers.
*/
{
oasys_ar_data_type *ar;
oasys_module_info_type *module;
1999-05-03 09:29:11 +02:00
oasys_module_table_type record;
amt = sizeof (oasys_ar_data_type);
ar = (oasys_ar_data_type *) bfd_alloc (abfd, amt);
amt = header.mod_count;
amt *= sizeof (oasys_module_info_type);
module = (oasys_module_info_type *) bfd_alloc (abfd, amt);
1999-05-03 09:29:11 +02:00
if (!ar || !module)
return NULL;
abfd->tdata.oasys_ar_data = ar;
ar->module = module;
ar->module_count = header.mod_count;
filepos = header.mod_tbl_offset;
for (i = 0; i < header.mod_count; i++)
{
if (bfd_seek (abfd, filepos, SEEK_SET) != 0)
return NULL;
/* There are two ways of specifying the archive header */
if (0)
{
oasys_extmodule_table_type_a_type record_ext;
amt = sizeof (record_ext);
if (bfd_bread ((PTR) &record_ext, amt, abfd) != amt)
1999-05-03 09:29:11 +02:00
return NULL;
record.mod_size = H_GET_32 (abfd, record_ext.mod_size);
record.file_offset = H_GET_32 (abfd, record_ext.file_offset);
1999-05-03 09:29:11 +02:00
record.dep_count = H_GET_32 (abfd, record_ext.dep_count);
record.depee_count = H_GET_32 (abfd, record_ext.depee_count);
record.sect_count = H_GET_32 (abfd, record_ext.sect_count);
1999-05-03 09:29:11 +02:00
module[i].name = bfd_alloc (abfd, (bfd_size_type) 33);
1999-05-03 09:29:11 +02:00
if (!module[i].name)
return NULL;
memcpy (module[i].name, record_ext.mod_name, 33);
filepos +=
sizeof (record_ext) +
record.dep_count * 4 +
record.depee_count * 4 +
record.sect_count * 8 + 187;
}
else
{
oasys_extmodule_table_type_b_type record_ext;
amt = sizeof (record_ext);
if (bfd_bread ((PTR) &record_ext, amt, abfd) != amt)
1999-05-03 09:29:11 +02:00
return NULL;
record.mod_size = H_GET_32 (abfd, record_ext.mod_size);
record.file_offset = H_GET_32 (abfd, record_ext.file_offset);
1999-05-03 09:29:11 +02:00
record.dep_count = H_GET_32 (abfd, record_ext.dep_count);
record.depee_count = H_GET_32 (abfd, record_ext.depee_count);
record.sect_count = H_GET_32 (abfd, record_ext.sect_count);
record.module_name_size = H_GET_32 (abfd,
record_ext.mod_name_length);
1999-05-03 09:29:11 +02:00
amt = record.module_name_size;
module[i].name = bfd_alloc (abfd, amt + 1);
1999-05-03 09:29:11 +02:00
if (!module[i].name)
return NULL;
if (bfd_bread ((PTR) module[i].name, amt, abfd) != amt)
1999-05-03 09:29:11 +02:00
return NULL;
module[i].name[record.module_name_size] = 0;
filepos += (sizeof (record_ext)
+ record.dep_count * 4
+ record.module_name_size + 1);
1999-05-03 09:29:11 +02:00
}
module[i].size = record.mod_size;
module[i].pos = record.file_offset;
module[i].abfd = 0;
}
}
return abfd->xvec;
}
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_mkobject (abfd)
bfd *abfd;
{
bfd_size_type amt = sizeof (oasys_data_type);
abfd->tdata.oasys_obj_data = (oasys_data_type *) bfd_alloc (abfd, amt);
2002-06-25 08:21:54 +02:00
return abfd->tdata.oasys_obj_data != NULL;
1999-05-03 09:29:11 +02:00
}
#define MAX_SECS 16
static const bfd_target *
oasys_object_p (abfd)
bfd *abfd;
{
oasys_data_type *oasys;
oasys_data_type *save = OASYS_DATA (abfd);
bfd_boolean loop = TRUE;
bfd_boolean had_usefull = FALSE;
1999-05-03 09:29:11 +02:00
abfd->tdata.oasys_obj_data = 0;
oasys_mkobject (abfd);
oasys = OASYS_DATA (abfd);
memset ((PTR) oasys->sections, 0xff, sizeof (oasys->sections));
/* Point to the start of the file */
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
goto fail;
oasys->symbol_string_length = 0;
/* Inspect the records, but only keep the section info -
remember the size of the symbols
*/
oasys->first_data_record = 0;
while (loop)
{
oasys_record_union_type record;
if (! oasys_read_record (abfd, &record))
goto fail;
if ((size_t) record.header.length < (size_t) sizeof (record.header))
goto fail;
switch ((oasys_record_enum_type) (record.header.type))
{
case oasys_record_is_header_enum:
had_usefull = TRUE;
1999-05-03 09:29:11 +02:00
break;
case oasys_record_is_symbol_enum:
case oasys_record_is_local_enum:
/* Count symbols and remember their size for a future malloc */
abfd->symcount++;
oasys->symbol_string_length += 1 + oasys_string_length (&record);
had_usefull = TRUE;
1999-05-03 09:29:11 +02:00
break;
case oasys_record_is_section_enum:
{
asection *s;
char *buffer;
unsigned int section_number;
if (record.section.header.length != sizeof (record.section))
{
goto fail;
}
buffer = bfd_alloc (abfd, (bfd_size_type) 3);
1999-05-03 09:29:11 +02:00
if (!buffer)
goto fail;
section_number = record.section.relb & RELOCATION_SECT_BITS;
sprintf (buffer, "%u", section_number);
s = bfd_make_section (abfd, buffer);
oasys->sections[section_number] = s;
switch (record.section.relb & RELOCATION_TYPE_BITS)
{
case RELOCATION_TYPE_ABS:
case RELOCATION_TYPE_REL:
break;
case RELOCATION_TYPE_UND:
case RELOCATION_TYPE_COM:
BFD_FAIL ();
}
s->_raw_size = H_GET_32 (abfd, record.section.value);
s->vma = H_GET_32 (abfd, record.section.vma);
1999-05-03 09:29:11 +02:00
s->flags = 0;
had_usefull = TRUE;
1999-05-03 09:29:11 +02:00
}
break;
case oasys_record_is_data_enum:
oasys->first_data_record = bfd_tell (abfd) - record.header.length;
case oasys_record_is_debug_enum:
case oasys_record_is_module_enum:
case oasys_record_is_named_section_enum:
case oasys_record_is_end_enum:
2002-06-25 08:21:54 +02:00
if (! had_usefull)
1999-05-03 09:29:11 +02:00
goto fail;
loop = FALSE;
1999-05-03 09:29:11 +02:00
break;
default:
goto fail;
}
}
oasys->symbols = (asymbol *) NULL;
/*
Oasys support several architectures, but I can't see a simple way
to discover which one is in a particular file - we'll guess
*/
bfd_default_set_arch_mach (abfd, bfd_arch_m68k, 0);
if (abfd->symcount != 0)
{
abfd->flags |= HAS_SYMS;
}
/*
We don't know if a section has data until we've read it..
*/
oasys_slurp_section_data (abfd);
return abfd->xvec;
fail:
(void) bfd_release (abfd, oasys);
abfd->tdata.oasys_obj_data = save;
return (const bfd_target *) NULL;
}
static void
oasys_get_symbol_info (ignore_abfd, symbol, ret)
bfd *ignore_abfd ATTRIBUTE_UNUSED;
1999-05-03 09:29:11 +02:00
asymbol *symbol;
symbol_info *ret;
{
bfd_symbol_info (symbol, ret);
if (!symbol->section)
ret->type = (symbol->flags & BSF_LOCAL) ? 'a' : 'A';
}
static void
oasys_print_symbol (abfd, afile, symbol, how)
bfd *abfd;
1999-05-03 09:29:11 +02:00
PTR afile;
asymbol *symbol;
bfd_print_symbol_type how;
{
FILE *file = (FILE *) afile;
switch (how)
{
case bfd_print_symbol_name:
case bfd_print_symbol_more:
fprintf (file, "%s", symbol->name);
break;
case bfd_print_symbol_all:
{
const char *section_name = symbol->section == (asection *) NULL ?
(const char *) "*abs" : symbol->section->name;
1999-05-03 09:29:11 +02:00
bfd_print_symbol_vandf (abfd, (PTR) file, symbol);
1999-05-03 09:29:11 +02:00
fprintf (file, " %-5s %s",
section_name,
symbol->name);
}
break;
}
}
/*
The howto table is build using the top two bits of a reloc byte to
index into it. The bits are PCREL,WORD/LONG
*/
static reloc_howto_type howto_table[] =
{
HOWTO (0, 0, 1, 16, FALSE, 0, complain_overflow_bitfield, 0, "abs16", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
HOWTO (0, 0, 2, 32, FALSE, 0, complain_overflow_bitfield, 0, "abs32", TRUE, 0xffffffff, 0xffffffff, FALSE),
HOWTO (0, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0, "pcrel16", TRUE, 0x0000ffff, 0x0000ffff, FALSE),
HOWTO (0, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0, "pcrel32", TRUE, 0xffffffff, 0xffffffff, FALSE)
1999-05-03 09:29:11 +02:00
};
/* Read in all the section data and relocation stuff too */
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_slurp_section_data (abfd)
bfd *const abfd;
1999-05-03 09:29:11 +02:00
{
oasys_record_union_type record;
oasys_data_type *data = OASYS_DATA (abfd);
bfd_boolean loop = TRUE;
1999-05-03 09:29:11 +02:00
oasys_per_section_type *per;
asection *s;
bfd_size_type amt;
1999-05-03 09:29:11 +02:00
/* See if the data has been slurped already .. */
for (s = abfd->sections; s != (asection *) NULL; s = s->next)
{
per = oasys_per_section (s);
2002-06-25 08:21:54 +02:00
if (per->initialized)
return TRUE;
1999-05-03 09:29:11 +02:00
}
if (data->first_data_record == 0)
return TRUE;
1999-05-03 09:29:11 +02:00
if (bfd_seek (abfd, data->first_data_record, SEEK_SET) != 0)
return FALSE;
1999-05-03 09:29:11 +02:00
while (loop)
{
if (! oasys_read_record (abfd, &record))
return FALSE;
1999-05-03 09:29:11 +02:00
switch (record.header.type)
{
case oasys_record_is_header_enum:
break;
case oasys_record_is_data_enum:
{
bfd_byte *src = record.data.data;
bfd_byte *end_src = ((bfd_byte *) & record) + record.header.length;
bfd_byte *dst_ptr;
bfd_byte *dst_base_ptr;
unsigned int relbit;
unsigned int count;
asection *section =
data->sections[record.data.relb & RELOCATION_SECT_BITS];
bfd_vma dst_offset;
per = oasys_per_section (section);
2002-06-25 08:21:54 +02:00
if (! per->initialized)
1999-05-03 09:29:11 +02:00
{
per->data = (bfd_byte *) bfd_zalloc (abfd, section->_raw_size);
if (!per->data)
return FALSE;
per->reloc_tail_ptr
= (oasys_reloc_type **) &section->relocation;
per->had_vma = FALSE;
per->initialized = TRUE;
1999-05-03 09:29:11 +02:00
section->reloc_count = 0;
section->flags = SEC_ALLOC;
}
dst_offset = H_GET_32 (abfd, record.data.addr);
2002-06-25 08:21:54 +02:00
if (! per->had_vma)
1999-05-03 09:29:11 +02:00
{
/* Take the first vma we see as the base */
section->vma = dst_offset;
per->had_vma = TRUE;
1999-05-03 09:29:11 +02:00
}
dst_offset -= section->vma;
dst_base_ptr = oasys_per_section (section)->data;
dst_ptr = oasys_per_section (section)->data +
dst_offset;
if (src < end_src)
{
section->flags |= SEC_LOAD | SEC_HAS_CONTENTS;
}
while (src < end_src)
{
unsigned char mod_byte = *src++;
size_t gap = end_src - src;
count = 8;
if (mod_byte == 0 && gap >= 8)
{
dst_ptr[0] = src[0];
dst_ptr[1] = src[1];
dst_ptr[2] = src[2];
dst_ptr[3] = src[3];
dst_ptr[4] = src[4];
dst_ptr[5] = src[5];
dst_ptr[6] = src[6];
dst_ptr[7] = src[7];
dst_ptr += 8;
src += 8;
}
else
{
for (relbit = 1; count-- != 0 && src < end_src; relbit <<= 1)
{
if (relbit & mod_byte)
{
unsigned char reloc = *src;
/* This item needs to be relocated */
switch (reloc & RELOCATION_TYPE_BITS)
{
case RELOCATION_TYPE_ABS:
break;
case RELOCATION_TYPE_REL:
{
/* Relocate the item relative to the section */
oasys_reloc_type *r;
amt = sizeof (oasys_reloc_type);
r = (oasys_reloc_type *) bfd_alloc (abfd,
amt);
1999-05-03 09:29:11 +02:00
if (!r)
return FALSE;
1999-05-03 09:29:11 +02:00
*(per->reloc_tail_ptr) = r;
per->reloc_tail_ptr = &r->next;
r->next = (oasys_reloc_type *) NULL;
/* Reference to undefined symbol */
src++;
/* There is no symbol */
r->symbol = 0;
/* Work out the howto */
abort ();
#if 0
r->relent.section =
data->sections[reloc &
RELOCATION_SECT_BITS];
r->relent.addend = -
r->relent.section->vma;
#endif
r->relent.address = dst_ptr - dst_base_ptr;
r->relent.howto = &howto_table[reloc >> 6];
r->relent.sym_ptr_ptr = (asymbol **) NULL;
section->reloc_count++;
2002-06-25 08:21:54 +02:00
/* Fake up the data to look like
it's got the -ve pc in it, this
makes it much easier to convert
into other formats. This is done
by hitting the addend. */
if (r->relent.howto->pc_relative)
r->relent.addend -= dst_ptr - dst_base_ptr;
1999-05-03 09:29:11 +02:00
}
break;
case RELOCATION_TYPE_UND:
{
oasys_reloc_type *r;
amt = sizeof (oasys_reloc_type);
r = (oasys_reloc_type *) bfd_alloc (abfd,
amt);
1999-05-03 09:29:11 +02:00
if (!r)
return FALSE;
1999-05-03 09:29:11 +02:00
*(per->reloc_tail_ptr) = r;
per->reloc_tail_ptr = &r->next;
r->next = (oasys_reloc_type *) NULL;
/* Reference to undefined symbol */
src++;
/* Get symbol number */
r->symbol = (src[0] << 8) | src[1];
/* Work out the howto */
abort ();
#if 0
r->relent.section = (asection
*) NULL;
#endif
r->relent.addend = 0;
r->relent.address = dst_ptr - dst_base_ptr;
r->relent.howto = &howto_table[reloc >> 6];
r->relent.sym_ptr_ptr = (asymbol **) NULL;
section->reloc_count++;
src += 2;
2002-06-25 08:21:54 +02:00
/* Fake up the data to look like
it's got the -ve pc in it, this
makes it much easier to convert
into other formats. This is done
by hitting the addend. */
if (r->relent.howto->pc_relative)
r->relent.addend -= dst_ptr - dst_base_ptr;
1999-05-03 09:29:11 +02:00
}
break;
case RELOCATION_TYPE_COM:
BFD_FAIL ();
}
}
*dst_ptr++ = *src++;
}
}
}
}
break;
case oasys_record_is_local_enum:
case oasys_record_is_symbol_enum:
case oasys_record_is_section_enum:
break;
default:
loop = FALSE;
1999-05-03 09:29:11 +02:00
}
}
return TRUE;
1999-05-03 09:29:11 +02:00
}
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_new_section_hook (abfd, newsect)
bfd *abfd;
asection *newsect;
{
newsect->used_by_bfd = (PTR)
bfd_alloc (abfd, (bfd_size_type) sizeof (oasys_per_section_type));
1999-05-03 09:29:11 +02:00
if (!newsect->used_by_bfd)
return FALSE;
1999-05-03 09:29:11 +02:00
oasys_per_section (newsect)->data = (bfd_byte *) NULL;
oasys_per_section (newsect)->section = newsect;
oasys_per_section (newsect)->offset = 0;
oasys_per_section (newsect)->initialized = FALSE;
1999-05-03 09:29:11 +02:00
newsect->alignment_power = 1;
/* Turn the section string into an index */
sscanf (newsect->name, "%u", &newsect->target_index);
return TRUE;
1999-05-03 09:29:11 +02:00
}
static long
oasys_get_reloc_upper_bound (abfd, asect)
bfd *abfd;
sec_ptr asect;
{
if (! oasys_slurp_section_data (abfd))
return -1;
return (asect->reloc_count + 1) * sizeof (arelent *);
}
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_get_section_contents (abfd, section, location, offset, count)
bfd *abfd;
sec_ptr section;
PTR location;
file_ptr offset;
bfd_size_type count;
{
bfd * elf-bfd.h (enum elf_link_info_type): Remove. (struct bfd_elf_section_data): Move sec_info_type, use_rela_p fields to struct sec. Remove linkonce_p field. (elf_linkonce_p): Delete. (elf_discarded_section): Update for sec_info_type change. * section.c (struct sec): Add sec_info_type, use_rela_p, has_tls_reloc, flag11, flag12, flag13, flag14, flag15, flag16, flag20, flag24. (ELF_INFO_TYPE_NONE): Define. (ELF_INFO_TYPE_STABS): Define. (ELF_INFO_TYPE_MERGE): Define. (ELF_INFO_TYPE_EH_FRAME): Define. (ELF_INFO_TYPE_JUST_SYMS): Define. (STD_SECTION): Update struct sec initializer. * ecoff.c (bfd_debug_section): Likewise. * elf.c: Likewise. Update occurrences of sec_info_type and use_rela_p. * elflink.h: Likewise. * elf-eh-frame.c: Likewise. * elf64-alpha.c: Likewise. * elfxx-ia64.c: Likewise. * elfxx-mips.c: Likewise. * bfd-in2.h: Regenerate. * elf32-sparc.c (sec_do_relax): Use elf_section_data macro rather than referring to used_by_bfd. * elf64-sparc.c (sec_do_relax): Likewise. * elf64-mmix.c (mmix_elf_section_data): Likewise. * elfxx-mips.c (mips_elf_section_data): Likewise. * ieee.c (ieee_slurp_section_data): Use ieee_per_section macro. (ieee_get_section_contents): Likewise. (ieee_new_section_hook): Formatting. (ieee_canonicalize_reloc): Remove commented out code. * mmo.c (mmo_section_data): Define. Use throughout file. * oasys.c (oasys_get_section_contents): Use oasys_per_section macro. gas * config/obj-elf.c (obj_elf_change_section): Set SEC_LINK_ONCE and SEC_LINK_DUPLICATES_DISCARD directly rather than using elf_linkonce_p.
2003-02-04 13:34:08 +01:00
oasys_per_section_type *p = oasys_per_section (section);
1999-05-03 09:29:11 +02:00
oasys_slurp_section_data (abfd);
2002-06-25 08:21:54 +02:00
if (! p->initialized)
1999-05-03 09:29:11 +02:00
{
(void) memset (location, 0, (size_t) count);
1999-05-03 09:29:11 +02:00
}
else
{
(void) memcpy (location, (PTR) (p->data + offset), (size_t) count);
1999-05-03 09:29:11 +02:00
}
return TRUE;
1999-05-03 09:29:11 +02:00
}
long
oasys_canonicalize_reloc (ignore_abfd, section, relptr, symbols)
bfd *ignore_abfd ATTRIBUTE_UNUSED;
1999-05-03 09:29:11 +02:00
sec_ptr section;
arelent **relptr;
asymbol **symbols ATTRIBUTE_UNUSED;
1999-05-03 09:29:11 +02:00
{
unsigned int reloc_count = 0;
oasys_reloc_type *src = (oasys_reloc_type *) (section->relocation);
while (src != (oasys_reloc_type *) NULL)
{
abort ();
#if 0
if (src->relent.section == (asection *) NULL)
{
src->relent.sym_ptr_ptr = symbols + src->symbol;
}
#endif
*relptr++ = &src->relent;
src = src->next;
reloc_count++;
}
*relptr = (arelent *) NULL;
return section->reloc_count = reloc_count;
}
/* Writing */
/* Calculate the checksum and write one record */
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_write_record (abfd, type, record, size)
bfd *abfd;
oasys_record_enum_type type;
oasys_record_union_type *record;
size_t size;
{
int checksum;
size_t i;
unsigned char *ptr;
record->header.length = size;
record->header.type = (int) type;
record->header.check_sum = 0;
record->header.fill = 0;
ptr = (unsigned char *) &record->pad[0];
checksum = 0;
for (i = 0; i < size; i++)
{
checksum += *ptr++;
}
record->header.check_sum = 0xff & (-checksum);
if (bfd_bwrite ((PTR) record, (bfd_size_type) size, abfd) != size)
return FALSE;
return TRUE;
1999-05-03 09:29:11 +02:00
}
/* Write out all the symbols */
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_write_syms (abfd)
bfd *abfd;
{
unsigned int count;
asymbol **generic = bfd_get_outsymbols (abfd);
unsigned int index = 0;
for (count = 0; count < bfd_get_symcount (abfd); count++)
{
oasys_symbol_record_type symbol;
asymbol *const g = generic[count];
1999-05-03 09:29:11 +02:00
const char *src = g->name;
1999-05-03 09:29:11 +02:00
char *dst = symbol.name;
unsigned int l = 0;
if (bfd_is_com_section (g->section))
{
symbol.relb = RELOCATION_TYPE_COM;
H_PUT_16 (abfd, index, symbol.refno);
1999-05-03 09:29:11 +02:00
index++;
}
else if (bfd_is_abs_section (g->section))
{
symbol.relb = RELOCATION_TYPE_ABS;
H_PUT_16 (abfd, 0, symbol.refno);
1999-05-03 09:29:11 +02:00
}
else if (bfd_is_und_section (g->section))
{
symbol.relb = RELOCATION_TYPE_UND;
H_PUT_16 (abfd, index, symbol.refno);
1999-05-03 09:29:11 +02:00
/* Overload the value field with the output index number */
index++;
}
else if (g->flags & BSF_DEBUGGING)
{
/* throw it away */
continue;
}
else
{
if (g->section == (asection *) NULL)
{
/* Sometime, the oasys tools give out a symbol with illegal
bits in it, we'll output it in the same broken way */
symbol.relb = RELOCATION_TYPE_REL | 0;
}
else
{
symbol.relb = RELOCATION_TYPE_REL | g->section->output_section->target_index;
}
H_PUT_16 (abfd, 0, symbol.refno);
1999-05-03 09:29:11 +02:00
}
#ifdef UNDERSCORE_HACK
if (src[l] == '_')
dst[l++] = '.';
#endif
while (src[l])
{
dst[l] = src[l];
l++;
}
H_PUT_32 (abfd, g->value, symbol.value);
1999-05-03 09:29:11 +02:00
if (g->flags & BSF_LOCAL)
{
if (! oasys_write_record (abfd,
oasys_record_is_local_enum,
(oasys_record_union_type *) & symbol,
offsetof (oasys_symbol_record_type,
name[0]) + l))
return FALSE;
1999-05-03 09:29:11 +02:00
}
else
{
if (! oasys_write_record (abfd,
oasys_record_is_symbol_enum,
(oasys_record_union_type *) & symbol,
offsetof (oasys_symbol_record_type,
name[0]) + l))
return FALSE;
1999-05-03 09:29:11 +02:00
}
g->value = index - 1;
}
return TRUE;
1999-05-03 09:29:11 +02:00
}
/* Write a section header for each section */
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_write_sections (abfd)
bfd *abfd;
{
asection *s;
static oasys_section_record_type out;
for (s = abfd->sections; s != (asection *) NULL; s = s->next)
{
if (!ISDIGIT (s->name[0]))
1999-05-03 09:29:11 +02:00
{
(*_bfd_error_handler)
(_("%s: can not represent section `%s' in oasys"),
bfd_get_filename (abfd), s->name);
bfd_set_error (bfd_error_nonrepresentable_section);
return FALSE;
1999-05-03 09:29:11 +02:00
}
out.relb = RELOCATION_TYPE_REL | s->target_index;
H_PUT_32 (abfd, s->_cooked_size, out.value);
H_PUT_32 (abfd, s->vma, out.vma);
1999-05-03 09:29:11 +02:00
if (! oasys_write_record (abfd,
oasys_record_is_section_enum,
(oasys_record_union_type *) & out,
sizeof (out)))
return FALSE;
1999-05-03 09:29:11 +02:00
}
return TRUE;
1999-05-03 09:29:11 +02:00
}
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_write_header (abfd)
bfd *abfd;
{
/* Create and write the header */
oasys_header_record_type r;
size_t length = strlen (abfd->filename);
if (length > (size_t) sizeof (r.module_name))
{
length = sizeof (r.module_name);
}
(void) memcpy (r.module_name,
abfd->filename,
length);
(void) memset (r.module_name + length,
' ',
sizeof (r.module_name) - length);
r.version_number = OASYS_VERSION_NUMBER;
r.rev_number = OASYS_REV_NUMBER;
if (! oasys_write_record (abfd,
oasys_record_is_header_enum,
(oasys_record_union_type *) & r,
offsetof (oasys_header_record_type,
description[0])))
return FALSE;
1999-05-03 09:29:11 +02:00
return TRUE;
1999-05-03 09:29:11 +02:00
}
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_write_end (abfd)
bfd *abfd;
{
oasys_end_record_type end;
unsigned char null = 0;
end.relb = RELOCATION_TYPE_ABS;
H_PUT_32 (abfd, abfd->start_address, end.entry);
H_PUT_16 (abfd, 0, end.fill);
1999-05-03 09:29:11 +02:00
end.zero = 0;
if (! oasys_write_record (abfd,
oasys_record_is_end_enum,
(oasys_record_union_type *) & end,
sizeof (end)))
return FALSE;
if (bfd_bwrite ((PTR) &null, (bfd_size_type) 1, abfd) != 1)
return FALSE;
return TRUE;
1999-05-03 09:29:11 +02:00
}
static int
comp (ap, bp)
const PTR ap;
const PTR bp;
1999-05-03 09:29:11 +02:00
{
arelent *a = *((arelent **) ap);
arelent *b = *((arelent **) bp);
return a->address - b->address;
}
/*
Writing data..
*/
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_write_data (abfd)
bfd *abfd;
{
asection *s;
for (s = abfd->sections; s != (asection *) NULL; s = s->next)
{
if (s->flags & SEC_LOAD)
{
bfd_byte *raw_data = oasys_per_section (s)->data;
oasys_data_record_type processed_data;
bfd_size_type current_byte_index = 0;
unsigned int relocs_to_go = s->reloc_count;
arelent **p = s->orelocation;
if (s->reloc_count != 0)
{
/* Sort the reloc records so it's easy to insert the relocs into the
data */
qsort (s->orelocation,
s->reloc_count,
sizeof (arelent **),
comp);
}
current_byte_index = 0;
processed_data.relb = s->target_index | RELOCATION_TYPE_REL;
while (current_byte_index < s->_cooked_size)
{
/* Scan forwards by eight bytes or however much is left and see if
there are any relocations going on */
bfd_byte *mod = &processed_data.data[0];
bfd_byte *dst = &processed_data.data[1];
unsigned int i = 0;
*mod = 0;
H_PUT_32 (abfd, s->vma + current_byte_index,
processed_data.addr);
1999-05-03 09:29:11 +02:00
/* Don't start a relocation unless you're sure you can finish it
within the same data record. The worst case relocation is a
4-byte relocatable value which is split across two modification
bytes (1 relocation byte + 2 symbol reference bytes + 2 data +
1 modification byte + 2 data = 8 bytes total). That's where
the magic number 8 comes from.
*/
while (current_byte_index < s->_raw_size && dst <=
&processed_data.data[sizeof (processed_data.data) - 8])
{
if (relocs_to_go != 0)
{
arelent *r = *p;
reloc_howto_type *const how = r->howto;
/* There is a relocation, is it for this byte ? */
if (r->address == current_byte_index)
{
unsigned char rel_byte;
p++;
relocs_to_go--;
*mod |= (1 << i);
if (how->pc_relative)
{
rel_byte = RELOCATION_PCREL_BIT;
/* Also patch the raw data so that it doesn't have
the -ve stuff any more */
if (how->size != 2)
{
bfd_put_16 (abfd,
bfd_get_16 (abfd, raw_data) +
current_byte_index, raw_data);
}
else
{
bfd_put_32 (abfd,
bfd_get_32 (abfd, raw_data) +
current_byte_index, raw_data);
}
}
else
{
rel_byte = 0;
}
if (how->size == 2)
{
rel_byte |= RELOCATION_32BIT_BIT;
}
/* Is this a section relative relocation, or a symbol
relative relocation ? */
abort ();
#if 0
if (r->section != (asection *) NULL)
{
/* The relent has a section attached, so it must be section
relative */
rel_byte |= RELOCATION_TYPE_REL;
rel_byte |= r->section->output_section->target_index;
*dst++ = rel_byte;
}
else
#endif
{
asymbol *sym = *(r->sym_ptr_ptr);
1999-05-03 09:29:11 +02:00
/* If this symbol has a section attached, then it
has already been resolved. Change from a symbol
ref to a section ref */
if (sym->section != (asection *) NULL)
1999-05-03 09:29:11 +02:00
{
rel_byte |= RELOCATION_TYPE_REL;
rel_byte |=
sym->section->output_section->target_index;
1999-05-03 09:29:11 +02:00
*dst++ = rel_byte;
}
else
{
rel_byte |= RELOCATION_TYPE_UND;
*dst++ = rel_byte;
/* Next two bytes are a symbol index - we can get
this from the symbol value which has been zapped
into the symbol index in the table when the
symbol table was written
*/
*dst++ = sym->value >> 8;
*dst++ = sym->value;
1999-05-03 09:29:11 +02:00
}
}
#define ADVANCE { if (++i >= 8) { i = 0; mod = dst++; *mod = 0; } current_byte_index++; }
/* relocations never occur from an unloadable section,
so we can assume that raw_data is not NULL
*/
*dst++ = *raw_data++;
ADVANCE
* dst++ = *raw_data++;
ADVANCE
if (how->size == 2)
{
*dst++ = *raw_data++;
ADVANCE
* dst++ = *raw_data++;
ADVANCE
}
continue;
}
}
/* If this is coming from an unloadable section then copy
zeros */
if (raw_data == NULL)
{
*dst++ = 0;
}
else
{
*dst++ = *raw_data++;
}
ADVANCE
}
/* Don't write a useless null modification byte */
if (dst == mod + 1)
{
--dst;
}
if (! (oasys_write_record
(abfd, oasys_record_is_data_enum,
((oasys_record_union_type *) &processed_data),
(size_t) (dst - (bfd_byte *) &processed_data))))
return FALSE;
1999-05-03 09:29:11 +02:00
}
}
}
return TRUE;
1999-05-03 09:29:11 +02:00
}
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_write_object_contents (abfd)
bfd *abfd;
{
if (! oasys_write_header (abfd))
return FALSE;
1999-05-03 09:29:11 +02:00
if (! oasys_write_syms (abfd))
return FALSE;
1999-05-03 09:29:11 +02:00
if (! oasys_write_sections (abfd))
return FALSE;
1999-05-03 09:29:11 +02:00
if (! oasys_write_data (abfd))
return FALSE;
1999-05-03 09:29:11 +02:00
if (! oasys_write_end (abfd))
return FALSE;
return TRUE;
1999-05-03 09:29:11 +02:00
}
/** exec and core file sections */
/* set section contents is complicated with OASYS since the format is
* not a byte image, but a record stream.
*/
static bfd_boolean
1999-05-03 09:29:11 +02:00
oasys_set_section_contents (abfd, section, location, offset, count)
bfd *abfd;
sec_ptr section;
PTR location;
file_ptr offset;
bfd_size_type count;
{
if (count != 0)
{
if (oasys_per_section (section)->data == (bfd_byte *) NULL)
{
oasys_per_section (section)->data =
(bfd_byte *) (bfd_alloc (abfd, section->_cooked_size));
if (!oasys_per_section (section)->data)
return FALSE;
1999-05-03 09:29:11 +02:00
}
(void) memcpy ((PTR) (oasys_per_section (section)->data + offset),
location,
(size_t) count);
}
return TRUE;
1999-05-03 09:29:11 +02:00
}
/* Native-level interface to symbols. */
/* We read the symbols into a buffer, which is discarded when this
function exits. We read the strings into a buffer large enough to
hold them all plus all the cached symbol entries. */
static asymbol *
oasys_make_empty_symbol (abfd)
bfd *abfd;
{
bfd_size_type amt = sizeof (oasys_symbol_type);
oasys_symbol_type *new = (oasys_symbol_type *) bfd_zalloc (abfd, amt);
1999-05-03 09:29:11 +02:00
if (!new)
return NULL;
new->symbol.the_bfd = abfd;
return &new->symbol;
}
/* User should have checked the file flags; perhaps we should return
BFD_NO_MORE_SYMBOLS if there are none? */
static bfd *
oasys_openr_next_archived_file (arch, prev)
bfd *arch;
bfd *prev;
{
oasys_ar_data_type *ar = OASYS_AR_DATA (arch);
oasys_module_info_type *p;
/* take the next one from the arch state, or reset */
if (prev == (bfd *) NULL)
{
/* Reset the index - the first two entries are bogus*/
ar->module_index = 0;
}
p = ar->module + ar->module_index;
ar->module_index++;
if (ar->module_index <= ar->module_count)
{
if (p->abfd == (bfd *) NULL)
{
p->abfd = _bfd_create_empty_archive_element_shell (arch);
p->abfd->origin = p->pos;
p->abfd->filename = p->name;
/* Fixup a pointer to this element for the member */
p->abfd->arelt_data = (PTR) p;
}
return p->abfd;
}
else
{
bfd_set_error (bfd_error_no_more_archived_files);
return (bfd *) NULL;
}
}
static bfd_boolean
oasys_find_nearest_line (abfd, section, symbols, offset,
filename_ptr, functionname_ptr, line_ptr)
bfd *abfd ATTRIBUTE_UNUSED;
asection *section ATTRIBUTE_UNUSED;
asymbol **symbols ATTRIBUTE_UNUSED;
bfd_vma offset ATTRIBUTE_UNUSED;
const char **filename_ptr ATTRIBUTE_UNUSED;
const char **functionname_ptr ATTRIBUTE_UNUSED;
unsigned int *line_ptr ATTRIBUTE_UNUSED;
1999-05-03 09:29:11 +02:00
{
return FALSE;
1999-05-03 09:29:11 +02:00
}
static int
oasys_generic_stat_arch_elt (abfd, buf)
bfd *abfd;
struct stat *buf;
{
oasys_module_info_type *mod = (oasys_module_info_type *) abfd->arelt_data;
if (mod == (oasys_module_info_type *) NULL)
{
bfd_set_error (bfd_error_invalid_operation);
return -1;
}
else
{
buf->st_size = mod->size;
buf->st_mode = 0666;
return 0;
}
}
static int
oasys_sizeof_headers (abfd, exec)
bfd *abfd ATTRIBUTE_UNUSED;
bfd_boolean exec ATTRIBUTE_UNUSED;
1999-05-03 09:29:11 +02:00
{
return 0;
}
#define oasys_close_and_cleanup _bfd_generic_close_and_cleanup
#define oasys_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
#define oasys_slurp_armap bfd_true
#define oasys_slurp_extended_name_table bfd_true
#define oasys_construct_extended_name_table \
((bfd_boolean (*) PARAMS ((bfd *, char **, bfd_size_type *, const char **))) \
1999-05-03 09:29:11 +02:00
bfd_true)
#define oasys_truncate_arname bfd_dont_truncate_arname
#define oasys_write_armap \
((bfd_boolean (*) \
1999-05-03 09:29:11 +02:00
PARAMS ((bfd *, unsigned int, struct orl *, unsigned int, int))) \
bfd_true)
#define oasys_read_ar_hdr bfd_nullvoidptr
#define oasys_get_elt_at_index _bfd_generic_get_elt_at_index
#define oasys_update_armap_timestamp bfd_true
#define oasys_bfd_is_local_label_name bfd_generic_is_local_label_name
#define oasys_get_lineno _bfd_nosymbols_get_lineno
#define oasys_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
#define oasys_read_minisymbols _bfd_generic_read_minisymbols
#define oasys_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
#define oasys_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup
#define oasys_set_arch_mach bfd_default_set_arch_mach
#define oasys_get_section_contents_in_window \
_bfd_generic_get_section_contents_in_window
#define oasys_bfd_get_relocated_section_contents \
bfd_generic_get_relocated_section_contents
#define oasys_bfd_relax_section bfd_generic_relax_section
#define oasys_bfd_gc_sections bfd_generic_gc_sections
* merge.c (struct sec_merge_hash_entry): Add u.entsize and u.suffix fields, change sec into secinfo. (struct sec_merge_info): Add chain, remove last fields. (struct sec_merge_sec_info): Add next, sec, psecinfo fields. (sec_merge_hash_lookup): If lookup could not use a string only because it has bad alignment, mark the old string for deletion. (sec_merge_add): Add secinfo argument. Don't compute entry's position, instead record the section. (sec_merge_emit): Update for the sec into secinfo change in struct sec_merge_hash_entry. (_bfd_merge_section): Only record the section for merging, defer putting strings into the hash table. (cmplengthentry, last4_eq, last_eq, record_section, merge_strings, _bfd_merge_sections): New functions. (_bfd_merged_section_offset): Update for the sec_merge_hash_entry changes. * libbfd-in.h (_bfd_merge_sections): Add prototype. (_bfd_nolink_bfd_merge_sections): Define. * libbfd.h: Likewise. (bfd_generic_merge_sections): Add prototype. * targets.c (BFD_JUMP_TABLE_LINK): Add _bfd_merge_sections. (struct bfd_target): Likewise. * bfd.c (bfd_merge_sections): Define. * bfd-in2.h: Rebuilt. * elf.c (_bfd_elf_merge_sections): New function. * elf-bfd.h (_bfd_elf_merge_sections): Add prototype. * elfxx-target.h (bfd_elfNN_bfd_merge_sections): Define. * reloc.c (bfd_generic_merge_sections): New function. * vms.c (vms_bfd_merge_sections): New function. * aout-adobe.c (aout_32_bfd_merge_sections): Define. * aout-target.h (MY_bfd_merge_sections): Define. * aout-tic30.c (MY_bfd_merge_sections): Define. * binary.c (binary_bfd_merge_sections): Define. * bout.c (b_out_bfd_merge_sections): Define. * coff-alpha.c (_bfd_ecoff_bfd_merge_sections): Define. * coffcode.c (coff_bfd_merge_sections): Define. * coff-mips.c (_bfd_ecoff_bfd_merge_sections): Define. * i386msdos.c (msdos_bfd_merge_sections): Define. * i386os9k.c (os9k_bfd_merge_sections): Define. * ieee.c (ieee_bfd_merge_sections): Define. * ihex.c (ihex_bfd_merge_sections): Define. * nlm-target.h (nlm_bfd_merge_sections): Define. * oasys.c (oasys_bfd_merge_sections): Define. * ppcboot.c (ppcboot_bfd_merge_sections): Define. * som.c (som_bfd_merge_sections): Define. * srec.c (srec_bfd_merge_sections): Define. * tekhex.c (tekhex_bfd_merge_sections): Define. * versados.c (versados_bfd_merge_sections): Define. * xcoff-target.h (_bfd_xcoff_bfd_merge_sections): Define. * ldlang.c (lang_process): Call bfd_merge_sections.
2001-05-11 14:23:48 +02:00
#define oasys_bfd_merge_sections bfd_generic_merge_sections
* bfd-in.h: Remove "taken from the source" comment. * libbfd-in.h: Likewise. * libcoff-in.h: Likewise. * bfd-in2.h: Regenerate. * libbfd.h: Regenerate. * libcoff.h: Regenerate. * elf.c (bfd_elf_discard_group): Return true. * elf-bfd.h (bfd_elf_discard_group): Declare. * bfd-in.h (bfd_elf_discard_group): Don't declare here. * section.c (bfd_discard_group): Rename to bfd_generic_discard_group. * bfd.c (bfd_discard_group): Define. * targets.c (struct bfd_target): Add _bfd_discard_group. (BFD_JUMP_TABLE_LINK): Here too. * libbfd-in.h (_bfd_nolink_bfd_discard_group): Define. * aout-adobe.c (aout_32_bfd_discard_group): Define. * aout-target.h (MY_bfd_discard_group): Define. * aout-tic30.c (MY_bfd_discard_group): Define. * binary.c (binary_bfd_discard_group): Define. * bout.c (b_out_bfd_discard_group): Define. * coff-alpha.c (_bfd_ecoff_bfd_discard_group): Define. * coffcode.h (coff_bfd_discard_group): Define. * coff-mips.c (_bfd_ecoff_bfd_discard_group): Define. * elfxx-target.h (bfd_elfNN_bfd_discard_group): Define. * i386msdos.c (msdos_bfd_discard_group): Define. * i386os9k.c (os9k_bfd_discard_group): Define. * ieee.c (ieee_bfd_discard_group): Define. * ihex.c (ihex_bfd_discard_group): Define. * mmo.c (mmo_bfd_discard_group): Define. * nlm-target.h (nlm_bfd_discard_group): Define. * oasys.c (oasys_bfd_discard_group): Define. * ppcboot.c (ppcboot_bfd_discard_group): Define. * som.c (som_bfd_discard_group): Define. * srec.c (srec_bfd_discard_group): Define. * tekhex.c (tekhex_bfd_discard_group): Define. * versados.c (versados_bfd_discard_group): Define. * vms.c (vms_bfd_discard_group): Define. * xcoff-target.h (_bfd_xcoff_bfd_discard_group): Define. * coff64-rs6000.c (rs6000coff64_vec): Update initialiser. (aix5coff64_vec): Likewise. * coff-rs6000.c (rs6000coff_vec, pmac_xcoff_vec): Likewise.
2002-06-05 05:43:11 +02:00
#define oasys_bfd_discard_group bfd_generic_discard_group
1999-05-03 09:29:11 +02:00
#define oasys_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
2002-04-04 Daniel Jacobowitz <drow@mvista.com> * aout-adobe.c (aout_32_bfd_link_hash_table_free): Define. * aout-target.h (MY_bfd_link_hash_table_free): Conditionally define. * aout-tic30.c (MY_bfd_link_hash_table_free): Likewise. * bfd.c (bfd_link_hash_table_free): Define. * binary.c (binary_bfd_link_hash_table_free): Define. * bout.c (b_out_bfd_link_hash_table_free): Define. * coff-rs6000.c (rs6000coff_vec): Include _bfd_generic_link_hash_table_free. (pmac_xcoff_vec): Likewise. * coff64-rs6000.c (rs6000coff64_vec): Likewise. (aix5coff64_vec): Likewise. * coffcode.h (coff_bfd_link_hash_table_free): Conditionally define. * elf-m10300.c (elf32_mn10300_link_hash_table_free): New function. (bfd_elf32_bfd_link_hash_table_free): Define. * elf32-hppa.c (elf32_hppa_link_hash_table_free): New function. (bfd_elf32_bfd_link_hash_table_free): Define. * elfxx-target.h (bfd_elfNN_bfd_link_hash_table_free): Conditionally define. * i386msdos.c (msdos_bfd_link_hash_table_free): Define. * i386os9k.c (os9k_bfd_link_hash_table_free): Define. * ieee.c (ieee_bfd_link_hash_table_free): Define. * ihex.c (ihex_bfd_link_hash_table_free): Define. * libbfd-in.h (_bfd_nolink_bfd_link_hash_table_free): Define. (_bfd_generic_link_hash_table_free): Add prototype. * libcoff-in.h (_bfd_xcoff_bfd_link_hash_table_free): Add prototype. * libecoff.h (_bfd_ecoff_bfd_link_hash_table_free): Define. * linker.c (_bfd_generic_link_hash_table_free): New function. * mmo.c (mmo_bfd_link_hash_table_free): Define. * nlm-target.h (nlm_bfd_link_hash_table_free): Define. * oasys.c (oasys_bfd_link_hash_table_free): Define. * ppcboot.c (ppcboot_bfd_link_hash_table_free): Define. * som.c (som_bfd_link_hash_table_free): Define. * srec.c (srec_bfd_link_hash_table_free): Define. * tekhex.c (tekhex_bfd_link_hash_table_free): Define. * versados.c (versados_bfd_link_hash_table_free): Define. * vms.c (vms_bfd_link_hash_table_free): New function. * xcofflink.c (_bfd_xcoff_bfd_link_hash_table_free): New function. * coff-arm.c (coff_arm_link_hash_table_create): Use bfd_malloc instead of bfd_alloc. * coff-h8300.c (h8300_coff_link_hash_table_create): Likewise. * coff-mcore.c (coff_mcore_link_hash_table_create): Likewise. * coff-ppc.c (ppc_coff_link_hash_table_create): Likewise. * cofflink.c (_bfd_coff_link_hash_table_create): Likewise. * ecoff.c (_bfd_ecoff_bfd_link_hash_table_create): Likewise. * elf-m10300.c (elf32_mn10300_link_hash_table_create): Likewise. * elf.c (_bfd_elf_link_hash_table_create): Likewise. * elf32-arm.h (elf32_arm_link_hash_table_create): Likewise. * elf32-cris.c (elf_cris_link_hash_table_create): Likewise. * elf32-hppa.c (elf32_hppa_link_hash_table_create): Likewise. * elf32-i386.c (elf_i386_link_hash_table_create): Likewise. * elf32-m68k.c (elf_m68k_link_hash_table_create): Likewise. * elf32-s390.c (elf_s390_link_hash_table_create): Likewise. * elf32-sh.c (sh_elf_link_hash_table_create): Likewise. * elf64-alpha.c (elf64_alpha_bfd_link_hash_table_create): Likewise. * elf64-ppc.c (ppc64_elf_link_hash_table_create): Likewise. * elf64-s390.c (elf_s390_link_hash_table_create): Likewise. * elf64-sh64.c (sh64_elf64_link_hash_table_create): Likewise. * elf64-sparc.c (sparc64_elf_bfd_link_hash_table_create): Likewise. * elf64-x86-64.c (elf64_x86_64_link_hash_table_create): Likewise. * elfxx-mips.c (_bfd_mips_elf_link_hash_table_create): Likewise. * linker.c (_bfd_generic_link_hash_table_create): Likewise. * m68klinux.c (linux_link_hash_table_create): Likewise. * sparclinux.c (linux_link_hash_table_create): Likewise. * sunos.c (sunos_link_hash_table_create): Likewise. * xcofflink.c (_bfd_xcoff_bfd_link_hash_table_create): Likewise. * targets.c: Add _bfd_link_hash_table_free to xvec. * bfd-in2.h: Regenerate. * libbfd.h: Regenerate. * libcoff.h: Regenerate.
2002-04-04 21:53:38 +02:00
#define oasys_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
1999-05-03 09:29:11 +02:00
#define oasys_bfd_link_add_symbols _bfd_generic_link_add_symbols
Fix ld --just-symbols * aix5ppc-core.c: Warning fixes. * aout-adobe.c (aout_32_bfd_link_just_syms): Define. * aout-target.h (MY_bfd_link_just_syms): Define. * aout-tic30.c (MY_bfd_link_just_syms): Define. * bfd.c (bfd_link_just_syms): Define. * binary.c (binary_bfd_link_just_syms): Define. * bout.c (b_out_bfd_link_just_syms): Define. * coff-rs6000.c (rs6000coff_vec, pmac_xcoff_vec): Update initializer. * coff64-rs6000.c (rs6000coff64_vec, aix5coff64_vec): Likewise. * coffcode.h (coff_bfd_link_just_syms): Define. * elf-bfd.h (enum elf_link_info_type): Add ELF_INFO_TYPE_JUST_SYMS. (elf_discarded_section): Check for ELF_INFO_TYPE_JUST_SYMS. (_bfd_elf_link_just_syms): Declare. * elf.c (_bfd_elf_link_just_syms): New function. * elf-eh-frame.c (_bfd_elf_maybe_strip_eh_frame_hdr): Check that sections haven't already been discarded by the linker. * elflink.h (elf_link_add_object_symbols): Likewise for stab sections and SEC_MERGE sections. (elf_bfd_discard_info): Similarly here. * elfxx-target.h (bfd_elfNN_bfd_link_just_syms): Define. * i386msdos.c (msdos_bfd_link_just_syms): Define. * i386os9k.c (os9k_bfd_link_just_syms): Define. * ieee.c (ieee_bfd_link_just_syms): Define. * ihex.c (ihex_bfd_link_just_syms): Define. * libbfd-in.h (_bfd_nolink_bfd_link_just_syms): Define. (_bfd_generic_link_just_syms): Declare. * libecoff.h (_bfd_ecoff_bfd_link_just_syms): Define. * linker.c (_bfd_generic_link_just_syms): New function. * mmo.c (mmo_bfd_link_just_syms): Define. * nlm-target.h (nlm_bfd_link_just_syms): Define. * oasys.c (oasys_bfd_link_just_syms): Define. * ppcboot.c (ppcboot_bfd_link_just_syms): Define. * som.c (som_bfd_link_just_syms): Define. * srec.c (srec_bfd_link_just_syms): Define. * targets.c (struct bfd_target): Add _bfd_link_just_syms. (BFD_JUMP_TABLE_LINK): And here. * tekhex.c (tekhex_bfd_link_just_syms): Define. * versados.c (versados_bfd_link_just_syms): Define. * vms.c (vms_bfd_link_just_syms): Define. * libbfd.h: Regenerate. * bfd-in2.h: Regenerate.
2002-05-15 02:18:58 +02:00
#define oasys_bfd_link_just_syms _bfd_generic_link_just_syms
1999-05-03 09:29:11 +02:00
#define oasys_bfd_final_link _bfd_generic_final_link
#define oasys_bfd_link_split_section _bfd_generic_link_split_section
/*SUPPRESS 460 */
const bfd_target oasys_vec =
{
"oasys", /* name */
bfd_target_oasys_flavour,
BFD_ENDIAN_BIG, /* target byte order */
BFD_ENDIAN_BIG, /* target headers byte order */
(HAS_RELOC | EXEC_P | /* object flags */
HAS_LINENO | HAS_DEBUG |
HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
(SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS
| SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
0, /* leading underscore */
' ', /* ar_pad_char */
16, /* ar_max_namelen */
bfd_getb64, bfd_getb_signed_64, bfd_putb64,
bfd_getb32, bfd_getb_signed_32, bfd_putb32,
bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
bfd_getb64, bfd_getb_signed_64, bfd_putb64,
bfd_getb32, bfd_getb_signed_32, bfd_putb32,
bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
{_bfd_dummy_target,
oasys_object_p, /* bfd_check_format */
oasys_archive_p,
_bfd_dummy_target,
},
{ /* bfd_set_format */
bfd_false,
oasys_mkobject,
_bfd_generic_mkarchive,
bfd_false
},
{ /* bfd_write_contents */
bfd_false,
oasys_write_object_contents,
_bfd_write_archive_contents,
bfd_false,
},
BFD_JUMP_TABLE_GENERIC (oasys),
BFD_JUMP_TABLE_COPY (_bfd_generic),
BFD_JUMP_TABLE_CORE (_bfd_nocore),
BFD_JUMP_TABLE_ARCHIVE (oasys),
BFD_JUMP_TABLE_SYMBOLS (oasys),
BFD_JUMP_TABLE_RELOCS (oasys),
BFD_JUMP_TABLE_WRITE (oasys),
BFD_JUMP_TABLE_LINK (oasys),
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
NULL,
1999-05-03 09:29:11 +02:00
(PTR) 0
};