(bfd_preserve_save): New function.
(bfd_preserve_restore): Ditto.
(bfd_preserve_finish): Ditto.
* bfd-in2.h: Regenerate.
* mach-o.c: Formatting.
(bfd_mach_o_scan_read_symtab_symbol): Make "value" unsigned.
(bfd_mach_o_object_p): Use bfd_preserve_save/restore/finish.
(bfd_mach_o_core_p): Ditto.
(bfd_mach_o_scan): Pass in mdata.
* mach-o.h (bfd_mach_o_scan): Update prototype.
* pef.c: Formatting.
(bfd_pef_object_p): Use bfd_preserve_save/restore/finish.
(bfd_pef_xlib_object_p): Ditto.
(bfd_pef_scan): Pass in mdata. Move version check to bfd_pef_object_p.
* pef.h (bfd_pef_scan): Update prototype.
* xsym.c: Formatting, K&R fixes.
(bfd_sym_object_p): Use bfd_preserve_save/restore/finish.
(bfd_sym_scan): New function split out from bfd_sym_object_p.
* xsym.h (bfd_sym_scan): Declare.
* elfcode.h (elf_object_p): Use bfd_preserve_save/restore/finish.
(elf_core_file_p): Likewise.
* targets.c (_bfd_target_vector): Revert 2002-11-08 change.
+2002-11-13 Klee Dienes <kdienes@apple.com>
+ Alan Modra <amodra@bigpond.net.au>
+
+ * bfd.c (struct bfd_preserve): New.
+ (bfd_preserve_save): New function.
+ (bfd_preserve_restore): Ditto.
+ (bfd_preserve_finish): Ditto.
+ * bfd-in2.h: Regenerate.
+ * mach-o.c: Formatting.
+ (bfd_mach_o_scan_read_symtab_symbol): Make "value" unsigned.
+ (bfd_mach_o_object_p): Use bfd_preserve_save/restore/finish.
+ (bfd_mach_o_core_p): Ditto.
+ (bfd_mach_o_scan): Pass in mdata.
+ * mach-o.h (bfd_mach_o_scan): Update prototype.
+ * pef.c: Formatting.
+ (bfd_pef_object_p): Use bfd_preserve_save/restore/finish.
+ (bfd_pef_xlib_object_p): Ditto.
+ (bfd_pef_scan): Pass in mdata. Move version check to bfd_pef_object_p.
+ * pef.h (bfd_pef_scan): Update prototype.
+ * xsym.c: Formatting, K&R fixes.
+ (bfd_sym_object_p): Use bfd_preserve_save/restore/finish.
+ (bfd_sym_scan): New function split out from bfd_sym_object_p.
+ * xsym.h (bfd_sym_scan): Declare.
+ * elfcode.h (elf_object_p): Use bfd_preserve_save/restore/finish.
+ (elf_core_file_p): Likewise.
+ * targets.c (_bfd_target_vector): Revert 2002-11-08 change.
+
2002-11-12 Nick Clifton <nickc@redhat.com>
* po/da.po: Updated Danish translation.
boolean
bfd_alt_mach_code PARAMS ((bfd *abfd, int alternative));
+struct bfd_preserve
+{
+ PTR marker;
+ PTR tdata;
+ flagword flags;
+ const struct bfd_arch_info *arch_info;
+ struct sec *sections;
+ struct sec **section_tail;
+ unsigned int section_count;
+ struct bfd_hash_table section_htab;
+};
+
+boolean
+bfd_preserve_save PARAMS ((bfd *, struct bfd_preserve *));
+
+void
+bfd_preserve_restore PARAMS ((bfd *, struct bfd_preserve *));
+
+void
+bfd_preserve_finish PARAMS ((bfd *, struct bfd_preserve *));
+
/* Extracted from archive.c. */
symindex
bfd_get_next_mapent PARAMS ((bfd *abfd, symindex previous, carsym **sym));
return false;
}
+
+/*
+CODE_FRAGMENT
+
+.struct bfd_preserve
+.{
+. PTR marker;
+. PTR tdata;
+. flagword flags;
+. const struct bfd_arch_info *arch_info;
+. struct sec *sections;
+. struct sec **section_tail;
+. unsigned int section_count;
+. struct bfd_hash_table section_htab;
+.};
+.
+*/
+
+/*
+FUNCTION
+ bfd_preserve_save
+
+SYNOPSIS
+ boolean bfd_preserve_save (bfd *, struct bfd_preserve *);
+
+DESCRIPTION
+ When testing an object for compatibility with a particular
+ target back-end, the back-end object_p function needs to set
+ up certain fields in the bfd on successfully recognizing the
+ object. This typically happens in a piecemeal fashion, with
+ failures possible at many points. On failure, the bfd is
+ supposed to be restored to its initial state, which is
+ virtually impossible. However, restoring a subset of the bfd
+ state works in practice. This function stores the subset and
+ reinitializes the bfd.
+
+*/
+
+boolean
+bfd_preserve_save (abfd, preserve)
+ bfd *abfd;
+ struct bfd_preserve *preserve;
+{
+ preserve->tdata = abfd->tdata.any;
+ preserve->arch_info = abfd->arch_info;
+ preserve->flags = abfd->flags;
+
+ preserve->sections = abfd->sections;
+ preserve->section_tail = abfd->section_tail;
+ preserve->section_count = abfd->section_count;
+ preserve->section_htab = abfd->section_htab;
+
+ if (! bfd_hash_table_init (&abfd->section_htab, bfd_section_hash_newfunc))
+ return false;
+
+ abfd->tdata.any = NULL;
+ abfd->arch_info = &bfd_default_arch_struct;
+ abfd->flags = 0;
+
+ abfd->sections = NULL;
+ abfd->section_tail = &abfd->sections;
+ abfd->section_count = 0;
+
+ return true;
+}
+
+/*
+FUNCTION
+ bfd_preserve_restore
+
+SYNOPSIS
+ void bfd_preserve_restore (bfd *, struct bfd_preserve *);
+
+DESCRIPTION
+ This function restores bfd state saved by bfd_preserve_save.
+ If MARKER is non-NULL in struct bfd_preserve then that block
+ and all subsequently bfd_alloc'd memory is freed.
+
+*/
+
+void
+bfd_preserve_restore (abfd, preserve)
+ bfd *abfd;
+ struct bfd_preserve *preserve;
+{
+ bfd_hash_table_free (&abfd->section_htab);
+
+ abfd->tdata.any = preserve->tdata;
+ abfd->arch_info = preserve->arch_info;
+ abfd->flags = preserve->flags;
+
+ abfd->section_htab = preserve->section_htab;
+ abfd->sections = preserve->sections;
+ abfd->section_tail = preserve->section_tail;
+ abfd->section_count = preserve->section_count;
+
+ /* bfd_release frees all memory more recently bfd_alloc'd than
+ its arg, as well as its arg. */
+ if (preserve->marker != NULL)
+ {
+ bfd_release (abfd, preserve->marker);
+ preserve->marker = NULL;
+ }
+}
+
+/*
+FUNCTION
+ bfd_preserve_finish
+
+SYNOPSIS
+ void bfd_preserve_finish (bfd *, struct bfd_preserve *);
+
+DESCRIPTION
+ This function should be called when the bfd state saved by
+ bfd_preserve_save is no longer needed. ie. when the back-end
+ object_p function returns with success.
+
+*/
+
+void
+bfd_preserve_finish (abfd, preserve)
+ bfd *abfd ATTRIBUTE_UNUSED;
+ struct bfd_preserve *preserve;
+{
+ /* It would be nice to be able to free more memory here, eg. old
+ tdata, but that's not possible since these blocks are sitting
+ inside bfd_alloc'd memory. The section hash is on a separate
+ objalloc. */
+ bfd_hash_table_free (&preserve->section_htab);
+}
&& (x_ehdrp->e_ident[EI_MAG3] == ELFMAG3));
}
-struct bfd_preserve
-{
- const struct bfd_arch_info *arch_info;
- struct elf_obj_tdata *tdata;
- struct bfd_hash_table section_htab;
- struct sec *sections;
- struct sec **section_tail;
- unsigned int section_count;
-};
-
/* Check to see if the file associated with ABFD matches the target vector
that ABFD points to.
char *shstrtab; /* Internal copy of section header stringtab */
struct elf_backend_data *ebd;
struct bfd_preserve preserve;
- struct elf_obj_tdata *new_tdata = NULL;
asection *s;
bfd_size_type amt;
- preserve.arch_info = abfd->arch_info;
+ preserve.marker = NULL;
/* Read in the ELF header in external format. */
the tdata pointer in the bfd. */
amt = sizeof (struct elf_obj_tdata);
- new_tdata = (struct elf_obj_tdata *) bfd_zalloc (abfd, amt);
- if (new_tdata == NULL)
+ preserve.marker = bfd_zalloc (abfd, amt);
+ if (preserve.marker == NULL)
goto got_no_match;
- preserve.tdata = elf_tdata (abfd);
- elf_tdata (abfd) = new_tdata;
-
- /* Clear section information, since there might be a recognized bfd that
- we now check if we can replace, and we don't want to append to it. */
- preserve.sections = abfd->sections;
- preserve.section_tail = abfd->section_tail;
- preserve.section_count = abfd->section_count;
- preserve.section_htab = abfd->section_htab;
- abfd->sections = NULL;
- abfd->section_tail = &abfd->sections;
- abfd->section_count = 0;
- if (!bfd_hash_table_init (&abfd->section_htab, bfd_section_hash_newfunc))
+ if (!bfd_preserve_save (abfd, &preserve))
goto got_no_match;
+ elf_tdata (abfd) = preserve.marker;
+
/* Now that we know the byte order, swap in the rest of the header */
i_ehdrp = elf_elfheader (abfd);
elf_swap_ehdr_in (abfd, &x_ehdr, i_ehdrp);
/* Check that the ELF e_machine field matches what this particular
BFD format expects. */
if (ebd->elf_machine_code != i_ehdrp->e_machine
- && (ebd->elf_machine_alt1 == 0 || i_ehdrp->e_machine != ebd->elf_machine_alt1)
- && (ebd->elf_machine_alt2 == 0 || i_ehdrp->e_machine != ebd->elf_machine_alt2))
+ && (ebd->elf_machine_alt1 == 0
+ || i_ehdrp->e_machine != ebd->elf_machine_alt1)
+ && (ebd->elf_machine_alt2 == 0
+ || i_ehdrp->e_machine != ebd->elf_machine_alt2))
{
const bfd_target * const *target_ptr;
}
}
- /* It would be nice to be able to free more memory here, eg. old
- elf_elfsections, old tdata, but that's not possible since these
- blocks are sitting inside obj_alloc'd memory. */
- bfd_hash_table_free (&preserve.section_htab);
- return (abfd->xvec);
+ bfd_preserve_finish (abfd, &preserve);
+ return abfd->xvec;
got_wrong_format_error:
/* There is way too much undoing of half-known state here. The caller,
got_no_match:
abfd->arch_info = preserve.arch_info;
- if (new_tdata != NULL)
- {
- /* bfd_release frees all memory more recently bfd_alloc'd than
- its arg, as well as its arg. */
- bfd_release (abfd, new_tdata);
- elf_tdata (abfd) = preserve.tdata;
- abfd->section_htab = preserve.section_htab;
- abfd->sections = preserve.sections;
- abfd->section_tail = preserve.section_tail;
- abfd->section_count = preserve.section_count;
- }
+ if (preserve.marker != NULL)
+ bfd_preserve_restore (abfd, &preserve);
return NULL;
}
\f
unsigned char type = -1;
unsigned char section = -1;
short desc = -1;
- long value = -1;
+ unsigned long value = -1;
unsigned long stroff = -1;
unsigned int symtype = -1;
{
bfd_vma segoff = command->offset + 48 + 8 + (i * 68);
- if (bfd_mach_o_scan_read_section (abfd, &seg->sections[i], segoff) != 0)
+ if (bfd_mach_o_scan_read_section (abfd, &seg->sections[i],
+ segoff) != 0)
return -1;
}
}
return -1;
command->type = (bfd_h_get_32 (abfd, buf) & ~BFD_MACH_O_LC_REQ_DYLD);
- command->type_required = (bfd_h_get_32 (abfd, buf) & BFD_MACH_O_LC_REQ_DYLD) ? 1 : 0;
+ command->type_required = (bfd_h_get_32 (abfd, buf) & BFD_MACH_O_LC_REQ_DYLD
+ ? 1 : 0);
command->len = bfd_h_get_32 (abfd, buf + 4);
switch (command->type)
{
if (mdata->commands[i].type == BFD_MACH_O_LC_SEGMENT)
{
- bfd_mach_o_segment_command *seg = &mdata->commands[i].command.segment;
+ bfd_mach_o_segment_command *seg;
+
+ seg = &mdata->commands[i].command.segment;
mdata->nsects += seg->nsects;
}
}
- mdata->sections = bfd_alloc (abfd, mdata->nsects * sizeof (bfd_mach_o_section *));
+ mdata->sections = bfd_alloc (abfd,
+ mdata->nsects * sizeof (bfd_mach_o_section *));
csect = 0;
for (i = 0; i < mdata->header.ncmds; i++)
{
if (mdata->commands[i].type == BFD_MACH_O_LC_SEGMENT)
{
- bfd_mach_o_segment_command *seg = &mdata->commands[i].command.segment;
+ bfd_mach_o_segment_command *seg;
+ seg = &mdata->commands[i].command.segment;
BFD_ASSERT (csect + seg->nsects <= mdata->nsects);
for (j = 0; j < seg->nsects; j++)
for (i = 0; i < cmd->nflavours; i++)
{
if ((mdata->header.cputype == BFD_MACH_O_CPU_TYPE_I386)
- && (cmd->flavours[i].flavour == (unsigned long) BFD_MACH_O_i386_THREAD_STATE))
+ && (cmd->flavours[i].flavour
+ == (unsigned long) BFD_MACH_O_i386_THREAD_STATE))
{
unsigned char buf[4];
}
int
-bfd_mach_o_scan (abfd, header)
+bfd_mach_o_scan (abfd, header, mdata)
bfd *abfd;
bfd_mach_o_header *header;
+ bfd_mach_o_data_struct *mdata;
{
unsigned int i;
- bfd_mach_o_data_struct *mdata = NULL;
enum bfd_architecture cputype;
unsigned long cpusubtype;
- mdata = ((bfd_mach_o_data_struct *)
- bfd_alloc (abfd, sizeof (bfd_mach_o_data_struct)));
- if (mdata == NULL)
- return -1;
-
mdata->header = *header;
mdata->symbols = NULL;
- abfd->flags = abfd->xvec->object_flags | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS));
+ abfd->flags = (abfd->xvec->object_flags
+ | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
abfd->tdata.mach_o_data = mdata;
- bfd_mach_o_convert_architecture (header->cputype, header->cpusubtype, &cputype, &cpusubtype);
+ bfd_mach_o_convert_architecture (header->cputype, header->cpusubtype,
+ &cputype, &cpusubtype);
if (cputype == bfd_arch_unknown)
{
fprintf (stderr, "bfd_mach_o_scan: unknown architecture 0x%lx/0x%lx\n",
bfd_mach_o_object_p (abfd)
bfd *abfd;
{
+ struct bfd_preserve preserve;
bfd_mach_o_header header;
+ preserve.marker = NULL;
if (bfd_mach_o_read_header (abfd, &header) != 0)
- {
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ goto wrong;
- if (! ((header.byteorder == BFD_ENDIAN_BIG)
- || (header.byteorder == BFD_ENDIAN_LITTLE)))
+ if (! (header.byteorder == BFD_ENDIAN_BIG
+ || header.byteorder == BFD_ENDIAN_LITTLE))
{
- fprintf (stderr, "unknown header byte-order value 0x%lx\n", (long) header.byteorder);
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
+ fprintf (stderr, "unknown header byte-order value 0x%lx\n",
+ (long) header.byteorder);
+ goto wrong;
}
- if (! (((header.byteorder == BFD_ENDIAN_BIG)
- && (abfd->xvec->byteorder == BFD_ENDIAN_BIG)
- && (abfd->xvec->header_byteorder == BFD_ENDIAN_BIG))
- ||
- ((header.byteorder == BFD_ENDIAN_LITTLE)
- && (abfd->xvec->byteorder == BFD_ENDIAN_LITTLE)
- && (abfd->xvec->header_byteorder == BFD_ENDIAN_LITTLE))))
- {
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ if (! ((header.byteorder == BFD_ENDIAN_BIG
+ && abfd->xvec->byteorder == BFD_ENDIAN_BIG
+ && abfd->xvec->header_byteorder == BFD_ENDIAN_BIG)
+ || (header.byteorder == BFD_ENDIAN_LITTLE
+ && abfd->xvec->byteorder == BFD_ENDIAN_LITTLE
+ && abfd->xvec->header_byteorder == BFD_ENDIAN_LITTLE)))
+ goto wrong;
- abfd->tdata.mach_o_data = NULL;
+ preserve.marker = bfd_zalloc (abfd, sizeof (bfd_mach_o_data_struct));
+ if (preserve.marker == NULL
+ || !bfd_preserve_save (abfd, &preserve))
+ goto fail;
- if (bfd_mach_o_scan (abfd, &header) != 0)
- {
- abfd->tdata.mach_o_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ if (bfd_mach_o_scan (abfd, &header,
+ (bfd_mach_o_data_struct *) preserve.marker) != 0)
+ goto wrong;
+ bfd_preserve_finish (abfd, &preserve);
return abfd->xvec;
+
+ wrong:
+ bfd_set_error (bfd_error_wrong_format);
+
+ fail:
+ if (preserve.marker != NULL)
+ bfd_preserve_restore (abfd, &preserve);
+ return NULL;
}
const bfd_target *
bfd_mach_o_core_p (abfd)
bfd *abfd;
{
+ struct bfd_preserve preserve;
bfd_mach_o_header header;
- bfd_set_error (bfd_error_wrong_format);
-
+ preserve.marker = NULL;
if (bfd_mach_o_read_header (abfd, &header) != 0)
- return NULL;
+ goto wrong;
- if (! ((header.byteorder == BFD_ENDIAN_BIG)
- || (header.byteorder == BFD_ENDIAN_LITTLE)))
+ if (! (header.byteorder == BFD_ENDIAN_BIG
+ || header.byteorder == BFD_ENDIAN_LITTLE))
{
- fprintf (stderr, "unknown header byte-order value 0x%lx\n", (long) header.byteorder);
+ fprintf (stderr, "unknown header byte-order value 0x%lx\n",
+ (long) header.byteorder);
abort ();
}
- if (! (((header.byteorder == BFD_ENDIAN_BIG)
- && (abfd->xvec->byteorder == BFD_ENDIAN_BIG)
- && (abfd->xvec->header_byteorder == BFD_ENDIAN_BIG))
- ||
- ((header.byteorder == BFD_ENDIAN_LITTLE)
- && (abfd->xvec->byteorder == BFD_ENDIAN_LITTLE)
- && (abfd->xvec->header_byteorder == BFD_ENDIAN_LITTLE))))
- return NULL;
+ if (! ((header.byteorder == BFD_ENDIAN_BIG
+ && abfd->xvec->byteorder == BFD_ENDIAN_BIG
+ && abfd->xvec->header_byteorder == BFD_ENDIAN_BIG)
+ || (header.byteorder == BFD_ENDIAN_LITTLE
+ && abfd->xvec->byteorder == BFD_ENDIAN_LITTLE
+ && abfd->xvec->header_byteorder == BFD_ENDIAN_LITTLE)))
+ goto wrong;
if (header.filetype != BFD_MACH_O_MH_CORE)
- return NULL;
+ goto wrong;
- abfd->tdata.mach_o_data = NULL;
- if (bfd_mach_o_scan (abfd, &header) != 0)
- {
- abfd->tdata.mach_o_data = NULL;
- return NULL;
- }
+ preserve.marker = bfd_zalloc (abfd, sizeof (bfd_mach_o_data_struct));
+ if (preserve.marker == NULL
+ || !bfd_preserve_save (abfd, &preserve))
+ goto fail;
+ if (bfd_mach_o_scan (abfd, &header,
+ (bfd_mach_o_data_struct *) preserve.marker) != 0)
+ goto wrong;
+
+ bfd_preserve_finish (abfd, &preserve);
return abfd->xvec;
+
+ wrong:
+ bfd_set_error (bfd_error_wrong_format);
+
+ fail:
+ if (preserve.marker != NULL)
+ bfd_preserve_restore (abfd, &preserve);
+ return NULL;
}
typedef struct mach_o_fat_archentry
bfd_mach_o_archive_p (abfd)
bfd *abfd;
{
- mach_o_fat_data_struct *adata;
+ mach_o_fat_data_struct *adata = NULL;
unsigned char buf[20];
unsigned long i;
bfd_seek (abfd, 0, SEEK_SET);
if (bfd_bread ((PTR) buf, 8, abfd) != 8)
- return NULL;
+ goto error;
adata = (mach_o_fat_data_struct *)
bfd_alloc (abfd, sizeof (mach_o_fat_data_struct));
if (adata == NULL)
- return NULL;
+ goto error;
adata->magic = bfd_getb32 (buf);
adata->nfat_arch = bfd_getb32 (buf + 4);
if (adata->magic != 0xcafebabe)
- return NULL;
+ goto error;
adata->archentries = (mach_o_fat_archentry *)
bfd_alloc (abfd, adata->nfat_arch * sizeof (mach_o_fat_archentry));
if (adata->archentries == NULL)
- return NULL;
+ goto error;
for (i = 0; i < adata->nfat_arch; i++)
{
bfd_seek (abfd, 8 + 20 * i, SEEK_SET);
if (bfd_bread ((PTR) buf, 20, abfd) != 20)
- return NULL;
+ goto error;
adata->archentries[i].cputype = bfd_getb32 (buf);
adata->archentries[i].cpusubtype = bfd_getb32 (buf + 4);
adata->archentries[i].offset = bfd_getb32 (buf + 8);
abfd->tdata.mach_o_fat_data = adata;
return abfd->xvec;
+
+ error:
+ if (adata != NULL)
+ bfd_release (abfd, adata);
+ bfd_set_error (bfd_error_wrong_format);
+ return NULL;
}
bfd *
bfd *archive;
bfd *prev;
{
- mach_o_fat_data_struct *adata = (mach_o_fat_data_struct *) archive->tdata.mach_o_fat_data;
+ mach_o_fat_data_struct *adata;
mach_o_fat_archentry *entry = NULL;
unsigned long i;
+ adata = (mach_o_fat_data_struct *) archive->tdata.mach_o_fat_data;
BFD_ASSERT (adata != NULL);
/* Find index of previous entry. */
return entry->abfd;
}
-int bfd_mach_o_lookup_section
- (bfd *abfd, asection *section,
- bfd_mach_o_load_command **mcommand, bfd_mach_o_section **msection)
+int
+bfd_mach_o_lookup_section (abfd, section, mcommand, msection)
+ bfd *abfd;
+ asection *section;
+ bfd_mach_o_load_command **mcommand;
+ bfd_mach_o_section **msection;
{
struct mach_o_data_struct *md = abfd->tdata.mach_o_data;
unsigned int i, j, num;
}
int
-bfd_mach_o_lookup_command
- (bfd *abfd, bfd_mach_o_load_command_type type,
- bfd_mach_o_load_command **mcommand)
+bfd_mach_o_lookup_command (abfd, type, mcommand)
+ bfd *abfd;
+ bfd_mach_o_load_command_type type;
+ bfd_mach_o_load_command **mcommand;
{
struct mach_o_data_struct *md = NULL;
bfd_mach_o_load_command *ncmd = NULL;
case BFD_MACH_O_CPU_TYPE_I860:
return 0;
case BFD_MACH_O_CPU_TYPE_HPPA:
- return (0xc0000000-0x04000000);
+ return 0xc0000000 - 0x04000000;
default:
return 0;
}
for (offset = 4; offset <= size; offset += 4)
{
- unsigned long val = *((unsigned long *) (buf + size - offset));
+ unsigned long val;
+ val = *((unsigned long *) (buf + size - offset));
if (! found_nonnull)
{
if (val != 0)
}
else if (val == 0x0)
{
- unsigned long bottom = seg->fileoff + seg->filesize - offset;
- unsigned long top = seg->fileoff + seg->filesize - 4;
+ unsigned long bottom;
+ unsigned long top;
+ bottom = seg->fileoff + seg->filesize - offset;
+ top = seg->fileoff + seg->filesize - 4;
*rbuf = bfd_malloc (top - bottom);
*rlen = top - bottom;
#undef TARGET_STRING
#undef TARGET_BIG_ENDIAN
#undef TARGET_ARCHIVE
-
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
+ along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#ifndef _BFD_MACH_O_H_
typedef enum bfd_mach_o_section_type
{
/* Regular section. */
- BFD_MACH_O_S_REGULAR = 0x0,
+ BFD_MACH_O_S_REGULAR = 0x0,
/* Zero fill on demand section. */
BFD_MACH_O_S_ZEROFILL = 0x1,
/* Section with only literal C strings. */
- BFD_MACH_O_S_CSTRING_LITERALS = 0x2,
+ BFD_MACH_O_S_CSTRING_LITERALS = 0x2,
/* Section with only 4 byte literals. */
BFD_MACH_O_S_4BYTE_LITERALS = 0x3,
/* Section with only non-lazy symbol pointers. */
BFD_MACH_O_S_NON_LAZY_SYMBOL_POINTERS = 0x6,
-
+
/* Section with only lazy symbol pointers. */
BFD_MACH_O_S_LAZY_SYMBOL_POINTERS = 0x7,
-
+
/* Section with only symbol stubs, byte size of stub in the reserved2 field. */
BFD_MACH_O_S_SYMBOL_STUBS = 0x8,
-
+
/* Section with only function pointers for initialization. */
BFD_MACH_O_S_MOD_INIT_FUNC_POINTERS = 0x9
}
/* This is the second set of the symbolic information which is used to support
the data structures for the dynamicly link editor.
-
+
The original set of symbolic information in the symtab_command which contains
the symbol and string tables must also be present when this load command is
present. When this load command is present the symbol table is organized
undefined external symbols (sorted by name)
In this load command there are offsets and counts to each of the three groups
of symbols.
-
+
This load command contains a the offsets and sizes of the following new
symbolic information tables:
table of contents
module table - the file contains only one module so everything in the
file is part of the module.
reference symbol table - is the defined and undefined external symbols
-
+
For dynamicly linked shared library files this load command also contains
offsets and sizes to the pool of relocation entries for all sections
separated into two groups:
local symbols (further grouped by the module they are from)
defined external symbols (further grouped by the module they are from)
undefined symbols
-
+
The local symbols are used only for debugging. The dynamic binding
process may have to use them to indicate to the debugger the local
symbols for a module that is being bound.
-
+
The last two groups are used by the dynamic binding process to do the
binding (indirectly through the module table and the reference symbol
table when this is a dynamicly linked shared library file). */
unsigned long locreloff; /* Offset to local relocation entries. */
unsigned long nlocrel; /* Number of local relocation entries. */
}
-bfd_mach_o_dysymtab_command;
+bfd_mach_o_dysymtab_command;
-/* An indirect symbol table entry is simply a 32bit index into the symbol table
+/* An indirect symbol table entry is simply a 32bit index into the symbol table
to the symbol that the pointer or stub is refering to. Unless it is for a
- non-lazy symbol pointer section for a defined symbol which strip(1) as
+ non-lazy symbol pointer section for a defined symbol which strip(1) as
removed. In which case it has the value INDIRECT_SYMBOL_LOCAL. If the
symbol was also absolute INDIRECT_SYMBOL_ABS is or'ed with that. */
typedef struct bfd_mach_o_thread_command
{
unsigned long nflavours;
- bfd_mach_o_thread_flavour *flavours;
+ bfd_mach_o_thread_flavour *flavours;
asection *section;
}
bfd_mach_o_thread_command;
int bfd_mach_o_scan_read_symtab_symbols PARAMS ((bfd *, bfd_mach_o_symtab_command *));
int bfd_mach_o_scan_read_dysymtab_symbol PARAMS ((bfd *, bfd_mach_o_dysymtab_command *, bfd_mach_o_symtab_command *, asymbol *, unsigned long));
int bfd_mach_o_scan_start_address PARAMS ((bfd *));
-int bfd_mach_o_scan PARAMS ((bfd *, bfd_mach_o_header *));
+int bfd_mach_o_scan PARAMS ((bfd *, bfd_mach_o_header *, bfd_mach_o_data_struct *));
boolean bfd_mach_o_mkobject PARAMS ((bfd *));
const bfd_target * bfd_mach_o_object_p PARAMS ((bfd *));
const bfd_target * bfd_mach_o_core_p PARAMS ((bfd *));
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
+ along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include <ctype.h>
static void bfd_pef_print_symbol
PARAMS ((bfd *abfd, PTR afile, asymbol *symbol, bfd_print_symbol_type how));
static void bfd_pef_convert_architecture
-PARAMS ((unsigned long architecture,
+PARAMS ((unsigned long architecture,
enum bfd_architecture *type, unsigned long *subtype));
static boolean bfd_pef_mkobject PARAMS ((bfd *abfd));
static int bfd_pef_parse_traceback_table
size_t len, size_t pos, asymbol *sym, FILE *file));
static const char *bfd_pef_section_name PARAMS ((bfd_pef_section *section));
static unsigned long bfd_pef_section_flags PARAMS ((bfd_pef_section *section));
-static asection *bfd_pef_make_bfd_section PARAMS ((bfd *abfd, bfd_pef_section *section));
+static asection *bfd_pef_make_bfd_section
+PARAMS ((bfd *abfd, bfd_pef_section *section));
static int bfd_pef_read_header PARAMS ((bfd *abfd, bfd_pef_header *header));
static const bfd_target *bfd_pef_object_p PARAMS ((bfd *));
static int bfd_pef_parse_traceback_tables
size_t len, long *nsym, asymbol **csym));
static int bfd_pef_parse_function_stub
PARAMS ((bfd *abfd, unsigned char *buf, size_t len, unsigned long *offset));
-static int bfd_pef_parse_function_stubs
+static int bfd_pef_parse_function_stubs
PARAMS ((bfd *abfd, asection *codesec, unsigned char *codebuf, size_t codelen,
- unsigned char *loaderbuf, size_t loaderlen, unsigned long *nsym, asymbol **csym));
+ unsigned char *loaderbuf, size_t loaderlen, unsigned long *nsym,
+ asymbol **csym));
static long bfd_pef_parse_symbols PARAMS ((bfd *abfd, asymbol **csym));
static long bfd_pef_count_symbols PARAMS ((bfd *abfd));
static long bfd_pef_get_symtab_upper_bound PARAMS ((bfd *));
static void bfd_pef_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *));
static int bfd_pef_sizeof_headers PARAMS ((bfd *, boolean));
-static int bfd_pef_xlib_read_header PARAMS ((bfd *abfd, bfd_pef_xlib_header *header));
+static int bfd_pef_xlib_read_header
+PARAMS ((bfd *abfd, bfd_pef_xlib_header *header));
static int bfd_pef_xlib_scan PARAMS ((bfd *abfd, bfd_pef_xlib_header *header));
static const bfd_target *bfd_pef_xlib_object_p PARAMS ((bfd *abfd));
bfd_print_symbol_type how;
{
FILE *file = (FILE *) afile;
- switch (how) {
- case bfd_print_symbol_name:
- fprintf (file, "%s", symbol->name);
- break;
- default:
- bfd_print_symbol_vandf (abfd, (PTR) file, symbol);
- fprintf (file, " %-5s %s", symbol->section->name, symbol->name);
- if (strncmp (symbol->name, "__traceback_", strlen ("__traceback_")) == 0) {
- char *buf = alloca (symbol->udata.i);
- size_t offset = symbol->value + 4;
- size_t len = symbol->udata.i;
- int ret;
-
- bfd_get_section_contents (abfd, symbol->section, buf, offset, len);
- ret = bfd_pef_parse_traceback_table (abfd, symbol->section, buf, len, 0, NULL, file);
- if (ret < 0) {
- fprintf (file, " [ERROR]");
- }
+ switch (how)
+ {
+ case bfd_print_symbol_name:
+ fprintf (file, "%s", symbol->name);
+ break;
+ default:
+ bfd_print_symbol_vandf (abfd, (PTR) file, symbol);
+ fprintf (file, " %-5s %s", symbol->section->name, symbol->name);
+ if (strncmp (symbol->name, "__traceback_", strlen ("__traceback_")) == 0)
+ {
+ char *buf = alloca (symbol->udata.i);
+ size_t offset = symbol->value + 4;
+ size_t len = symbol->udata.i;
+ int ret;
+
+ bfd_get_section_contents (abfd, symbol->section, buf, offset, len);
+ ret = bfd_pef_parse_traceback_table (abfd, symbol->section, buf,
+ len, 0, NULL, file);
+ if (ret < 0)
+ fprintf (file, " [ERROR]");
+ }
}
- }
}
-static void bfd_pef_convert_architecture (architecture, type, subtype)
+static void
+bfd_pef_convert_architecture (architecture, type, subtype)
unsigned long architecture;
enum bfd_architecture *type;
unsigned long *subtype;
const unsigned long ARCH_POWERPC = 0x70777063; /* 'pwpc' */
const unsigned long ARCH_M68K = 0x6d36386b; /* 'm68k' */
-
+
if (architecture == ARCH_POWERPC)
*type = bfd_arch_powerpc;
else if (architecture == ARCH_M68K)
size_t offset;
const char *s;
asymbol tmpsymbol;
-
- if (sym == NULL) { sym = &tmpsymbol; }
+
+ if (sym == NULL)
+ sym = &tmpsymbol;
sym->name = NULL;
sym->value = 0;
/* memcpy is fine since all fields are unsigned char */
- if ((pos + 8) > len) { return -1; }
+ if ((pos + 8) > len)
+ return -1;
memcpy (&table, buf + pos, 8);
-
- /* calling code relies on returned symbols having a name and correct offset */
- if ((table.lang != TB_C) && (table.lang != TB_CPLUSPLUS)) {
+ /* calling code relies on returned symbols having a name and
+ correct offset */
+
+ if ((table.lang != TB_C) && (table.lang != TB_CPLUSPLUS))
return -1;
- }
- if (! (table.flags2 & TB_NAME_PRESENT)) {
+
+ if (! (table.flags2 & TB_NAME_PRESENT))
return -1;
- }
- if (! table.flags1 & TB_HAS_TBOFF) {
+
+ if (! table.flags1 & TB_HAS_TBOFF)
return -1;
- }
offset = 8;
- if ((table.flags5 & TB_FLOATPARAMS) || (table.fixedparams)) {
- offset += 4;
- }
+ if ((table.flags5 & TB_FLOATPARAMS) || (table.fixedparams))
+ offset += 4;
- if (table.flags1 & TB_HAS_TBOFF) {
+ if (table.flags1 & TB_HAS_TBOFF)
+ {
+ struct traceback_table_tboff off;
- struct traceback_table_tboff off;
-
- if ((pos + offset + 4) > len) { return -1; }
- off.tb_offset = bfd_getb32 (buf + pos + offset);
- offset += 4;
+ if ((pos + offset + 4) > len)
+ return -1;
+ off.tb_offset = bfd_getb32 (buf + pos + offset);
+ offset += 4;
- /* need to subtract 4 because the offset includes the 0x0L
- preceding the table */
+ /* need to subtract 4 because the offset includes the 0x0L
+ preceding the table */
- if (file != NULL) {
- fprintf (file, " [offset = 0x%lx]", off.tb_offset);
- }
+ if (file != NULL)
+ fprintf (file, " [offset = 0x%lx]", off.tb_offset);
- if ((file == NULL) && ((off.tb_offset + 4) > (pos + offset))) {
- return -1;
+ if ((file == NULL) && ((off.tb_offset + 4) > (pos + offset)))
+ return -1;
+
+ sym->value = pos - off.tb_offset - 4;
}
- sym->value = pos - off.tb_offset - 4;
- }
- if (table.flags2 & TB_INT_HNDL) {
+ if (table.flags2 & TB_INT_HNDL)
offset += 4;
- }
- if (table.flags1 & TB_HAS_CTL) {
+ if (table.flags1 & TB_HAS_CTL)
+ {
+ struct traceback_table_anchors anchors;
- struct traceback_table_anchors anchors;
+ if ((pos + offset + 4) > len)
+ return -1;
+ anchors.ctl_info = bfd_getb32 (buf + pos + offset);
+ offset += 4;
- if ((pos + offset + 4) > len) { return -1; }
- anchors.ctl_info = bfd_getb32 (buf + pos + offset);
- offset += 4;
+ if (anchors.ctl_info > 1024)
+ return -1;
- if (anchors.ctl_info > 1024) {
- return -1;
+ offset += anchors.ctl_info * 4;
}
- offset += anchors.ctl_info * 4;
- }
+ if (table.flags2 & TB_NAME_PRESENT)
+ {
+ struct traceback_table_routine name;
+ char *namebuf;
- if (table.flags2 & TB_NAME_PRESENT) {
+ if ((pos + offset + 2) > len)
+ return -1;
+ name.name_len = bfd_getb16 (buf + pos + offset);
+ offset += 2;
- struct traceback_table_routine name;
- char *namebuf;
+ if (name.name_len > 4096)
+ return -1;
- if ((pos + offset + 2) > len) { return -1; }
- name.name_len = bfd_getb16 (buf + pos + offset);
- offset += 2;
+ if ((pos + offset + name.name_len) > len)
+ return -1;
- if (name.name_len > 4096) { return -1; }
+ namebuf = (char *) bfd_alloc (abfd, name.name_len + 1);
+ if (namebuf == NULL)
+ return -1;
- if ((pos + offset + name.name_len) > len) { return -1; }
+ memcpy (namebuf, buf + pos + offset, name.name_len);
+ namebuf[name.name_len] = '\0';
- namebuf = (char *) bfd_alloc (abfd, name.name_len + 1);
- if (namebuf == NULL) { return -1; }
+ /* strip leading period inserted by compiler */
+ if (namebuf[0] == '.')
+ memmove (namebuf, namebuf + 1, name.name_len + 1);
- memcpy (namebuf, buf + pos + offset, name.name_len);
- namebuf[name.name_len] = '\0';
-
- /* strip leading period inserted by compiler */
- if (namebuf[0] == '.') {
- memmove (namebuf, namebuf + 1, name.name_len + 1);
- }
+ sym->name = namebuf;
- sym->name = namebuf;
+ for (s = sym->name; (*s != '\0'); s++)
+ if (! isprint (*s))
+ return -1;
- for (s = sym->name; (*s != '\0'); s++) {
- if (! isprint (*s)) {
- return -1;
- }
+ offset += name.name_len;
}
- offset += name.name_len;
- }
-
- if (table.flags2 & TB_USES_ALLOCA) {
+ if (table.flags2 & TB_USES_ALLOCA)
offset += 4;
- }
- if (table.flags4 & TB_HAS_VEC_INFO) {
+ if (table.flags4 & TB_HAS_VEC_INFO)
offset += 4;
- }
- if (file != NULL) {
+ if (file != NULL)
fprintf (file, " [length = 0x%lx]", (long) offset);
- }
+
return offset;
}
static const char *bfd_pef_section_name (section)
bfd_pef_section *section;
{
- switch (section->section_kind) {
- case BFD_PEF_SECTION_CODE: return "code";
- case BFD_PEF_SECTION_UNPACKED_DATA: return "unpacked-data";
- case BFD_PEF_SECTION_PACKED_DATA: return "packed-data";
- case BFD_PEF_SECTION_CONSTANT: return "constant";
- case BFD_PEF_SECTION_LOADER: return "loader";
- case BFD_PEF_SECTION_DEBUG: return "debug";
- case BFD_PEF_SECTION_EXEC_DATA: return "exec-data";
- case BFD_PEF_SECTION_EXCEPTION: return "exception";
- case BFD_PEF_SECTION_TRACEBACK: return "traceback";
- default: return "unknown";
- }
+ switch (section->section_kind)
+ {
+ case BFD_PEF_SECTION_CODE: return "code";
+ case BFD_PEF_SECTION_UNPACKED_DATA: return "unpacked-data";
+ case BFD_PEF_SECTION_PACKED_DATA: return "packed-data";
+ case BFD_PEF_SECTION_CONSTANT: return "constant";
+ case BFD_PEF_SECTION_LOADER: return "loader";
+ case BFD_PEF_SECTION_DEBUG: return "debug";
+ case BFD_PEF_SECTION_EXEC_DATA: return "exec-data";
+ case BFD_PEF_SECTION_EXCEPTION: return "exception";
+ case BFD_PEF_SECTION_TRACEBACK: return "traceback";
+ default: return "unknown";
+ }
}
static unsigned long bfd_pef_section_flags (section)
bfd_pef_section *section;
{
- switch (section->section_kind) {
- case BFD_PEF_SECTION_CODE:
- return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC | SEC_CODE;
- case BFD_PEF_SECTION_UNPACKED_DATA:
- case BFD_PEF_SECTION_PACKED_DATA:
- case BFD_PEF_SECTION_CONSTANT:
- case BFD_PEF_SECTION_LOADER:
- case BFD_PEF_SECTION_DEBUG:
- case BFD_PEF_SECTION_EXEC_DATA:
- case BFD_PEF_SECTION_EXCEPTION:
- case BFD_PEF_SECTION_TRACEBACK:
- default:
- return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC;
- }
+ switch (section->section_kind)
+ {
+ case BFD_PEF_SECTION_CODE:
+ return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC | SEC_CODE;
+ case BFD_PEF_SECTION_UNPACKED_DATA:
+ case BFD_PEF_SECTION_PACKED_DATA:
+ case BFD_PEF_SECTION_CONSTANT:
+ case BFD_PEF_SECTION_LOADER:
+ case BFD_PEF_SECTION_DEBUG:
+ case BFD_PEF_SECTION_EXEC_DATA:
+ case BFD_PEF_SECTION_EXCEPTION:
+ case BFD_PEF_SECTION_TRACEBACK:
+ default:
+ return SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC;
+ }
}
static asection *
const char *name = bfd_pef_section_name (section);
bfdsec = bfd_make_section_anyway (abfd, name);
- if (bfdsec == NULL) { return NULL; }
-
+ if (bfdsec == NULL)
+ return NULL;
+
bfdsec->vma = section->default_address + section->container_offset;
bfdsec->lma = section->default_address + section->container_offset;
bfdsec->_raw_size = section->container_length;
bfd_pef_section *section;
{
unsigned char buf[28];
-
+
bfd_seek (abfd, section->header_offset, SEEK_SET);
- if (bfd_bread ((PTR) buf, 28, abfd) != 28) { return -1; }
+ if (bfd_bread ((PTR) buf, 28, abfd) != 28)
+ return -1;
section->name_offset = bfd_h_get_32 (abfd, buf);
section->default_address = bfd_h_get_32 (abfd, buf + 4);
section->reserved = buf[27];
section->bfd_section = bfd_pef_make_bfd_section (abfd, section);
- if (section->bfd_section == NULL) { return -1; }
+ if (section->bfd_section == NULL)
+ return -1;
return 0;
}
fprintf (file, "init_offset: %lu\n", header->init_offset);
fprintf (file, "term_section: %ld\n", header->term_section);
fprintf (file, "term_offset: %lu\n", header->term_offset);
- fprintf (file, "imported_library_count: %lu\n", header->imported_library_count);
- fprintf (file, "total_imported_symbol_count: %lu\n", header->total_imported_symbol_count);
+ fprintf (file, "imported_library_count: %lu\n",
+ header->imported_library_count);
+ fprintf (file, "total_imported_symbol_count: %lu\n",
+ header->total_imported_symbol_count);
fprintf (file, "reloc_section_count: %lu\n", header->reloc_section_count);
fprintf (file, "reloc_instr_offset: %lu\n", header->reloc_instr_offset);
- fprintf (file, "loader_strings_offset: %lu\n", header->loader_strings_offset);
+ fprintf (file, "loader_strings_offset: %lu\n",
+ header->loader_strings_offset);
fprintf (file, "export_hash_offset: %lu\n", header->export_hash_offset);
- fprintf (file, "export_hash_table_power: %lu\n", header->export_hash_table_power);
- fprintf (file, "exported_symbol_count: %lu\n", header->exported_symbol_count);
+ fprintf (file, "export_hash_table_power: %lu\n",
+ header->export_hash_table_power);
+ fprintf (file, "exported_symbol_count: %lu\n",
+ header->exported_symbol_count);
}
int
int ret;
loadersec = bfd_get_section_by_name (abfd, "loader");
- if (loadersec == NULL) { return -1; }
-
+ if (loadersec == NULL)
+ return -1;
+
loaderlen = bfd_section_size (abfd, loadersec);
loaderbuf = (unsigned char *) bfd_malloc (loaderlen);
if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
- { free (loaderbuf); return -1; }
+ {
+ free (loaderbuf);
+ return -1;
+ }
if (bfd_bread ((PTR) loaderbuf, loaderlen, abfd) != loaderlen)
- { free (loaderbuf); return -1; }
+ {
+ free (loaderbuf);
+ return -1;
+ }
- if (loaderlen < 56) { free (loaderbuf); return -1; }
+ if (loaderlen < 56)
+ {
+ free (loaderbuf);
+ return -1;
+ }
ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
- if (ret < 0) { free (loaderbuf); return -1; }
+ if (ret < 0)
+ {
+ free (loaderbuf);
+ return -1;
+ }
bfd_pef_print_loader_header (abfd, &header, file);
return 0;
int ret;
loadersec = bfd_get_section_by_name (abfd, "loader");
- if (loadersec == NULL) { goto end; }
-
+ if (loadersec == NULL)
+ goto end;
+
loaderlen = bfd_section_size (abfd, loadersec);
loaderbuf = (unsigned char *) bfd_malloc (loaderlen);
- if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0) { goto error; }
- if (bfd_bread ((PTR) loaderbuf, loaderlen, abfd) != loaderlen) { goto error; }
+ if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
+ goto error;
+ if (bfd_bread ((PTR) loaderbuf, loaderlen, abfd) != loaderlen)
+ goto error;
- if (loaderlen < 56) { goto error; }
+ if (loaderlen < 56)
+ goto error;
ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
- if (ret < 0) { goto error; }
+ if (ret < 0)
+ goto error;
+
+ if (header.main_section < 0)
+ goto end;
+
+ for (section = abfd->sections; section != NULL; section = section->next)
+ if ((section->index + 1) == header.main_section)
+ break;
- if (header.main_section < 0) { goto end; }
+ if (section == NULL)
+ goto error;
- for (section = abfd->sections; section != NULL; section = section->next) {
- if ((section->index + 1) == header.main_section) { break; }
- }
-
- if (section == NULL) { goto error; }
-
abfd->start_address = section->vma + header.main_offset;
end:
- if (loaderbuf != NULL) { free (loaderbuf); }
+ if (loaderbuf != NULL)
+ free (loaderbuf);
return 0;
error:
- if (loaderbuf != NULL) { free (loaderbuf); }
+ if (loaderbuf != NULL)
+ free (loaderbuf);
return -1;
}
int
-bfd_pef_scan (abfd, header)
+bfd_pef_scan (abfd, header, mdata)
bfd *abfd;
bfd_pef_header *header;
+ bfd_pef_data_struct *mdata;
{
unsigned int i;
- bfd_pef_data_struct *mdata = NULL;
enum bfd_architecture cputype;
unsigned long cpusubtype;
- if ((header->tag1 != BFD_PEF_TAG1) || (header->tag2 != BFD_PEF_TAG2)) {
- return -1;
- }
+ mdata->header = *header;
- mdata = ((bfd_pef_data_struct *)
- bfd_alloc (abfd, sizeof (bfd_pef_data_struct)));
- if (mdata == NULL) { return -1; }
-
bfd_pef_convert_architecture (header->architecture, &cputype, &cpusubtype);
- if (cputype == bfd_arch_unknown) {
- fprintf (stderr, "bfd_pef_scan: unknown architecture 0x%lx\n", header->architecture);
- return -1;
- }
+ if (cputype == bfd_arch_unknown)
+ {
+ fprintf (stderr, "bfd_pef_scan: unknown architecture 0x%lx\n",
+ header->architecture);
+ return -1;
+ }
bfd_set_arch_mach (abfd, cputype, cpusubtype);
mdata->header = *header;
- abfd->flags = abfd->xvec->object_flags | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS));
+ abfd->flags = (abfd->xvec->object_flags
+ | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
- if (header->section_count != 0) {
-
- mdata->sections =
- ((bfd_pef_section *)
- bfd_alloc (abfd, header->section_count * sizeof (bfd_pef_section)));
- if (mdata->sections == NULL) { return -1; }
+ if (header->section_count != 0)
+ {
+ mdata->sections =
+ ((bfd_pef_section *)
+ bfd_alloc (abfd, header->section_count * sizeof (bfd_pef_section)));
- for (i = 0; i < header->section_count; i++) {
- bfd_pef_section *cur = &mdata->sections[i];
- cur->header_offset = 40 + (i * 28);
- if (bfd_pef_scan_section (abfd, cur) < 0) {
+ if (mdata->sections == NULL)
return -1;
- }
+
+ for (i = 0; i < header->section_count; i++)
+ {
+ bfd_pef_section *cur = &mdata->sections[i];
+ cur->header_offset = 40 + (i * 28);
+ if (bfd_pef_scan_section (abfd, cur) < 0)
+ return -1;
+ }
}
- }
- if (bfd_pef_scan_start_address (abfd) < 0) {
+ if (bfd_pef_scan_start_address (abfd) < 0)
+ {
#if 0
- fprintf (stderr, "bfd_pef_scan: unable to scan start address: %s\n",
- bfd_errmsg (bfd_get_error ()));
- abfd->tdata.pef_data = NULL;
- return -1;
+ fprintf (stderr, "bfd_pef_scan: unable to scan start address: %s\n",
+ bfd_errmsg (bfd_get_error ()));
+ return -1;
#endif
- }
+ }
abfd->tdata.pef_data = mdata;
bfd_seek (abfd, 0, SEEK_SET);
- if (bfd_bread ((PTR) buf, 40, abfd) != 40) { return -1; }
+ if (bfd_bread ((PTR) buf, 40, abfd) != 40)
+ return -1;
header->tag1 = bfd_getb32 (buf);
header->tag2 = bfd_getb32 (buf + 4);
bfd_pef_object_p (abfd)
bfd *abfd;
{
+ struct bfd_preserve preserve;
bfd_pef_header header;
-
- abfd->tdata.pef_data = NULL;
- if (bfd_pef_read_header (abfd, &header) != 0) {
- abfd->tdata.pef_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ preserve.marker = NULL;
+ if (bfd_pef_read_header (abfd, &header) != 0)
+ goto wrong;
- if (bfd_pef_scan (abfd, &header) != 0) {
- abfd->tdata.pef_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ if (header.tag1 != BFD_PEF_TAG1 || header.tag2 != BFD_PEF_TAG2)
+ goto wrong;
+
+ preserve.marker = bfd_zalloc (abfd, sizeof (bfd_pef_data_struct));
+ if (preserve.marker == NULL
+ || !bfd_preserve_save (abfd, &preserve))
+ goto fail;
+ if (bfd_pef_scan (abfd, &header,
+ (bfd_pef_data_struct *) preserve.marker) != 0)
+ goto wrong;
+
+ bfd_preserve_finish (abfd, &preserve);
return abfd->xvec;
+
+ wrong:
+ bfd_set_error (bfd_error_wrong_format);
+
+ fail:
+ if (preserve.marker != NULL)
+ bfd_preserve_restore (abfd, &preserve);
+ return NULL;
}
static int bfd_pef_parse_traceback_tables (abfd, sec, buf, len, nsym, csym)
unsigned long count = 0;
int ret;
- for (;;) {
-
- /* we're reading symbols two at a time */
+ for (;;)
+ {
+ /* we're reading symbols two at a time */
- if (csym && ((csym[count] == NULL) || (csym[count + 1] == NULL))) {
- break;
- }
+ if (csym && ((csym[count] == NULL) || (csym[count + 1] == NULL)))
+ break;
- pos += 3;
- pos -= (pos % 4);
+ pos += 3;
+ pos -= (pos % 4);
- while ((pos + 4) <= len) {
- if (bfd_getb32 (buf + pos) == 0) {
- break;
- }
- pos += 4;
- }
+ while ((pos + 4) <= len)
+ {
+ if (bfd_getb32 (buf + pos) == 0)
+ break;
+ pos += 4;
+ }
- if ((pos + 4) > len) {
- break;
- }
-
- ret = bfd_pef_parse_traceback_table (abfd, sec, buf, len, pos + 4, &function, 0);
- if (ret < 0) {
- /* skip over 0x0L to advance to next possible traceback table */
- pos += 4;
- continue;
- }
-
- BFD_ASSERT (function.name != NULL);
+ if ((pos + 4) > len)
+ break;
- /* Don't bother to compute the name if we are just
- counting symbols */
+ ret = bfd_pef_parse_traceback_table (abfd, sec, buf, len, pos + 4,
+ &function, 0);
+ if (ret < 0)
+ {
+ /* skip over 0x0L to advance to next possible traceback table */
+ pos += 4;
+ continue;
+ }
- if (csym)
- {
- tbnamelen = strlen (tbprefix) + strlen (function.name);
- name = bfd_alloc (abfd, tbnamelen + 1);
- if (name == NULL) {
- bfd_release (abfd, (PTR) function.name);
- function.name = NULL;
- break;
+ BFD_ASSERT (function.name != NULL);
+
+ /* Don't bother to compute the name if we are just
+ counting symbols */
+
+ if (csym)
+ {
+ tbnamelen = strlen (tbprefix) + strlen (function.name);
+ name = bfd_alloc (abfd, tbnamelen + 1);
+ if (name == NULL)
+ {
+ bfd_release (abfd, (PTR) function.name);
+ function.name = NULL;
+ break;
+ }
+ snprintf (name, tbnamelen + 1, "%s%s", tbprefix, function.name);
+ traceback.name = name;
+ traceback.value = pos;
+ traceback.the_bfd = abfd;
+ traceback.section = sec;
+ traceback.flags = 0;
+ traceback.udata.i = ret;
+
+ *(csym[count]) = function;
+ *(csym[count + 1]) = traceback;
}
- snprintf (name, tbnamelen + 1, "%s%s", tbprefix, function.name);
- traceback.name = name;
- traceback.value = pos;
- traceback.the_bfd = abfd;
- traceback.section = sec;
- traceback.flags = 0;
- traceback.udata.i = ret;
-
- *(csym[count]) = function;
- *(csym[count + 1]) = traceback;
- }
- pos += ret;
- count += 2;
- }
+ pos += ret;
+ count += 2;
+ }
*nsym = count;
return 0;
{
BFD_ASSERT (len == 24);
- if ((bfd_getb32 (buf) & 0xffff0000) != 0x81820000) { return -1; }
- if (bfd_getb32 (buf + 4) != 0x90410014) { return -1; }
- if (bfd_getb32 (buf + 8) != 0x800c0000) { return -1; }
- if (bfd_getb32 (buf + 12) != 0x804c0004) { return -1; }
- if (bfd_getb32 (buf + 16) != 0x7c0903a6) { return -1; }
- if (bfd_getb32 (buf + 20) != 0x4e800420) { return -1; }
-
- if (offset != NULL) {
+ if ((bfd_getb32 (buf) & 0xffff0000) != 0x81820000)
+ return -1;
+ if (bfd_getb32 (buf + 4) != 0x90410014)
+ return -1;
+ if (bfd_getb32 (buf + 8) != 0x800c0000)
+ return -1;
+ if (bfd_getb32 (buf + 12) != 0x804c0004)
+ return -1;
+ if (bfd_getb32 (buf + 16) != 0x7c0903a6)
+ return -1;
+ if (bfd_getb32 (buf + 20) != 0x4e800420)
+ return -1;
+
+ if (offset != NULL)
*offset = (bfd_getb32 (buf) & 0x0000ffff) / 4;
- }
return 0;
}
-static int bfd_pef_parse_function_stubs (abfd, codesec, codebuf, codelen, loaderbuf, loaderlen, nsym, csym)
+static int bfd_pef_parse_function_stubs (abfd, codesec, codebuf, codelen,
+ loaderbuf, loaderlen, nsym, csym)
bfd *abfd;
asection *codesec;
unsigned char *codebuf;
unsigned long i;
int ret;
- if (loaderlen < 56) { goto error; }
+ if (loaderlen < 56)
+ goto error;
ret = bfd_pef_parse_loader_header (abfd, loaderbuf, 56, &header);
- if (ret < 0) { goto error; }
+ if (ret < 0)
+ goto error;
libraries = (bfd_pef_imported_library *) bfd_malloc
(header.imported_library_count * sizeof (bfd_pef_imported_library));
imports = (bfd_pef_imported_symbol *) bfd_malloc
(header.total_imported_symbol_count * sizeof (bfd_pef_imported_symbol));
-
- if (loaderlen < (56 + (header.imported_library_count * 24))) { goto error; }
- for (i = 0; i < header.imported_library_count; i++) {
- ret = bfd_pef_parse_imported_library
- (abfd, loaderbuf + 56 + (i * 24), 24, &libraries[i]);
- if (ret < 0) { goto error; }
- }
-
- if (loaderlen < (56 + (header.imported_library_count * 24) + (header.total_imported_symbol_count * 4)))
- { goto error; }
- for (i = 0; i < header.total_imported_symbol_count; i++) {
- ret = bfd_pef_parse_imported_symbol
- (abfd, loaderbuf + 56 + (header.imported_library_count * 24) + (i * 4), 4, &imports[i]);
- if (ret < 0) { goto error; }
- }
-
+
+ if (loaderlen < (56 + (header.imported_library_count * 24)))
+ goto error;
+ for (i = 0; i < header.imported_library_count; i++)
+ {
+ ret = bfd_pef_parse_imported_library
+ (abfd, loaderbuf + 56 + (i * 24), 24, &libraries[i]);
+ if (ret < 0)
+ goto error;
+ }
+
+ if (loaderlen < (56 + (header.imported_library_count * 24)
+ + (header.total_imported_symbol_count * 4)))
+ goto error;
+ for (i = 0; i < header.total_imported_symbol_count; i++)
+ {
+ ret = (bfd_pef_parse_imported_symbol
+ (abfd,
+ loaderbuf + 56 + (header.imported_library_count * 24) + (i * 4),
+ 4, &imports[i]));
+ if (ret < 0)
+ goto error;
+ }
+
codepos = 0;
- for (;;) {
+ for (;;)
+ {
+ asymbol sym;
+ const char *symname;
+ char *name;
+ unsigned long index;
+ int ret;
- asymbol sym;
- const char *symname;
- char *name;
- unsigned long index;
- int ret;
+ if (csym && (csym[count] == NULL))
+ break;
- if (csym && (csym[count] == NULL)) { break; }
+ codepos += 3;
+ codepos -= (codepos % 4);
- codepos += 3;
- codepos -= (codepos % 4);
+ while ((codepos + 4) <= codelen)
+ {
+ if ((bfd_getb32 (codebuf + codepos) & 0xffff0000) == 0x81820000)
+ break;
+ codepos += 4;
+ }
- while ((codepos + 4) <= codelen) {
- if ((bfd_getb32 (codebuf + codepos) & 0xffff0000) == 0x81820000) {
+ if ((codepos + 4) > codelen)
break;
- }
- codepos += 4;
- }
- if ((codepos + 4) > codelen) {
- break;
- }
+ ret = bfd_pef_parse_function_stub (abfd, codebuf + codepos, 24, &index);
+ if (ret < 0)
+ {
+ codepos += 24;
+ continue;
+ }
- ret = bfd_pef_parse_function_stub (abfd, codebuf + codepos, 24, &index);
- if (ret < 0) { codepos += 24; continue; }
-
- if (index >= header.total_imported_symbol_count) { codepos += 24; continue; }
+ if (index >= header.total_imported_symbol_count)
+ {
+ codepos += 24;
+ continue;
+ }
- {
- size_t max, namelen;
- const char *s;
-
- if (loaderlen < (header.loader_strings_offset + imports[index].name)) { goto error; }
-
- max = loaderlen - (header.loader_strings_offset + imports[index].name);
- symname = loaderbuf + header.loader_strings_offset + imports[index].name;
- namelen = 0;
- for (s = symname; s < (symname + max); s++) {
- if (*s == '\0') { break; }
- if (! isprint (*s)) { goto error; }
- namelen++;
- }
- if (*s != '\0') { goto error; }
+ {
+ size_t max, namelen;
+ const char *s;
+
+ if (loaderlen < (header.loader_strings_offset + imports[index].name))
+ goto error;
+
+ max = loaderlen - (header.loader_strings_offset + imports[index].name);
+ symname = loaderbuf + header.loader_strings_offset + imports[index].name;
+ namelen = 0;
+ for (s = symname; s < (symname + max); s++)
+ {
+ if (*s == '\0')
+ break;
+ if (! isprint (*s))
+ goto error;
+ namelen++;
+ }
+ if (*s != '\0')
+ goto error;
+
+ name = bfd_alloc (abfd, strlen (sprefix) + namelen + 1);
+ if (name == NULL)
+ break;
- name = bfd_alloc (abfd, strlen (sprefix) + namelen + 1);
- if (name == NULL) { break; }
+ snprintf (name, strlen (sprefix) + namelen + 1, "%s%s",
+ sprefix, symname);
+ sym.name = name;
+ }
- snprintf (name, strlen (sprefix) + namelen + 1, "%s%s", sprefix, symname);
- sym.name = name;
- }
+ sym.value = codepos;
+ sym.the_bfd = abfd;
+ sym.section = codesec;
+ sym.flags = 0;
+ sym.udata.i = 0;
- sym.value = codepos;
- sym.the_bfd = abfd;
- sym.section = codesec;
- sym.flags = 0;
- sym.udata.i = 0;
+ codepos += 24;
- codepos += 24;
+ if (csym != NULL)
+ *(csym[count]) = sym;
- if (csym != NULL) {
- *(csym[count]) = sym;
+ count++;
}
- count++;
- }
goto end;
end:
- if (libraries != NULL) { free (libraries); }
- if (imports != NULL) { free (imports); }
+ if (libraries != NULL)
+ free (libraries);
+ if (imports != NULL)
+ free (imports);
*nsym = count;
return 0;
error:
- if (libraries != NULL) { free (libraries); }
- if (imports != NULL) { free (imports); }
+ if (libraries != NULL)
+ free (libraries);
+ if (imports != NULL)
+ free (imports);
*nsym = count;
return -1;
-}
+}
static long bfd_pef_parse_symbols (abfd, csym)
bfd *abfd;
{
codelen = bfd_section_size (abfd, codesec);
codebuf = (unsigned char *) bfd_malloc (codelen);
- if (bfd_seek (abfd, codesec->filepos, SEEK_SET) < 0) { goto end; }
- if (bfd_bread ((PTR) codebuf, codelen, abfd) != codelen) { goto end; }
+ if (bfd_seek (abfd, codesec->filepos, SEEK_SET) < 0)
+ goto end;
+ if (bfd_bread ((PTR) codebuf, codelen, abfd) != codelen)
+ goto end;
}
loadersec = bfd_get_section_by_name (abfd, "loader");
{
loaderlen = bfd_section_size (abfd, loadersec);
loaderbuf = (unsigned char *) bfd_malloc (loaderlen);
- if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0) { goto end; }
- if (bfd_bread ((PTR) loaderbuf, loaderlen, abfd) != loaderlen) { goto end; }
+ if (bfd_seek (abfd, loadersec->filepos, SEEK_SET) < 0)
+ goto end;
+ if (bfd_bread ((PTR) loaderbuf, loaderlen, abfd) != loaderlen)
+ goto end;
}
-
+
count = 0;
if (codesec != NULL)
{
unsigned long ncount = 0;
- bfd_pef_parse_traceback_tables (abfd, codesec, codebuf, codelen, &ncount, csym);
+ bfd_pef_parse_traceback_tables (abfd, codesec, codebuf, codelen,
+ &ncount, csym);
count += ncount;
}
(csym != NULL) ? (csym + count) : NULL);
count += ncount;
}
-
- if (csym != NULL) {
+
+ if (csym != NULL)
csym[count] = NULL;
- }
-
+
end:
- if (codebuf != NULL)
+ if (codebuf != NULL)
free (codebuf);
- if (loaderbuf != NULL)
- free (loaderbuf);
-
+ if (loaderbuf != NULL)
+ free (loaderbuf);
+
return count;
}
bfd *abfd;
{
long nsyms = bfd_pef_count_symbols (abfd);
- if (nsyms < 0) { return nsyms; }
+ if (nsyms < 0)
+ return nsyms;
return ((nsyms + 1) * sizeof (asymbol *));
}
long ret;
long nsyms = bfd_pef_count_symbols (abfd);
- if (nsyms < 0) { return nsyms; }
+ if (nsyms < 0)
+ return nsyms;
syms = bfd_alloc (abfd, nsyms * sizeof (asymbol));
- if (syms == NULL) { return -1; }
+ if (syms == NULL)
+ return -1;
- for (i = 0; i < nsyms; i++) {
+ for (i = 0; i < nsyms; i++)
alocation[i] = &syms[i];
- }
+
alocation[nsyms] = NULL;
ret = bfd_pef_parse_symbols (abfd, alocation);
- if (ret != nsyms) {
+ if (ret != nsyms)
return 0;
- }
return ret;
}
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
NULL,
-
+
NULL
};
bfd_seek (abfd, 0, SEEK_SET);
- if (bfd_bread ((PTR) buf, 76, abfd) != 76) { return -1; }
+ if (bfd_bread ((PTR) buf, 76, abfd) != 76)
+ return -1;
header->tag1 = bfd_getb32 (buf);
header->tag2 = bfd_getb32 (buf + 4);
{
bfd_pef_xlib_data_struct *mdata = NULL;
- if ((header->tag1 != BFD_PEF_XLIB_TAG1)
- || ((header->tag2 != BFD_PEF_VLIB_TAG2) && (header->tag2 != BFD_PEF_BLIB_TAG2))) {
+ mdata = ((bfd_pef_xlib_data_struct *)
+ bfd_alloc (abfd, sizeof (bfd_pef_xlib_data_struct)));
+ if (mdata == NULL)
return -1;
- }
- mdata = ((bfd_pef_xlib_data_struct *)
- bfd_alloc (abfd, sizeof (bfd_pef_xlib_data_struct)));
- if (mdata == NULL) { return -1; }
-
mdata->header = *header;
- abfd->flags = abfd->xvec->object_flags | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS));
+ abfd->flags = (abfd->xvec->object_flags
+ | (abfd->flags & (BFD_IN_MEMORY | BFD_IO_FUNCS)));
abfd->tdata.pef_xlib_data = mdata;
bfd_pef_xlib_object_p (abfd)
bfd *abfd;
{
+ struct bfd_preserve preserve;
bfd_pef_xlib_header header;
-
- abfd->tdata.pef_xlib_data = NULL;
- if (bfd_pef_xlib_read_header (abfd, &header) != 0) {
- abfd->tdata.pef_xlib_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ if (bfd_pef_xlib_read_header (abfd, &header) != 0)
+ {
+ bfd_set_error (bfd_error_wrong_format);
+ return NULL;
+ }
- if (bfd_pef_xlib_scan (abfd, &header) != 0) {
- abfd->tdata.pef_xlib_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ if ((header.tag1 != BFD_PEF_XLIB_TAG1)
+ || ((header.tag2 != BFD_PEF_VLIB_TAG2)
+ && (header.tag2 != BFD_PEF_BLIB_TAG2)))
+ {
+ bfd_set_error (bfd_error_wrong_format);
+ return NULL;
+ }
+ if (! bfd_preserve_save (abfd, &preserve))
+ {
+ bfd_set_error (bfd_error_wrong_format);
+ return NULL;
+ }
+
+ if (bfd_pef_xlib_scan (abfd, &header) != 0)
+ {
+ bfd_preserve_restore (abfd, &preserve);
+ bfd_set_error (bfd_error_wrong_format);
+ return NULL;
+ }
+
+ bfd_preserve_finish (abfd, &preserve);
return abfd->xvec;
}
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
NULL,
-
+
NULL
};
-
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
+ along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "bfd.h"
long main_section;
unsigned long main_offset;
long init_section;
- unsigned long init_offset;
+ unsigned long init_offset;
long term_section;
unsigned long term_offset;
unsigned long imported_library_count;
int bfd_pef_parse_imported_symbol PARAMS ((bfd *, unsigned char *, size_t, bfd_pef_imported_symbol *));
int bfd_pef_scan_section PARAMS ((bfd *, bfd_pef_section *));
int bfd_pef_scan_start_address PARAMS ((bfd *));
-int bfd_pef_scan PARAMS ((bfd *, bfd_pef_header *));
+int bfd_pef_scan PARAMS ((bfd *, bfd_pef_header *, bfd_pef_data_struct *));
&pc532machaout_vec,
&pc532netbsd_vec,
&pdp11_aout_vec,
-#if 0
- /* bfd_pef_object_p and bfd_pef_xlib_object_p are broken. */
&pef_vec,
&pef_xlib_vec,
-#endif
#if 0
/* This has the same magic number as RS/6000. */
&pmac_xcoff_vec,
&sparclynx_coff_vec,
&sparcnetbsd_vec,
&sunos_big_vec,
-#if 0
- /* bfd_sym_object_p is broken. */
&sym_vec,
-#endif
&tic30_aout_vec,
&tic30_coff_vec,
&tic54x_coff0_beh_vec,
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
+ along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "xsym.h"
if (abfd == NULL || abfd->xvec == NULL)
return 0;
- return (abfd->xvec == &sym_vec);
+ return abfd->xvec == &sym_vec;
}
unsigned char *
long ret;
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;
-
+
rstr = (unsigned char *) bfd_alloc (abfd, table_size);
if (rstr == NULL)
return rstr;
bfd_seek (abfd, table_offset, SEEK_SET);
ret = bfd_bread (rstr, table_size, abfd);
- if ((ret < 0) || ((unsigned long) ret != table_size))
+ if (ret < 0 || (unsigned long) ret != table_size)
{
bfd_release (abfd, rstr);
return NULL;
}
-
+
return rstr;
}
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 (buf, len, header)
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 + 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);
}
{
unsigned char buf[154];
long ret;
-
+
ret = bfd_bread (buf, 154, abfd);
if (ret != 154)
return -1;
-
+
bfd_sym_parse_header_v32 (buf, 154, header);
-
+
return 0;
}
{
unsigned char version_string[32];
long ret;
-
+
ret = bfd_bread (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_5;
else
return -1;
-
+
return 0;
}
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_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");
}
bfd_sym_file_references_table_entry *entry;
{
unsigned int type;
-
+
BFD_ASSERT (len == 10);
memset (entry, 0, sizeof (bfd_sym_file_references_table_entry));
memset (entry, 0, sizeof (bfd_sym_contained_modules_table_entry));
type = bfd_getb16 (buf);
-
+
switch (type)
{
case BFD_SYM_END_OF_LIST_3_2:
bfd_sym_contained_variables_table_entry *entry;
{
unsigned int type;
-
+
BFD_ASSERT (len == 26);
memset (entry, 0, sizeof (bfd_sym_contained_variables_table_entry));
memset (entry, 0, sizeof (bfd_sym_contained_statements_table_entry));
type = bfd_getb16 (buf);
-
+
switch (type)
{
case BFD_SYM_END_OF_LIST_3_2:
memset (entry, 0, sizeof (bfd_sym_contained_labels_table_entry));
type = bfd_getb16 (buf);
-
+
switch (type)
{
case BFD_SYM_END_OF_LIST_3_2:
bfd_sym_type_table_entry *entry;
{
BFD_ASSERT (len == 4);
-
+
*entry = bfd_getb32 (buf);
}
bfd_sym_resources_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_resources_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_rte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_modules_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_modules_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_mte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_file_references_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_file_references_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_frte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_contained_modules_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_contained_modules_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_cmte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_contained_variables_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_contained_variables_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_cvte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_contained_statements_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_contained_statements_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_csnte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_contained_labels_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_contained_labels_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_clte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_contained_types_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_contained_types_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_ctte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_file_references_index_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_file_references_index_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_fite.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_constant_pool_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_constant_pool_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_fite.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
bfd_sym_type_table_entry *entry;
unsigned long index;
{
- void (*parser) (unsigned char *, size_t, bfd_sym_type_table_entry *) = NULL;
+ void (*parser) PARAMS ((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;
offset = compute_offset (sdata->header.dshb_tte.dti_first_page,
sdata->header.dshb_page_size,
entry_size, index);
-
+
if (bfd_seek (abfd, offset, SEEK_SET) < 0)
return -1;
if (bfd_bread (buf, entry_size, abfd) != entry_size)
return -1;
(*parser) (buf, entry_size, entry);
-
+
return 0;
}
if (bfd_bread (buf, 4, abfd) != 4)
return -1;
entry->nte_index = bfd_getb32 (buf);
-
+
if (bfd_bread (buf, 2, abfd) != 2)
return -1;
entry->physical_size = bfd_getb16 (buf);
-
+
if (entry->physical_size & 0x8000)
{
if (bfd_bread (buf, 4, abfd) != 4)
if (index == 0)
return "";
-
+
index *= 2;
- if ((index / sdata->header.dshb_page_size) > sdata->header.dshb_nte.dti_page_count)
+ if ((index / sdata->header.dshb_page_size)
+ > sdata->header.dshb_nte.dti_page_count)
return "\009[INVALID]";
-
- return ((const unsigned char *) sdata->name_table + index);
+
+ return (const unsigned char *) sdata->name_table + index;
}
const unsigned char *
unsigned long index;
{
bfd_sym_modules_table_entry entry;
-
+
if (bfd_sym_fetch_modules_table_entry (abfd, &entry, index) < 0)
return "\011[INVALID]";
bfd_sym_file_references_table_entry frtentry;
int ret;
- ret = bfd_sym_fetch_file_references_table_entry (abfd, &frtentry, entry->fref_frte_index);
+ 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))
&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 (abfd, f, entry)
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 ");
+
+ 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, " range %lu -- %lu",
+ entry->mte_imp_fref.fref_offset, entry->mte_imp_end);
- fprintf (f, "\n ");
+ 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, "\n ");
- fprintf (f, "CMTE %lu, CVTE %lu, CLTE %lu, CTTE %lu, CSNTE1 %lu, CSNTE2 %lu",
+ 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
switch (entry->generic.type)
{
case BFD_SYM_FILE_NAME_INDEX:
- fprintf (f, "FILE \"%.*s\" (NTE %lu), modtime ",
+ 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, "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));
}
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,
entry->entry.address.biglastruct.big_la_kind);
else
fprintf (f, "END");
return;
}
-
+
if (entry->generic.type == BFD_SYM_SOURCE_FILE_CHANGE)
{
bfd_sym_print_file_reference (abfd, f, &entry->file.fref);
if (offsetptr != NULL)
*offsetptr = offset;
- return;
+ return;
}
-
+
type = buf[offset];
offset++;
long value;
bfd_sym_type_information_table_entry tinfo;
- bfd_sym_fetch_long (buf, len, offset, &offset, &value);
+ 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\"",
+ fprintf (f, "\"%.*s\"",
bfd_sym_symbol_name (abfd, tinfo.nte_index)[0],
&bfd_sym_symbol_name (abfd, tinfo.nte_index)[1]);
}
fprintf (f, " (%lu)", value);
break;
}
-
+
case 5:
{
unsigned long lower, upper, nelem;
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);
+ 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: ", lower, upper, nelem);
for (i = 0; i < nelem; i++)
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: ", nrec);
+
+ bfd_sym_fetch_long (buf, len, offset, &offset, &nrec);
+ fprintf (f, "%lu elements: ", nrec);
for (i = 0; i < nrec; i++)
{
- bfd_sym_fetch_long (buf, len, offset, &offset, &eloff);
+ bfd_sym_fetch_long (buf, len, offset, &offset, &eloff);
fprintf (f, "\n ");
- fprintf (f, "offset %lu: ", eloff);
+ fprintf (f, "offset %lu: ", eloff);
bfd_sym_print_type_information (abfd, f, buf, len, offset, &offset);
}
break;
long value;
fprintf (f, "named type (0x%x) ", type);
- bfd_sym_fetch_long (buf, len, offset, &offset, &value);
+ bfd_sym_fetch_long (buf, len, offset, &offset, &value);
if (value <= 0)
fprintf (f, "[INVALID]");
else
- fprintf (f, "\"%.*s\"",
+ fprintf (f, "\"%.*s\"",
bfd_sym_symbol_name (abfd, value)[0],
&bfd_sym_symbol_name (abfd, value)[1]);
fprintf (f, "%s (0x%x)", bfd_sym_type_operator_name (type), type);
break;
}
-
+
if (type == (0x40 | 0x6))
{
/* Vector. */
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);
+ 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);
+ bfd_sym_fetch_long (buf, len, offset, &offset, &l);
if (i != 0)
fprintf (f, " ");
fprintf (f, "%ld", l);
/* Other packed type. */
long msb, lsb;
- bfd_sym_fetch_long (buf, len, offset, &offset, &msb);
- bfd_sym_fetch_long (buf, len, offset, &offset, &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);
}
entry->nte_index,
entry->physical_size, entry->offset, entry->logical_size);
- fprintf (f, "\n ");
+ fprintf (f, "\n ");
buf = alloca (entry->physical_size);
if (buf == NULL)
}
fprintf (f, "]");
- fprintf (f, "\n ");
+ fprintf (f, "\n ");
bfd_sym_print_type_information (abfd, f, buf, entry->physical_size, 0, &offset);
BFD_ASSERT (bfd_sym_valid (abfd));
sdata = abfd->tdata.sym_data;
index = (entry - sdata->name_table) / 2;
-
- if ((sdata->version >= BFD_SYM_VERSION_3_4) && (entry[0] == 255) && (entry[1] == 0))
+
+ if (sdata->version >= BFD_SYM_VERSION_3_4 && entry[0] == 255 && entry[1] == 0)
{
- unsigned short length = bfd_getb16 (entry + 2);
+ unsigned short length = bfd_getb16 (entry + 2);
fprintf (f, "[%8lu] \"%.*s\"\n", index, length, entry + 4);
offset = 2 + length + 1;
}
else
{
- if (! ((entry[0] == 0) || ((entry[0] == 1) && (entry[1] == '\0'))))
+ if (! (entry[0] == 0 || (entry[0] == 1 && entry[1] == '\0')))
fprintf (f, "[%8lu] \"%.*s\"\n", index, entry[0], entry + 1);
if (sdata->version >= BFD_SYM_VERSION_3_4)
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 (;;)
{
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)
FILE *f;
{
unsigned long i;
- bfd_sym_contained_modules_table_entry entry;
+ bfd_sym_contained_modules_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
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, "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)
FILE *f;
{
unsigned long i;
- bfd_sym_contained_statements_table_entry entry;
+ bfd_sym_contained_statements_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
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, "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)
FILE *f;
{
unsigned long i;
- bfd_sym_contained_types_table_entry entry;
+ bfd_sym_contained_types_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
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)
FILE *f;
{
unsigned long i;
- bfd_sym_file_references_index_table_entry entry;
+ bfd_sym_file_references_index_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
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)
FILE *f;
{
unsigned long i;
- bfd_sym_constant_pool_entry entry;
+ bfd_sym_constant_pool_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
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)
{
unsigned long i;
bfd_sym_type_table_entry index;
- bfd_sym_type_information_table_entry entry;
+ bfd_sym_type_information_table_entry entry;
bfd_sym_data_struct *sdata = NULL;
BFD_ASSERT (bfd_sym_valid (abfd));
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, &index, i - 100) < 0)
}
}
-const bfd_target *
-bfd_sym_object_p (abfd)
+int
+bfd_sym_scan (abfd, version, mdata)
bfd *abfd;
+ bfd_sym_version version;
+ bfd_sym_data_struct *mdata;
{
- bfd_sym_data_struct *mdata = NULL;
asection *bfdsec;
const char *name = "symbols";
-
- mdata = ((bfd_sym_data_struct *)
- bfd_alloc (abfd, sizeof (bfd_sym_data_struct)));
- if (mdata == NULL)
- return NULL;
-
- abfd->tdata.sym_data = mdata;
mdata->name_table = 0;
mdata->sbfd = abfd;
+ mdata->version = version;
- bfd_seek (abfd, 0, SEEK_SET);
- if (bfd_sym_read_version (abfd, &mdata->version) != 0)
- {
- abfd->tdata.sym_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
-
bfd_seek (abfd, 0, SEEK_SET);
if (bfd_sym_read_header (abfd, &mdata->header, mdata->version) != 0)
- {
- abfd->tdata.sym_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ return -1;
mdata->name_table = bfd_sym_read_name_table (abfd, &mdata->header);
if (mdata->name_table == NULL)
- {
- abfd->tdata.sym_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
+ return -1;
bfdsec = bfd_make_section_anyway (abfd, name);
if (bfdsec == NULL)
- {
- abfd->tdata.sym_data = NULL;
- bfd_set_error (bfd_error_wrong_format);
- return NULL;
- }
-
+ return -1;
+
bfdsec->vma = 0;
bfdsec->lma = 0;
bfdsec->_raw_size = 0;
bfdsec->filepos = 0;
bfdsec->alignment_power = 0;
-
+
bfdsec->flags = SEC_HAS_CONTENTS;
+ abfd->tdata.sym_data = mdata;
+
+ return 0;
+}
+
+const bfd_target *
+bfd_sym_object_p (abfd)
+ bfd *abfd;
+{
+ struct bfd_preserve preserve;
+ bfd_sym_version version = -1;
+
+ preserve.marker = NULL;
+ bfd_seek (abfd, 0, SEEK_SET);
+ if (bfd_sym_read_version (abfd, &version) != 0)
+ goto wrong;
+
+ preserve.marker = bfd_alloc (abfd, sizeof (bfd_sym_data_struct));
+ if (preserve.marker == NULL
+ || ! bfd_preserve_save (abfd, &preserve))
+ goto fail;
+
+ if (bfd_sym_scan (abfd, version,
+ (bfd_sym_data_struct *) preserve.marker) != 0)
+ goto wrong;
+
+ bfd_preserve_finish (abfd, &preserve);
return abfd->xvec;
+
+ wrong:
+ bfd_set_error (bfd_error_wrong_format);
+
+ fail:
+ if (preserve.marker != NULL)
+ bfd_preserve_restore (abfd, &preserve);
+ return NULL;
}
asymbol *
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
NULL,
-
+
NULL
};
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
+ along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "bfd.h"
/* NAME TABLE (NTE). */
/* RESOURCES TABLE (RTE)
-
+
All code and data is *defined* to reside in a resource. Even A5
relative data is defined to reside in a dummy resource of ResType
'gbld'. Code always resides in a resource. Because a code/data
typedef struct bfd_sym_resources_table_entry bfd_sym_resources_table_entry;
/* MODULES TABLE (MTE)
-
+
Modules table entries are ordered by their appearance in a resource.
(Note that having a single module copied into two resources is not
possible). Modules map back to their resource via an index into the
unsigned long mte_ctte_index; /* Types contained in this. */
unsigned long mte_csnte_idx_1; /* CSNTE index of mte_snbr_first. */
unsigned long mte_csnte_idx_2; /* CSNTE index of mte_snbr_last. */
-};
+};
typedef struct bfd_sym_modules_table_entry bfd_sym_modules_table_entry;
/* FILE REFERENCES TABLE (FRTE)
-
+
The FILE REFERENCES TABLE maps from source file to module & offset.
The table is ordered by increasing file offset. Each new offset
references a module.
-
+
FRT = FILE_SOURCE_START
FILE_SOURCE_INCREMENT*
END_OF_LIST.
-
+
*** THIS MECHANISM IS VERY SLOW FOR FILE+STATEMENT_NUMBER TO
*** MODULE/CODE ADDRESS OPERATIONS. ANOTHER MECHANISM IS
*** REQUIRED!! */
unsigned long mod_date;
}
filename;
-
+
struct
{
/* < FILE_NAME_INDEX. */
Contained Modules are lists of indices into the modules table. The
lists are terminated by an END_OF_LIST index. All entries are of the
same size, hence mapping an index into a CMTE list is simple.
-
+
CMT = MTE_INDEX* END_OF_LIST. */
union bfd_sym_contained_modules_table_entry
unsigned long type;
}
generic;
-
+
struct
{
unsigned long mte_index; /* Index into the Modules Table. */
typedef union bfd_sym_contained_modules_table_entry bfd_sym_contained_modules_table_entry;
/* CONTAINED VARIABLES TABLE (CVTE)
-
+
Contained Variables map into the module table, file table, name table, and type
table. Contained Variables are a contiguous list of source file change record,
giving the name of and offset into the source file corresponding to all variables
table giving the type of the variable, an increment added to the source file
offset giving the start of the implementation of the variable, and a storage
class address, giving information on variable's runtime address.
-
+
CVT = SOURCE_FILE_CHANGE SYMBOL_INFO* END_OF_LIST.
SYMBOL_INFO = SYMBOL_DEFINITION | SOURCE_FILE_CHANGE .
-
+
All entries are of the same size, making the fetching of data simple. The
variable entries in the list are in ALPHABETICAL ORDER to simplify the display of
available variables for several of the debugger's windows. */
/* 'la_size' determines the variant used below:
-
+
== BFD_SYM_CVTE_SCA
Traditional STORAGE_CLASS_ADDRESS;
-
+
<= BFD_SYM_CVTE_LA_MAX_SIZE
That many logical address bytes ("in-situ");
-
+
== BFD_SYM_CVTE_BIG_LA
Logical address bytes in constant pool, at offset 'big_la'. */
-
+
#define BFD_SYM_CVTE_SCA 0 /* Indicate SCA variant of CVTE. */
#define BFD_SYM_CVTE_LA_MAX_SIZE 13 /* Max# of logical address bytes in a CVTE. */
#define BFD_SYM_CVTE_BIG_LA 127 /* Indicates LA redirection to constant pool. */
typedef union bfd_sym_contained_variables_table_entry bfd_sym_contained_variables_table_entry;
/* CONTAINED STATEMENTS TABLE (CSNTE)
-
+
Contained Statements table. This table is similar to the Contained
Variables table except that instead of VARIABLE_DEFINITION entries, this
module contains STATEMENT_NUMBER_DEFINITION entries. A statement number
All entries are of the same size, making the fetching of data simple. The
entries in the table are in order of increasing statement number within the
source file.
-
+
The Contained Statements table is indexed from two places. An MTE contains
an index to the first statement number within the module. An FRTE contains
an index to the first statement in the table (Possibly. This is slow.) Or
typedef union bfd_sym_contained_statements_table_entry bfd_sym_contained_statements_table_entry;
/* CONTAINED LABELS TABLE (CLTE)
-
+
Contained Labels table names those labels local to the module. It is similar
to the Contained Statements table. */
typedef union bfd_sym_contained_labels_table_entry bfd_sym_contained_labels_table_entry;
/* CONTAINED TYPES TABLE (CTTE)
-
+
Contained Types define the named types that are in the module. It is used to
map name indices into type indices. The type entries in the table are in
alphabetical order by type name. */
struct
{
/* < SOURCE_FILE_CHANGE. */
- unsigned long tte_index;
+ unsigned long tte_index;
unsigned long nte_index;
unsigned long file_delta; /* From last file definition. */
}
typedef struct bfd_sym_type_information_table_entry bfd_sym_type_information_table_entry;
/* FILE REFERENCES INDEX TABLE (FITE)
-
+
The FRTE INDEX TABLE indexes into the FILE REFERENCE TABLE above. The FRTE
at that index is the FILE_SOURCE_START for a series of files. The FRTEs are
indexed from 1. The list is terminated with an END_OF_LIST. */
unsigned long type;
}
generic;
-
+
struct
{
unsigned long frte_index; /* Index into the FRTE table. */
typedef union bfd_sym_file_references_index_table_entry bfd_sym_file_references_index_table_entry;
/* CONSTANT POOL (CONST)
-
+
The CONSTANT_POOL consists of entries that start on word boundaries. The entries
are referenced by byte index into the constant pool, not by record number.
-
+
Each entry takes the form:
-
+
<16-bit size>
<that many bytes of stuff>
-
+
Entries do not cross page boundaries. */
typedef short bfd_sym_constant_pool_entry;
allocations. For the purposes of paging, the * file is considered
to be an array of dshb_page_size blocks, with block 0 (and *
possibly more) devoted to the DISK_SYMBOL_HEADER_BLOCK.
-
+
The dti_object_count field means that the allowed indices for that
type of object are 0 .. dti_object_count. An index of 0, although
allowed, is never done. However, an 0th entry is created in the
};
typedef struct bfd_sym_table_info bfd_sym_table_info;
-struct bfd_sym_header_block
+struct bfd_sym_header_block
{
unsigned char dshb_id[32]; /* Version information. */
unsigned short dshb_page_size; /* Size of the pages/blocks. */
PARAMS ((bfd *, FILE *));
extern void bfd_sym_display_type_information_table
PARAMS ((bfd *, FILE *));
+extern int bfd_sym_scan
+ PARAMS ((bfd *, bfd_sym_version, bfd_sym_data_struct *));
extern const bfd_target * bfd_sym_object_p
PARAMS ((bfd *));
extern asymbol * bfd_sym_make_empty_symbol
projects / deliverable / binutils-gdb.git / commitdiff
