Imagelibrary/binutils-gdb
1
0
Fork 1
mirror of https://github.com/bminor/binutils-gdb.git synced 2025-11-16 12:34:43 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
ee29a3c4ac7adc928ae6ed1fed3b59c940a519a4
binutils-gdb/bfd/xsym.c
Alan Modra 6f0ab55187 tdata related object_p tidy for various formats 
The aout object_p function copies any existing tdata.  Apparently this
was done for hp300, an old target that is no longer supported.  See
commit ebd2413529.  This isn't useful for current sources, nor is it
necessary or useful any more to preserve tdata in object_p functions
when a target doesn't match.  When I was fixing this, I noticed some
object_p functions rudely didn't release memory on failures, and
others had nits in the bfd_error returns.

	* aoutx.h (some_aout_object_p): Don't restore previous tdata
	on failure.  Don't copy any existing tdata.
	* archive.c (bfd_generic_archive_p): Don't restore previous
	tdata on failure.
	* pdp11.c (some_aout_object_p): Likewise.
	* coff-rs6000.c (_bfd_xcoff_archive_p): Allocate both artdata
	and extension in one call.  Don't restore previous tdata on
	failure.
	* coff64-rs6000.c (xcoff64_archive_p): Likewise.
	* coffgen.c (coff_real_object_p): Don't restore previous
	tdata on failure.
	* ihex.c (ihex_object_p): Likewise.  Simplify release of tdata
	on scan failure.
	* mach-o.c (bfd_mach_o_scan): Don't set tdata here.  Do set
	error on read_command failure.
	(bfd_mach_o_header_p): Set tdata here, release on failure.
	Tidy bfd_error return values.
	(bfd_mach_o_fat_archive_p): Tidy error return values.
	* mmo.c (mmo_mkobject): Do not test current tdata.
	* pef.c (bfd_pef_scan_start_address): Set bfd_error on
	failure.
	(bfd_pef_scan): Don't set tdata here.
	(bfd_pef_object_p): Set tdata here, release on failure.  Tidy
	bfd_error return values.
	(bfd_pef_xlib_object_p): Tidy bfd_error return values.
	* srec.c (srec_object_p): Don't restore previous tdata on
	failure.  Do release tdata on failure.
	(symbolsrec_object_p): Likewise.
	* tekhex.c (tekhex_object_p): Don't ignore tekhex_mkobject
	failure.  Release tdata on failure.
	* vms-alpha.c (alpha_vms_object_p): Don't restore previous
	tdata on failure.  Simplify release of tdata.
	* xsym.c (bfd_sym_scan): Don't set tdata here.
	(bfd_sym_object_p): Set tdata here.  Release on failure.
2024-12-12 16:04:51 +10:30

2341 lines
61 KiB
C
Raw Blame History

/* xSYM symbol-file support for BFD.
Copyright (C) 1999-2024 Free Software Foundation, Inc.
This file is part of BFD, the Binary File Descriptor library.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 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., 51 Franklin Street - Fifth Floor, Boston,
MA 02110-1301, USA. */
/* xSYM is the debugging format used by CodeWarrior on Mac OS classic. */
#include "sysdep.h"
#include "xsym.h"
#include "bfd.h"
#include "libbfd.h"
#define bfd_sym_close_and_cleanup _bfd_generic_close_and_cleanup
#define bfd_sym_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
#define bfd_sym_new_section_hook _bfd_generic_new_section_hook
#define bfd_sym_bfd_is_local_label_name bfd_generic_is_local_label_name
#define bfd_sym_bfd_is_target_special_symbol _bfd_bool_bfd_asymbol_false
#define bfd_sym_get_lineno _bfd_nosymbols_get_lineno
#define bfd_sym_find_nearest_line _bfd_nosymbols_find_nearest_line
#define bfd_sym_find_nearest_line_with_alt _bfd_nosymbols_find_nearest_line_with_alt
#define bfd_sym_find_line _bfd_nosymbols_find_line
#define bfd_sym_find_inliner_info _bfd_nosymbols_find_inliner_info
#define bfd_sym_get_symbol_version_string _bfd_nosymbols_get_symbol_version_string
#define bfd_sym_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
#define bfd_sym_read_minisymbols _bfd_generic_read_minisymbols
#define bfd_sym_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
#define bfd_sym_set_arch_mach _bfd_generic_set_arch_mach
#define bfd_sym_get_section_contents _bfd_generic_get_section_contents
#define bfd_sym_set_section_contents _bfd_generic_set_section_contents
#define bfd_sym_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents
#define bfd_sym_bfd_relax_section bfd_generic_relax_section
#define bfd_sym_bfd_gc_sections bfd_generic_gc_sections
#define bfd_sym_bfd_lookup_section_flags bfd_generic_lookup_section_flags
#define bfd_sym_bfd_merge_sections bfd_generic_merge_sections
#define bfd_sym_bfd_is_group_section bfd_generic_is_group_section
#define bfd_sym_bfd_group_name bfd_generic_group_name
#define bfd_sym_bfd_discard_group bfd_generic_discard_group
#define bfd_sym_section_already_linked _bfd_generic_section_already_linked
#define bfd_sym_bfd_define_common_symbol bfd_generic_define_common_symbol
#define bfd_sym_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
#define bfd_sym_bfd_define_start_stop bfd_generic_define_start_stop
#define bfd_sym_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
#define bfd_sym_bfd_link_add_symbols _bfd_generic_link_add_symbols
#define bfd_sym_bfd_link_just_syms _bfd_generic_link_just_syms
#define bfd_sym_bfd_copy_link_hash_symbol_type \
_bfd_generic_copy_link_hash_symbol_type
#define bfd_sym_bfd_final_link _bfd_generic_final_link
#define bfd_sym_bfd_link_split_section _bfd_generic_link_split_section
#define bfd_sym_bfd_link_check_relocs _bfd_generic_link_check_relocs
extern const bfd_target sym_vec;
static int
pstrcmp (const char *as, const char *bs)
{
const unsigned char *a = (const unsigned char *) as;
const unsigned char *b = (const unsigned char *) bs;
unsigned char clen;
int ret;
clen = (a[0] > b[0]) ? b[0] : a[0];
ret = memcmp (a + 1, b + 1, clen);
if (ret != 0)
return ret;
if (a[0] == b[0])
return 0;
else if (a[0] < b[0])
return -1;
else
return 1;
}
static unsigned long
compute_offset (unsigned long first_page,
unsigned long page_size,
unsigned long entry_size,
unsigned long sym_index)
{
unsigned long entries_per_page = page_size / entry_size;
unsigned long page_number = first_page + (sym_index / entries_per_page);
unsigned long page_offset = (sym_index % entries_per_page) * entry_size;
return (page_number * page_size) + page_offset;
}
bool
bfd_sym_mkobject (bfd *abfd ATTRIBUTE_UNUSED)
{
return 1;
}
void
bfd_sym_print_symbol (bfd *abfd ATTRIBUTE_UNUSED,
void * afile ATTRIBUTE_UNUSED,
asymbol *symbol ATTRIBUTE_UNUSED,
bfd_print_symbol_type how ATTRIBUTE_UNUSED)
{
return;
}
bool
bfd_sym_valid (bfd *abfd)
{
if (abfd == NULL || abfd->xvec == NULL)
return 0;
return abfd->xvec == &sym_vec;
}
unsigned char *
bfd_sym_read_name_table (bfd *abfd, bfd_sym_header_block *dshb)
{
size_t table_size = dshb->dshb_nte.dti_page_count * dshb->dshb_page_size;
size_t table_offset = dshb->dshb_nte.dti_first_page * dshb->dshb_page_size;
if (bfd_seek (abfd, table_offset, SEEK_SET) != 0)
return NULL;
return _bfd_alloc_and_read (abfd, table_size, table_size);
}
void
bfd_sym_parse_file_reference_v32 (unsigned char *buf,
size_t len,
bfd_sym_file_reference *entry)
{
BFD_ASSERT (len == 6);
entry->fref_frte_index = bfd_getb16 (buf);
entry->fref_offset = bfd_getb32 (buf + 2);
}
void
bfd_sym_parse_disk_table_v32 (unsigned char *buf,
size_t len,
bfd_sym_table_info *table)
{
BFD_ASSERT (len == 8);
table->dti_first_page = bfd_getb16 (buf);
table->dti_page_count = bfd_getb16 (buf + 2);
table->dti_object_count = bfd_getb32 (buf + 4);
}
void
bfd_sym_parse_header_v32 (unsigned char *buf,
size_t len,
bfd_sym_header_block *header)
{
BFD_ASSERT (len == 154);
memcpy (header->dshb_id, buf, 32);
header->dshb_page_size = bfd_getb16 (buf + 32);
header->dshb_hash_page = bfd_getb16 (buf + 34);
header->dshb_root_mte = bfd_getb16 (buf + 36);
header->dshb_mod_date = bfd_getb32 (buf + 38);
bfd_sym_parse_disk_table_v32 (buf + 42, 8, &header->dshb_frte);
bfd_sym_parse_disk_table_v32 (buf + 50, 8, &header->dshb_rte);
bfd_sym_parse_disk_table_v32 (buf + 58, 8, &header->dshb_mte);
bfd_sym_parse_disk_table_v32 (buf + 66, 8, &header->dshb_cmte);
bfd_sym_parse_disk_table_v32 (buf + 74, 8, &header->dshb_cvte);
bfd_sym_parse_disk_table_v32 (buf + 82, 8, &header->dshb_csnte);
bfd_sym_parse_disk_table_v32 (buf + 90, 8, &header->dshb_clte);
bfd_sym_parse_disk_table_v32 (buf + 98, 8, &header->dshb_ctte);
bfd_sym_parse_disk_table_v32 (buf + 106, 8, &header->dshb_tte);
bfd_sym_parse_disk_table_v32 (buf + 114, 8, &header->dshb_nte);
bfd_sym_parse_disk_table_v32 (buf + 122, 8, &header->dshb_tinfo);
bfd_sym_parse_disk_table_v32 (buf + 130, 8, &header->dshb_fite);
bfd_sym_parse_disk_table_v32 (buf + 138, 8, &header->dshb_const);
memcpy (&header->dshb_file_creator, buf + 146, 4);
memcpy (&header->dshb_file_type, buf + 150, 4);
}
int
bfd_sym_read_header_v32 (bfd *abfd, bfd_sym_header_block *header)
{
unsigned char buf[154];
long ret;
ret = bfd_read (buf, 154, abfd);
if (ret != 154)
return -1;
bfd_sym_parse_header_v32 (buf, 154, header);
return 0;
}
int
bfd_sym_read_header_v34 (bfd *abfd ATTRIBUTE_UNUSED,
bfd_sym_header_block *header ATTRIBUTE_UNUSED)
{
abort ();
}
int
bfd_sym_read_header (bfd *abfd,
bfd_sym_header_block *header,
bfd_sym_version version)
{
switch (version)
{
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
return bfd_sym_read_header_v34 (abfd, header);
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
return bfd_sym_read_header_v32 (abfd, header);
case BFD_SYM_VERSION_3_1:
default:
return 0;
}
}
int
bfd_sym_read_version (bfd *abfd, bfd_sym_version *version)
{
char version_string[32];
long ret;
ret = bfd_read (version_string, sizeof (version_string), abfd);
if (ret != sizeof (version_string))
return -1;
if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_1) == 0)
*version = BFD_SYM_VERSION_3_1;
else if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_2) == 0)
*version = BFD_SYM_VERSION_3_2;
else if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_3) == 0)
*version = BFD_SYM_VERSION_3_3;
else if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_4) == 0)
*version = BFD_SYM_VERSION_3_4;
else if (pstrcmp (version_string, BFD_SYM_VERSION_STR_3_5) == 0)
*version = BFD_SYM_VERSION_3_5;
else
return -1;
return 0;
}
void
bfd_sym_display_table_summary (FILE *f,
bfd_sym_table_info *dti,
const char *name)
{
fprintf (f, "%-6s %13ld %13ld %13ld\n",
name,
dti->dti_first_page,
dti->dti_page_count,
dti->dti_object_count);
}
void
bfd_sym_display_header (FILE *f, bfd_sym_header_block *dshb)
{
fprintf (f, " Version: %.*s\n", dshb->dshb_id[0], dshb->dshb_id + 1);
fprintf (f, " Page Size: 0x%x\n", dshb->dshb_page_size);
fprintf (f, " Hash Page: %lu\n", dshb->dshb_hash_page);
fprintf (f, " Root MTE: %lu\n", dshb->dshb_root_mte);
fprintf (f, " Modification Date: ");
fprintf (f, "[unimplemented]");
fprintf (f, " (0x%lx)\n", dshb->dshb_mod_date);
fprintf (f, " File Creator: %.4s Type: %.4s\n\n",
dshb->dshb_file_creator, dshb->dshb_file_type);
fprintf (f, "Table Name First Page Page Count Object Count\n");
fprintf (f, "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
bfd_sym_display_table_summary (f, &dshb->dshb_nte, "NTE");
bfd_sym_display_table_summary (f, &dshb->dshb_rte, "RTE");
bfd_sym_display_table_summary (f, &dshb->dshb_mte, "MTE");
bfd_sym_display_table_summary (f, &dshb->dshb_frte, "FRTE");
bfd_sym_display_table_summary (f, &dshb->dshb_cmte, "CMTE");
bfd_sym_display_table_summary (f, &dshb->dshb_cvte, "CVTE");
bfd_sym_display_table_summary (f, &dshb->dshb_csnte, "CSNTE");
bfd_sym_display_table_summary (f, &dshb->dshb_clte, "CLTE");
bfd_sym_display_table_summary (f, &dshb->dshb_ctte, "CTTE");
bfd_sym_display_table_summary (f, &dshb->dshb_tte, "TTE");
bfd_sym_display_table_summary (f, &dshb->dshb_tinfo, "TINFO");
bfd_sym_display_table_summary (f, &dshb->dshb_fite, "FITE");
bfd_sym_display_table_summary (f, &dshb->dshb_const, "CONST");
fprintf (f, "\n");
}
void
bfd_sym_parse_resources_table_entry_v32 (unsigned char *buf,
size_t len,
bfd_sym_resources_table_entry *entry)
{
BFD_ASSERT (len == 18);
memcpy (&entry->rte_res_type, buf, 4);
entry->rte_res_number = bfd_getb16 (buf + 4);
entry->rte_nte_index = bfd_getb32 (buf + 6);
entry->rte_mte_first = bfd_getb16 (buf + 10);
entry->rte_mte_last = bfd_getb16 (buf + 12);
entry->rte_res_size = bfd_getb32 (buf + 14);
}
void
bfd_sym_parse_modules_table_entry_v33 (unsigned char *buf,
size_t len,
bfd_sym_modules_table_entry *entry)
{
BFD_ASSERT (len == 46);
entry->mte_rte_index = bfd_getb16 (buf);
entry->mte_res_offset = bfd_getb32 (buf + 2);
entry->mte_size = bfd_getb32 (buf + 6);
entry->mte_kind = buf[10];
entry->mte_scope = buf[11];
entry->mte_parent = bfd_getb16 (buf + 12);
bfd_sym_parse_file_reference_v32 (buf + 14, 6, &entry->mte_imp_fref);
entry->mte_imp_end = bfd_getb32 (buf + 20);
entry->mte_nte_index = bfd_getb32 (buf + 24);
entry->mte_cmte_index = bfd_getb16 (buf + 28);
entry->mte_cvte_index = bfd_getb32 (buf + 30);
entry->mte_clte_index = bfd_getb16 (buf + 34);
entry->mte_ctte_index = bfd_getb16 (buf + 36);
entry->mte_csnte_idx_1 = bfd_getb32 (buf + 38);
entry->mte_csnte_idx_2 = bfd_getb32 (buf + 42);
}
void
bfd_sym_parse_file_references_table_entry_v32 (unsigned char *buf,
size_t len,
bfd_sym_file_references_table_entry *entry)
{
unsigned int type;
BFD_ASSERT (len == 10);
memset (entry, 0, sizeof (bfd_sym_file_references_table_entry));
type = bfd_getb16 (buf);
switch (type)
{
case BFD_SYM_END_OF_LIST_3_2:
entry->generic.type = BFD_SYM_END_OF_LIST;
break;
case BFD_SYM_FILE_NAME_INDEX_3_2:
entry->filename.type = BFD_SYM_FILE_NAME_INDEX;
entry->filename.nte_index = bfd_getb32 (buf + 2);
entry->filename.mod_date = bfd_getb32 (buf + 6);
break;
default:
entry->entry.mte_index = type;
entry->entry.file_offset = bfd_getb32 (buf + 2);
}
}
void
bfd_sym_parse_contained_modules_table_entry_v32 (unsigned char *buf,
size_t len,
bfd_sym_contained_modules_table_entry *entry)
{
unsigned int type;
BFD_ASSERT (len == 6);
memset (entry, 0, sizeof (bfd_sym_contained_modules_table_entry));
type = bfd_getb16 (buf);
switch (type)
{
case BFD_SYM_END_OF_LIST_3_2:
entry->generic.type = BFD_SYM_END_OF_LIST;
break;
default:
entry->entry.mte_index = type;
entry->entry.nte_index = bfd_getb32 (buf + 2);
break;
}
}
void
bfd_sym_parse_contained_variables_table_entry_v32 (unsigned char *buf,
size_t len,
bfd_sym_contained_variables_table_entry *entry)
{
unsigned int type;
BFD_ASSERT (len == 26);
memset (entry, 0, sizeof (bfd_sym_contained_variables_table_entry));
type = bfd_getb16 (buf);
switch (type)
{
case BFD_SYM_END_OF_LIST_3_2:
entry->generic.type = BFD_SYM_END_OF_LIST;
break;
case BFD_SYM_SOURCE_FILE_CHANGE_3_2:
entry->file.type = BFD_SYM_SOURCE_FILE_CHANGE;
bfd_sym_parse_file_reference_v32 (buf + 2, 6, &entry->file.fref);
break;
default:
entry->entry.tte_index = type;
entry->entry.nte_index = bfd_getb32 (buf + 2);
entry->entry.file_delta = bfd_getb16 (buf + 6);
entry->entry.scope = buf[8];
entry->entry.la_size = buf[9];
if (entry->entry.la_size == BFD_SYM_CVTE_SCA)
{
entry->entry.address.scstruct.sca_kind = buf[10];
entry->entry.address.scstruct.sca_class = buf[11];
entry->entry.address.scstruct.sca_offset = bfd_getb32 (buf + 12);
}
else if (entry->entry.la_size <= BFD_SYM_CVTE_SCA)
{
#if BFD_SYM_CVTE_SCA > 0
memcpy (&entry->entry.address.lastruct.la, buf + 10,
BFD_SYM_CVTE_SCA);
#endif
entry->entry.address.lastruct.la_kind = buf[23];
}
else if (entry->entry.la_size == BFD_SYM_CVTE_BIG_LA)
{
entry->entry.address.biglastruct.big_la = bfd_getb32 (buf + 10);
entry->entry.address.biglastruct.big_la_kind = buf[12];
}
}
}
void
bfd_sym_parse_contained_statements_table_entry_v32 (unsigned char *buf,
size_t len,
bfd_sym_contained_statements_table_entry *entry)
{
unsigned int type;
BFD_ASSERT (len == 8);
memset (entry, 0, sizeof (bfd_sym_contained_statements_table_entry));
type = bfd_getb16 (buf);
switch (type)
{
case BFD_SYM_END_OF_LIST_3_2:
entry->generic.type = BFD_SYM_END_OF_LIST;
break;
case BFD_SYM_SOURCE_FILE_CHANGE_3_2:
entry->file.type = BFD_SYM_SOURCE_FILE_CHANGE;
bfd_sym_parse_file_reference_v32 (buf + 2, 6, &entry->file.fref);
break;
default:
entry->entry.mte_index = type;
entry->entry.mte_offset = bfd_getb16 (buf + 2);
entry->entry.file_delta = bfd_getb32 (buf + 4);
break;
}
}
void
bfd_sym_parse_contained_labels_table_entry_v32 (unsigned char *buf,
size_t len,
bfd_sym_contained_labels_table_entry *entry)
{
unsigned int type;
BFD_ASSERT (len == 12);
memset (entry, 0, sizeof (bfd_sym_contained_labels_table_entry));
type = bfd_getb16 (buf);
switch (type)
{
case BFD_SYM_END_OF_LIST_3_2:
entry->generic.type = BFD_SYM_END_OF_LIST;
break;
case BFD_SYM_SOURCE_FILE_CHANGE_3_2:
entry->file.type = BFD_SYM_SOURCE_FILE_CHANGE;
bfd_sym_parse_file_reference_v32 (buf + 2, 6, &entry->file.fref);
break;
default:
entry->entry.mte_index = type;
entry->entry.mte_offset = bfd_getb16 (buf + 2);
entry->entry.nte_index = bfd_getb32 (buf + 4);
entry->entry.file_delta = bfd_getb16 (buf + 8);
entry->entry.scope = bfd_getb16 (buf + 10);
break;
}
}
void
bfd_sym_parse_type_table_entry_v32 (unsigned char *buf,
size_t len,
bfd_sym_type_table_entry *entry)
{
BFD_ASSERT (len == 4);
*entry = bfd_getb32 (buf);
}
int
bfd_sym_fetch_resources_table_entry (bfd *abfd,
bfd_sym_resources_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_resources_table_entry *);
unsigned long offset;
unsigned long entry_size;
unsigned char buf[18];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
return -1;
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 18;
parser = bfd_sym_parse_resources_table_entry_v32;
break;
case BFD_SYM_VERSION_3_1:
default:
return -1;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_rte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_modules_table_entry (bfd *abfd,
bfd_sym_modules_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_modules_table_entry *);
unsigned long offset;
unsigned long entry_size;
unsigned char buf[46];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
return -1;
case BFD_SYM_VERSION_3_3:
entry_size = 46;
parser = bfd_sym_parse_modules_table_entry_v33;
break;
case BFD_SYM_VERSION_3_2:
case BFD_SYM_VERSION_3_1:
default:
return -1;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_mte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_file_references_table_entry (bfd *abfd,
bfd_sym_file_references_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_file_references_table_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[8];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 10;
parser = bfd_sym_parse_file_references_table_entry_v32;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_frte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_contained_modules_table_entry (bfd *abfd,
bfd_sym_contained_modules_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_contained_modules_table_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[6];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 6;
parser = bfd_sym_parse_contained_modules_table_entry_v32;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_cmte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_contained_variables_table_entry (bfd *abfd,
bfd_sym_contained_variables_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_contained_variables_table_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[26];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 26;
parser = bfd_sym_parse_contained_variables_table_entry_v32;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_cvte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_contained_statements_table_entry (bfd *abfd,
bfd_sym_contained_statements_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_contained_statements_table_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[8];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 8;
parser = bfd_sym_parse_contained_statements_table_entry_v32;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_csnte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_contained_labels_table_entry (bfd *abfd,
bfd_sym_contained_labels_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_contained_labels_table_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[12];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 12;
parser = bfd_sym_parse_contained_labels_table_entry_v32;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_clte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_contained_types_table_entry (bfd *abfd,
bfd_sym_contained_types_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_contained_types_table_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[0];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 0;
parser = NULL;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_ctte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_file_references_index_table_entry (bfd *abfd,
bfd_sym_file_references_index_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_file_references_index_table_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[0];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 0;
parser = NULL;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_fite.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_constant_pool_entry (bfd *abfd,
bfd_sym_constant_pool_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_constant_pool_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[0];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return -1;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 0;
parser = NULL;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_fite.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_type_table_entry (bfd *abfd,
bfd_sym_type_table_entry *entry,
unsigned long sym_index)
{
void (*parser) (unsigned char *, size_t, bfd_sym_type_table_entry *);
unsigned long offset;
unsigned long entry_size = 0;
unsigned char buf[4];
bfd_sym_data_struct *sdata = NULL;
parser = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
switch (sdata->version)
{
case BFD_SYM_VERSION_3_3:
case BFD_SYM_VERSION_3_2:
entry_size = 4;
parser = bfd_sym_parse_type_table_entry_v32;
break;
case BFD_SYM_VERSION_3_5:
case BFD_SYM_VERSION_3_4:
case BFD_SYM_VERSION_3_1:
default:
break;
}
if (parser == NULL)
return -1;
offset = compute_offset (sdata->header.dshb_tte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, sym_index);
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
return 0;
}
int
bfd_sym_fetch_type_information_table_entry (bfd *abfd,
bfd_sym_type_information_table_entry *entry,
unsigned long offset)
{
unsigned char buf[4];
BFD_ASSERT (bfd_sym_valid (abfd));
if (offset == 0)
return -1;
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_read (buf, 4, abfd) != 4)
return -1;
entry->nte_index = bfd_getb32 (buf);
if (bfd_read (buf, 2, abfd) != 2)
return -1;
entry->physical_size = bfd_getb16 (buf);
if (entry->physical_size & 0x8000)
{
if (bfd_read (buf, 4, abfd) != 4)
return -1;
entry->physical_size &= 0x7fff;
entry->logical_size = bfd_getb32 (buf);
entry->offset = offset + 10;
}
else
{
if (bfd_read (buf, 2, abfd) != 2)
return -1;
entry->physical_size &= 0x7fff;
entry->logical_size = bfd_getb16 (buf);
entry->offset = offset + 8;
}
return 0;
}
int
bfd_sym_fetch_type_table_information (bfd *abfd,
bfd_sym_type_information_table_entry *entry,
unsigned long sym_index)
{
bfd_sym_type_table_entry tindex;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sdata->header.dshb_tte.dti_object_count <= 99)
return -1;
if (sym_index < 100)
return -1;
if (bfd_sym_fetch_type_table_entry (abfd, &tindex, sym_index - 100) < 0)
return -1;
if (bfd_sym_fetch_type_information_table_entry (abfd, entry, tindex) < 0)
return -1;
return 0;
}
const unsigned char *
bfd_sym_symbol_name (bfd *abfd, unsigned long sym_index)
{
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sym_index == 0)
return (const unsigned char *) "";
sym_index *= 2;
if ((sym_index / sdata->header.dshb_page_size)
> sdata->header.dshb_nte.dti_page_count)
return (const unsigned char *) "\09[INVALID]";
return (const unsigned char *) sdata->name_table + sym_index;
}
const unsigned char *
bfd_sym_module_name (bfd *abfd, unsigned long sym_index)
{
bfd_sym_modules_table_entry entry;
if (bfd_sym_fetch_modules_table_entry (abfd, &entry, sym_index) < 0)
return (const unsigned char *) "\09[INVALID]";
return bfd_sym_symbol_name (abfd, entry.mte_nte_index);
}
const char *
bfd_sym_unparse_storage_kind (enum bfd_sym_storage_kind kind)
{
switch (kind)
{
case BFD_SYM_STORAGE_KIND_LOCAL: return "LOCAL";
case BFD_SYM_STORAGE_KIND_VALUE: return "VALUE";
case BFD_SYM_STORAGE_KIND_REFERENCE: return "REFERENCE";
case BFD_SYM_STORAGE_KIND_WITH: return "WITH";
default: return "[UNKNOWN]";
}
}
const char *
bfd_sym_unparse_storage_class (enum bfd_sym_storage_class kind)
{
switch (kind)
{
case BFD_SYM_STORAGE_CLASS_REGISTER: return "REGISTER";
case BFD_SYM_STORAGE_CLASS_GLOBAL: return "GLOBAL";
case BFD_SYM_STORAGE_CLASS_FRAME_RELATIVE: return "FRAME_RELATIVE";
case BFD_SYM_STORAGE_CLASS_STACK_RELATIVE: return "STACK_RELATIVE";
case BFD_SYM_STORAGE_CLASS_ABSOLUTE: return "ABSOLUTE";
case BFD_SYM_STORAGE_CLASS_CONSTANT: return "CONSTANT";
case BFD_SYM_STORAGE_CLASS_RESOURCE: return "RESOURCE";
case BFD_SYM_STORAGE_CLASS_BIGCONSTANT: return "BIGCONSTANT";
default: return "[UNKNOWN]";
}
}
const char *
bfd_sym_unparse_module_kind (enum bfd_sym_module_kind kind)
{
switch (kind)
{
case BFD_SYM_MODULE_KIND_NONE: return "NONE";
case BFD_SYM_MODULE_KIND_PROGRAM: return "PROGRAM";
case BFD_SYM_MODULE_KIND_UNIT: return "UNIT";
case BFD_SYM_MODULE_KIND_PROCEDURE: return "PROCEDURE";
case BFD_SYM_MODULE_KIND_FUNCTION: return "FUNCTION";
case BFD_SYM_MODULE_KIND_DATA: return "DATA";
case BFD_SYM_MODULE_KIND_BLOCK: return "BLOCK";
default: return "[UNKNOWN]";
}
}
const char *
bfd_sym_unparse_symbol_scope (enum bfd_sym_symbol_scope scope)
{
switch (scope)
{
case BFD_SYM_SYMBOL_SCOPE_LOCAL: return "LOCAL";
case BFD_SYM_SYMBOL_SCOPE_GLOBAL: return "GLOBAL";
default:
return "[UNKNOWN]";
}
}
void
bfd_sym_print_file_reference (bfd *abfd,
FILE *f,
bfd_sym_file_reference *entry)
{
bfd_sym_file_references_table_entry frtentry;
int ret;
ret = bfd_sym_fetch_file_references_table_entry (abfd, &frtentry,
entry->fref_frte_index);
fprintf (f, "FILE ");
if ((ret < 0) || (frtentry.generic.type != BFD_SYM_FILE_NAME_INDEX))
fprintf (f, "[INVALID]");
else
fprintf (f, "\"%.*s\"",
bfd_sym_symbol_name (abfd, frtentry.filename.nte_index)[0],
&bfd_sym_symbol_name (abfd, frtentry.filename.nte_index)[1]);
fprintf (f, " (FRTE %lu)", entry->fref_frte_index);
}
void
bfd_sym_print_resources_table_entry (bfd *abfd,
FILE *f,
bfd_sym_resources_table_entry *entry)
{
fprintf (f, " \"%.*s\" (NTE %lu), type \"%.4s\", num %u, size %lu, MTE %lu -- %lu",
bfd_sym_symbol_name (abfd, entry->rte_nte_index)[0],
&bfd_sym_symbol_name (abfd, entry->rte_nte_index)[1],
entry->rte_nte_index, entry->rte_res_type, entry->rte_res_number,
entry->rte_res_size, entry->rte_mte_first, entry->rte_mte_last);
}
void
bfd_sym_print_modules_table_entry (bfd *abfd,
FILE *f,
bfd_sym_modules_table_entry *entry)
{
fprintf (f, "\"%.*s\" (NTE %lu)",
bfd_sym_symbol_name (abfd, entry->mte_nte_index)[0],
&bfd_sym_symbol_name (abfd, entry->mte_nte_index)[1],
entry->mte_nte_index);
fprintf (f, "\n ");
bfd_sym_print_file_reference (abfd, f, &entry->mte_imp_fref);
fprintf (f, " range %lu -- %lu",
entry->mte_imp_fref.fref_offset, entry->mte_imp_end);
fprintf (f, "\n ");
fprintf (f, "kind %s", bfd_sym_unparse_module_kind (entry->mte_kind));
fprintf (f, ", scope %s", bfd_sym_unparse_symbol_scope (entry->mte_scope));
fprintf (f, ", RTE %lu, offset %lu, size %lu",
entry->mte_rte_index, entry->mte_res_offset, entry->mte_size);
fprintf (f, "\n ");
fprintf (f, "CMTE %lu, CVTE %lu, CLTE %lu, CTTE %lu, CSNTE1 %lu, CSNTE2 %lu",
entry->mte_cmte_index, entry->mte_cvte_index,
entry->mte_clte_index, entry->mte_ctte_index,
entry->mte_csnte_idx_1, entry->mte_csnte_idx_2);
if (entry->mte_parent != 0)
fprintf (f, ", parent %lu", entry->mte_parent);
else
fprintf (f, ", no parent");
if (entry->mte_cmte_index != 0)
fprintf (f, ", child %lu", entry->mte_cmte_index);
else
fprintf (f, ", no child");
}
void
bfd_sym_print_file_references_table_entry (bfd *abfd,
FILE *f,
bfd_sym_file_references_table_entry *entry)
{
switch (entry->generic.type)
{
case BFD_SYM_FILE_NAME_INDEX:
fprintf (f, "FILE \"%.*s\" (NTE %lu), modtime ",
bfd_sym_symbol_name (abfd, entry->filename.nte_index)[0],
&bfd_sym_symbol_name (abfd, entry->filename.nte_index)[1],
entry->filename.nte_index);
fprintf (f, "[UNIMPLEMENTED]");
/* printModDate (entry->filename.mod_date); */
fprintf (f, " (0x%lx)", entry->filename.mod_date);
break;
case BFD_SYM_END_OF_LIST:
fprintf (f, "END");
break;
default:
fprintf (f, "\"%.*s\" (MTE %lu), offset %lu",
bfd_sym_module_name (abfd, entry->entry.mte_index)[0],
&bfd_sym_module_name (abfd, entry->entry.mte_index)[1],
entry->entry.mte_index,
entry->entry.file_offset);
break;
}
}
void
bfd_sym_print_contained_modules_table_entry (bfd *abfd,
FILE *f,
bfd_sym_contained_modules_table_entry *entry)
{
switch (entry->generic.type)
{
case BFD_SYM_END_OF_LIST:
fprintf (f, "END");
break;
default:
fprintf (f, "\"%.*s\" (MTE %lu, NTE %lu)",
bfd_sym_module_name (abfd, entry->entry.mte_index)[0],
&bfd_sym_module_name (abfd, entry->entry.mte_index)[1],
entry->entry.mte_index,
entry->entry.nte_index);
break;
}
}
void
bfd_sym_print_contained_variables_table_entry (bfd *abfd,
FILE *f,
bfd_sym_contained_variables_table_entry *entry)
{
if (entry->generic.type == BFD_SYM_END_OF_LIST)
{
fprintf (f, "END");
return;
}
if (entry->generic.type == BFD_SYM_SOURCE_FILE_CHANGE)
{
bfd_sym_print_file_reference (abfd, f, &entry->file.fref);
fprintf (f, " offset %lu", entry->file.fref.fref_offset);
return;
}
fprintf (f, "\"%.*s\" (NTE %lu)",
bfd_sym_symbol_name (abfd, entry->entry.nte_index)[0],
&bfd_sym_symbol_name (abfd, entry->entry.nte_index)[1],
entry->entry.nte_index);
fprintf (f, ", TTE %lu", entry->entry.tte_index);
fprintf (f, ", offset %lu", entry->entry.file_delta);
fprintf (f, ", scope %s", bfd_sym_unparse_symbol_scope (entry->entry.scope));
if (entry->entry.la_size == BFD_SYM_CVTE_SCA)
fprintf (f, ", latype %s, laclass %s, laoffset %lu",
bfd_sym_unparse_storage_kind (entry->entry.address.scstruct.sca_kind),
bfd_sym_unparse_storage_class (entry->entry.address.scstruct.sca_class),
entry->entry.address.scstruct.sca_offset);
else if (entry->entry.la_size <= BFD_SYM_CVTE_LA_MAX_SIZE)
{
unsigned long i;
fprintf (f, ", la [");
for (i = 0; i < entry->entry.la_size; i++)
fprintf (f, "0x%02x ", entry->entry.address.lastruct.la[i]);
fprintf (f, "]");
}
else if (entry->entry.la_size == BFD_SYM_CVTE_BIG_LA)
fprintf (f, ", bigla %lu, biglakind %u",
entry->entry.address.biglastruct.big_la,
entry->entry.address.biglastruct.big_la_kind);
else
fprintf (f, ", la [INVALID]");
}
void
bfd_sym_print_contained_statements_table_entry (bfd *abfd,
FILE *f,
bfd_sym_contained_statements_table_entry *entry)
{
if (entry->generic.type == BFD_SYM_END_OF_LIST)
{
fprintf (f, "END");
return;
}
if (entry->generic.type == BFD_SYM_SOURCE_FILE_CHANGE)
{
bfd_sym_print_file_reference (abfd, f, &entry->file.fref);
fprintf (f, " offset %lu", entry->file.fref.fref_offset);
return;
}
fprintf (f, "\"%.*s\" (MTE %lu), offset %lu, delta %lu",
bfd_sym_module_name (abfd, entry->entry.mte_index)[0],
&bfd_sym_module_name (abfd, entry->entry.mte_index)[1],
entry->entry.mte_index,
entry->entry.mte_offset,
entry->entry.file_delta);
}
void
bfd_sym_print_contained_labels_table_entry (bfd *abfd,
FILE *f,
bfd_sym_contained_labels_table_entry *entry)
{
if (entry->generic.type == BFD_SYM_END_OF_LIST)
{
fprintf (f, "END");
return;
}
if (entry->generic.type == BFD_SYM_SOURCE_FILE_CHANGE)
{
bfd_sym_print_file_reference (abfd, f, &entry->file.fref);
fprintf (f, " offset %lu", entry->file.fref.fref_offset);
return;
}
fprintf (f, "\"%.*s\" (MTE %lu), offset %lu, delta %lu, scope %s",
bfd_sym_module_name (abfd, entry->entry.mte_index)[0],
&bfd_sym_module_name (abfd, entry->entry.mte_index)[1],
entry->entry.mte_index,
entry->entry.mte_offset,
entry->entry.file_delta,
bfd_sym_unparse_symbol_scope (entry->entry.scope));
}
void
bfd_sym_print_contained_types_table_entry (bfd *abfd ATTRIBUTE_UNUSED,
FILE *f,
bfd_sym_contained_types_table_entry *entry ATTRIBUTE_UNUSED)
{
fprintf (f, "[UNIMPLEMENTED]");
}
const char *
bfd_sym_type_operator_name (unsigned char num)
{
switch (num)
{
case 1: return "TTE";
case 2: return "PointerTo";
case 3: return "ScalarOf";
case 4: return "ConstantOf";
case 5: return "EnumerationOf";
case 6: return "VectorOf";
case 7: return "RecordOf";
case 8: return "UnionOf";
case 9: return "SubRangeOf";
case 10: return "SetOf";
case 11: return "NamedTypeOf";
case 12: return "ProcOf";
case 13: return "ValueOf";
case 14: return "ArrayOf";
default: return "[UNKNOWN OPERATOR]";
}
}
const char *
bfd_sym_type_basic_name (unsigned char num)
{
switch (num)
{
case 0: return "void";
case 1: return "pascal string";
case 2: return "unsigned long";
case 3: return "signed long";
case 4: return "extended (10 bytes)";
case 5: return "pascal boolean (1 byte)";
case 6: return "unsigned byte";
case 7: return "signed byte";
case 8: return "character (1 byte)";
case 9: return "wide character (2 bytes)";
case 10: return "unsigned short";
case 11: return "signed short";
case 12: return "singled";
case 13: return "double";
case 14: return "extended (12 bytes)";
case 15: return "computational (8 bytes)";
case 16: return "c string";
case 17: return "as-is string";
default: return "[UNKNOWN BASIC TYPE]";
}
}
int
bfd_sym_fetch_long (unsigned char *buf,
unsigned long len,
unsigned long offset,
unsigned long *offsetptr,
long *value)
{
int ret;
if (offset >= len)
{
*value = 0;
offset += 0;
ret = -1;
}
else if (! (buf[offset] & 0x80))
{
*value = buf[offset];
offset += 1;
ret = 0;
}
else if (buf[offset] == 0xc0)
{
if ((offset + 5) > len)
{
*value = 0;
offset = len;
ret = -1;
}
else
{
*value = bfd_getb32 (buf + offset + 1);
offset += 5;
ret = 0;
}
}
else if ((buf[offset] & 0xc0) == 0xc0)
{
*value = -(buf[offset] & 0x3f);
offset += 1;
ret = 0;
}
else if ((buf[offset] & 0xc0) == 0x80)
{
if ((offset + 2) > len)
{
*value = 0;
offset = len;
ret = -1;
}
else
{
*value = bfd_getb16 (buf + offset) & 0x3fff;
offset += 2;
ret = 0;
}
}
else
abort ();
if (offsetptr != NULL)
*offsetptr = offset;
return ret;
}
void
bfd_sym_print_type_information (bfd *abfd,
FILE *f,
unsigned char *buf,
unsigned long len,
unsigned long offset,
unsigned long *offsetptr)
{
unsigned int type;
if (offset >= len)
{
fprintf (f, "[NULL]");
if (offsetptr != NULL)
*offsetptr = offset;
return;
}
type = buf[offset];
offset++;
if (! (type & 0x80))
{
fprintf (f, "[%s] (0x%x)", bfd_sym_type_basic_name (type & 0x7f), type);
if (offsetptr != NULL)
*offsetptr = offset;
return;
}
if (type & 0x40)
fprintf (f, "[packed ");
else
fprintf (f, "[");
switch (type & 0x3f)
{
case 1:
{
long value;
bfd_sym_type_information_table_entry tinfo;
bfd_sym_fetch_long (buf, len, offset, &offset, &value);
if (value <= 0)
fprintf (f, "[INVALID]");
else
{
if (bfd_sym_fetch_type_table_information (abfd, &tinfo, value) < 0)
fprintf (f, "[INVALID]");
else
fprintf (f, "\"%.*s\"",
bfd_sym_symbol_name (abfd, tinfo.nte_index)[0],
&bfd_sym_symbol_name (abfd, tinfo.nte_index)[1]);
}
fprintf (f, " (TTE %lu)", (unsigned long) value);
break;
}
case 2:
fprintf (f, "pointer (0x%x) to ", type);
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
break;
case 3:
{
long value;
fprintf (f, "scalar (0x%x) of ", type);
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
bfd_sym_fetch_long (buf, len, offset, &offset, &value);
fprintf (f, " (%lu)", (unsigned long) value);
break;
}
case 5:
{
long lower, upper, nelem;
int i;
fprintf (f, "enumeration (0x%x) of ", type);
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
bfd_sym_fetch_long (buf, len, offset, &offset, &lower);
bfd_sym_fetch_long (buf, len, offset, &offset, &upper);
bfd_sym_fetch_long (buf, len, offset, &offset, &nelem);
fprintf (f, " from %lu to %lu with %lu elements: ",
(unsigned long) lower, (unsigned long) upper,
(unsigned long) nelem);
for (i = 0; i < nelem; i++)
{
fprintf (f, "\n ");
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
}
break;
}
case 6:
fprintf (f, "vector (0x%x)", type);
fprintf (f, "\n index ");
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
fprintf (f, "\n target ");
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
break;
case 7:
case 8:
{
long nrec, eloff, i;
if ((type & 0x3f) == 7)
fprintf (f, "record (0x%x) of ", type);
else
fprintf (f, "union (0x%x) of ", type);
bfd_sym_fetch_long (buf, len, offset, &offset, &nrec);
fprintf (f, "%lu elements: ", (unsigned long) nrec);
for (i = 0; i < nrec; i++)
{
bfd_sym_fetch_long (buf, len, offset, &offset, &eloff);
fprintf (f, "\n ");
fprintf (f, "offset %lu: ", (unsigned long) eloff);
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
}
break;
}
case 9:
fprintf (f, "subrange (0x%x) of ", type);
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
fprintf (f, " lower ");
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
fprintf (f, " upper ");
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
break;
case 11:
{
long value;
fprintf (f, "named type (0x%x) ", type);
bfd_sym_fetch_long (buf, len, offset, &offset, &value);
if (value <= 0)
fprintf (f, "[INVALID]");
else
fprintf (f, "\"%.*s\"",
bfd_sym_symbol_name (abfd, value)[0],
&bfd_sym_symbol_name (abfd, value)[1]);
fprintf (f, " (NTE %lu) with type ", (unsigned long) value);
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
break;
}
default:
fprintf (f, "%s (0x%x)", bfd_sym_type_operator_name (type), type);
break;
}
if (type == (0x40 | 0x6))
{
/* Vector. */
long n, width, m;
long l;
long i;
bfd_sym_fetch_long (buf, len, offset, &offset, &n);
bfd_sym_fetch_long (buf, len, offset, &offset, &width);
bfd_sym_fetch_long (buf, len, offset, &offset, &m);
/* fprintf (f, "\n "); */
fprintf (f, " N %ld, width %ld, M %ld, ", n, width, m);
for (i = 0; i < m; i++)
{
bfd_sym_fetch_long (buf, len, offset, &offset, &l);
if (i != 0)
fprintf (f, " ");
fprintf (f, "%ld", l);
}
}
else if (type & 0x40)
{
/* Other packed type. */
long msb, lsb;
bfd_sym_fetch_long (buf, len, offset, &offset, &msb);
bfd_sym_fetch_long (buf, len, offset, &offset, &lsb);
/* fprintf (f, "\n "); */
fprintf (f, " msb %ld, lsb %ld", msb, lsb);
}
fprintf (f, "]");
if (offsetptr != NULL)
*offsetptr = offset;
}
void
bfd_sym_print_type_information_table_entry (bfd *abfd,
FILE *f,
bfd_sym_type_information_table_entry *entry)
{
unsigned char *buf;
unsigned long offset;
unsigned int i;
fprintf (f, "\"%.*s\" (NTE %lu), %lu bytes at %lu, logical size %lu",
bfd_sym_symbol_name (abfd, entry->nte_index)[0],
&bfd_sym_symbol_name (abfd, entry->nte_index)[1],
entry->nte_index,
entry->physical_size, entry->offset, entry->logical_size);
fprintf (f, "\n ");
if (bfd_seek (abfd, entry->offset, SEEK_SET) != 0
|| (buf = _bfd_malloc_and_read (abfd, entry->physical_size,
entry->physical_size)) == NULL)
{
fprintf (f, "[ERROR]\n");
return;
}
fprintf (f, "[");
for (i = 0; i < entry->physical_size; i++)
{
if (i == 0)
fprintf (f, "0x%02x", buf[i]);
else
fprintf (f, " 0x%02x", buf[i]);
}
fprintf (f, "]");
fprintf (f, "\n ");
bfd_sym_print_type_information (abfd, f, buf, entry->physical_size, 0, &offset);
if (offset != entry->physical_size)
fprintf (f, "\n [parser used %lu bytes instead of %lu]", offset, entry->physical_size);
free (buf);
}
void
bfd_sym_print_file_references_index_table_entry (bfd *abfd ATTRIBUTE_UNUSED,
FILE *f,
bfd_sym_file_references_index_table_entry *entry ATTRIBUTE_UNUSED)
{
fprintf (f, "[UNIMPLEMENTED]");
}
void
bfd_sym_print_constant_pool_entry (bfd *abfd ATTRIBUTE_UNUSED,
FILE *f,
bfd_sym_constant_pool_entry *entry ATTRIBUTE_UNUSED)
{
fprintf (f, "[UNIMPLEMENTED]");
}
unsigned char *
bfd_sym_display_name_table_entry (bfd *abfd,
FILE *f,
unsigned char *entry)
{
unsigned long sym_index;
unsigned long offset;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
sym_index = (entry - sdata->name_table) / 2;
if (sdata->version >= BFD_SYM_VERSION_3_4 && entry[0] == 255 && entry[1] == 0)
{
unsigned short length = bfd_getb16 (entry + 2);
fprintf (f, "[%8lu] \"%.*s\"\n", sym_index, length, entry + 4);
offset = 2 + length + 1;
}
else
{
if (! (entry[0] == 0 || (entry[0] == 1 && entry[1] == '\0')))
fprintf (f, "[%8lu] \"%.*s\"\n", sym_index, entry[0], entry + 1);
if (sdata->version >= BFD_SYM_VERSION_3_4)
offset = entry[0] + 2;
else
offset = entry[0] + 1;
}
return (entry + offset + (offset % 2));
}
void
bfd_sym_display_name_table (bfd *abfd, FILE *f)
{
unsigned long name_table_len;
unsigned char *name_table, *name_table_end, *cur;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
name_table_len = sdata->header.dshb_nte.dti_page_count * sdata->header.dshb_page_size;
name_table = sdata->name_table;
name_table_end = name_table + name_table_len;
fprintf (f, "name table (NTE) contains %lu bytes:\n\n", name_table_len);
cur = name_table;
for (;;)
{
cur = bfd_sym_display_name_table_entry (abfd, f, cur);
if (cur >= name_table_end)
break;
}
}
void
bfd_sym_display_resources_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_resources_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "resource table (RTE) contains %lu objects:\n\n",
sdata->header.dshb_rte.dti_object_count);
for (i = 1; i <= sdata->header.dshb_rte.dti_object_count; i++)
{
if (bfd_sym_fetch_resources_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_resources_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_modules_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_modules_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "module table (MTE) contains %lu objects:\n\n",
sdata->header.dshb_mte.dti_object_count);
for (i = 1; i <= sdata->header.dshb_mte.dti_object_count; i++)
{
if (bfd_sym_fetch_modules_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_modules_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_file_references_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_file_references_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "file reference table (FRTE) contains %lu objects:\n\n",
sdata->header.dshb_frte.dti_object_count);
for (i = 1; i <= sdata->header.dshb_frte.dti_object_count; i++)
{
if (bfd_sym_fetch_file_references_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_file_references_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_contained_modules_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_contained_modules_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "contained modules table (CMTE) contains %lu objects:\n\n",
sdata->header.dshb_cmte.dti_object_count);
for (i = 1; i <= sdata->header.dshb_cmte.dti_object_count; i++)
{
if (bfd_sym_fetch_contained_modules_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_contained_modules_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_contained_variables_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_contained_variables_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "contained variables table (CVTE) contains %lu objects:\n\n",
sdata->header.dshb_cvte.dti_object_count);
for (i = 1; i <= sdata->header.dshb_cvte.dti_object_count; i++)
{
if (bfd_sym_fetch_contained_variables_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_contained_variables_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
fprintf (f, "\n");
}
void
bfd_sym_display_contained_statements_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_contained_statements_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "contained statements table (CSNTE) contains %lu objects:\n\n",
sdata->header.dshb_csnte.dti_object_count);
for (i = 1; i <= sdata->header.dshb_csnte.dti_object_count; i++)
{
if (bfd_sym_fetch_contained_statements_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_contained_statements_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_contained_labels_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_contained_labels_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "contained labels table (CLTE) contains %lu objects:\n\n",
sdata->header.dshb_clte.dti_object_count);
for (i = 1; i <= sdata->header.dshb_clte.dti_object_count; i++)
{
if (bfd_sym_fetch_contained_labels_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_contained_labels_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_contained_types_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_contained_types_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "contained types table (CTTE) contains %lu objects:\n\n",
sdata->header.dshb_ctte.dti_object_count);
for (i = 1; i <= sdata->header.dshb_ctte.dti_object_count; i++)
{
if (bfd_sym_fetch_contained_types_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_contained_types_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_file_references_index_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_file_references_index_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "file references index table (FITE) contains %lu objects:\n\n",
sdata->header.dshb_fite.dti_object_count);
for (i = 1; i <= sdata->header.dshb_fite.dti_object_count; i++)
{
if (bfd_sym_fetch_file_references_index_table_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_file_references_index_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_constant_pool (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_constant_pool_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
fprintf (f, "constant pool (CONST) contains %lu objects:\n\n",
sdata->header.dshb_const.dti_object_count);
for (i = 1; i <= sdata->header.dshb_const.dti_object_count; i++)
{
if (bfd_sym_fetch_constant_pool_entry (abfd, &entry, i) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] ", i);
bfd_sym_print_constant_pool_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
void
bfd_sym_display_type_information_table (bfd *abfd, FILE *f)
{
unsigned long i;
bfd_sym_type_table_entry sym_index;
bfd_sym_type_information_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
if (sdata->header.dshb_tte.dti_object_count > 99)
fprintf (f, "type table (TINFO) contains %lu objects:\n\n",
sdata->header.dshb_tte.dti_object_count - 99);
else
{
fprintf (f, "type table (TINFO) contains [INVALID] objects:\n\n");
return;
}
for (i = 100; i <= sdata->header.dshb_tte.dti_object_count; i++)
{
if (bfd_sym_fetch_type_table_entry (abfd, &sym_index, i - 100) < 0)
fprintf (f, " [%8lu] [INVALID]\n", i);
else
{
fprintf (f, " [%8lu] (TINFO %lu) ", i, sym_index);
if (bfd_sym_fetch_type_information_table_entry (abfd, &entry, sym_index) < 0)
fprintf (f, "[INVALID]");
else
bfd_sym_print_type_information_table_entry (abfd, f, &entry);
fprintf (f, "\n");
}
}
}
int
bfd_sym_scan (bfd *abfd, bfd_sym_version version, bfd_sym_data_struct *mdata)
{
asection *bfdsec;
const char *name = "symbols";
mdata->name_table = 0;
mdata->sbfd = abfd;
mdata->version = version;
if (bfd_seek (abfd, 0, SEEK_SET) != 0
|| bfd_sym_read_header (abfd, &mdata->header, mdata->version) != 0)
return -1;
mdata->name_table = bfd_sym_read_name_table (abfd, &mdata->header);
if (mdata->name_table == NULL)
return -1;
bfdsec = bfd_make_section_anyway_with_flags (abfd, name, SEC_HAS_CONTENTS);
if (bfdsec == NULL)
return -1;
bfdsec->vma = 0;
bfdsec->lma = 0;
bfdsec->size = 0;
bfdsec->filepos = 0;
bfdsec->alignment_power = 0;
return 0;
}
bfd_cleanup
bfd_sym_object_p (bfd *abfd)
{
bfd_sym_version version = -1;
bfd_sym_data_struct *mdata = NULL;
if (bfd_seek (abfd, 0, SEEK_SET) != 0
|| bfd_sym_read_version (abfd, &version) != 0)
goto wrong;
mdata = (bfd_sym_data_struct *) bfd_alloc (abfd, sizeof (*mdata));
if (mdata == NULL)
goto fail;
if (bfd_sym_scan (abfd, version, mdata) != 0)
goto wrong;
abfd->tdata.sym_data = mdata;
return _bfd_no_cleanup;
wrong:
bfd_set_error (bfd_error_wrong_format);
fail:
if (mdata)
bfd_release (abfd, mdata);
return NULL;
}
#define bfd_sym_make_empty_symbol _bfd_generic_make_empty_symbol
void
bfd_sym_get_symbol_info (bfd *abfd ATTRIBUTE_UNUSED, asymbol *symbol, symbol_info *ret)
{
bfd_symbol_info (symbol, ret);
}
long
bfd_sym_get_symtab_upper_bound (bfd *abfd ATTRIBUTE_UNUSED)
{
return 0;
}
long
bfd_sym_canonicalize_symtab (bfd *abfd ATTRIBUTE_UNUSED, asymbol **sym ATTRIBUTE_UNUSED)
{
return 0;
}
int
bfd_sym_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED,
struct bfd_link_info *info ATTRIBUTE_UNUSED)
{
return 0;
}
const bfd_target sym_vec =
{
"sym", /* Name. */
bfd_target_sym_flavour, /* Flavour. */
BFD_ENDIAN_BIG, /* Byteorder. */
BFD_ENDIAN_BIG, /* Header byteorder. */
(HAS_RELOC | EXEC_P | /* Object flags. */
HAS_LINENO | HAS_DEBUG |
HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
(SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_CODE | SEC_DATA
| SEC_ROM | SEC_HAS_CONTENTS), /* Section_flags. */
0, /* Symbol_leading_char. */
' ', /* AR_pad_char. */
16, /* AR_max_namelen. */
0, /* match priority. */
TARGET_KEEP_UNUSED_SECTION_SYMBOLS, /* keep unused section symbols. */
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_check_format. */
_bfd_dummy_target,
bfd_sym_object_p, /* bfd_check_format. */
_bfd_dummy_target,
_bfd_dummy_target,
},
{ /* bfd_set_format. */
_bfd_bool_bfd_false_error,
bfd_sym_mkobject,
_bfd_bool_bfd_false_error,
_bfd_bool_bfd_false_error,
},
{ /* bfd_write_contents. */
_bfd_bool_bfd_false_error,
_bfd_bool_bfd_true,
_bfd_bool_bfd_false_error,
_bfd_bool_bfd_false_error,
},
BFD_JUMP_TABLE_GENERIC (bfd_sym),
BFD_JUMP_TABLE_COPY (_bfd_generic),
BFD_JUMP_TABLE_CORE (_bfd_nocore),
BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
BFD_JUMP_TABLE_SYMBOLS (bfd_sym),
BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
BFD_JUMP_TABLE_WRITE (bfd_sym),
BFD_JUMP_TABLE_LINK (bfd_sym),
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
NULL,
NULL
};
Reference in New Issue View Git Blame Copy Permalink