mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-03 04:12:10 +08:00
07d6d2b834
Binutils is supposed to use tabs. In my git config I have whitespace = indent-with-non-tab,space-before-tab,trailing-space and I got annoyed enough seeing red in "git diff" output to fix the problems. * doc/header.sed: Trim trailing space when splitting lines. * aix386-core.c, * aout-adobe.c, * aout-arm.c, * aout-cris.c, * aout-ns32k.c, * aout-target.h, * aout-tic30.c, * aoutf1.h, * aoutx.h, * arc-got.h, * arc-plt.def, * arc-plt.h, * archive.c, * archive64.c, * archures.c, * armnetbsd.c, * bfd-in.h, * bfd.c, * bfdio.c, * binary.c, * bout.c, * cache.c, * cisco-core.c, * coff-alpha.c, * coff-apollo.c, * coff-arm.c, * coff-h8300.c, * coff-i386.c, * coff-i860.c, * coff-i960.c, * coff-m68k.c, * coff-m88k.c, * coff-mcore.c, * coff-mips.c, * coff-ppc.c, * coff-rs6000.c, * coff-sh.c, * coff-stgo32.c, * coff-tic4x.c, * coff-tic54x.c, * coff-tic80.c, * coff-we32k.c, * coff-x86_64.c, * coff-z80.c, * coff-z8k.c, * coff64-rs6000.c, * coffcode.h, * coffgen.c, * cofflink.c, * coffswap.h, * compress.c, * corefile.c, * cpu-alpha.c, * cpu-arm.c, * cpu-avr.c, * cpu-bfin.c, * cpu-cr16.c, * cpu-cr16c.c, * cpu-crx.c, * cpu-d10v.c, * cpu-frv.c, * cpu-ft32.c, * cpu-i370.c, * cpu-i960.c, * cpu-ia64-opc.c, * cpu-ip2k.c, * cpu-lm32.c, * cpu-m32r.c, * cpu-mcore.c, * cpu-microblaze.c, * cpu-mips.c, * cpu-moxie.c, * cpu-mt.c, * cpu-nios2.c, * cpu-ns32k.c, * cpu-or1k.c, * cpu-powerpc.c, * cpu-pru.c, * cpu-sh.c, * cpu-spu.c, * cpu-v850.c, * cpu-v850_rh850.c, * cpu-xgate.c, * cpu-z80.c, * dwarf1.c, * dwarf2.c, * ecoff.c, * ecofflink.c, * ecoffswap.h, * elf-bfd.h, * elf-eh-frame.c, * elf-hppa.h, * elf-m10200.c, * elf-m10300.c, * elf-s390-common.c, * elf-strtab.c, * elf-vxworks.c, * elf.c, * elf32-am33lin.c, * elf32-arc.c, * elf32-arm.c, * elf32-avr.c, * elf32-avr.h, * elf32-bfin.c, * elf32-cr16.c, * elf32-cr16c.c, * elf32-cris.c, * elf32-crx.c, * elf32-d10v.c, * elf32-d30v.c, * elf32-dlx.c, * elf32-epiphany.c, * elf32-fr30.c, * elf32-frv.c, * elf32-ft32.c, * elf32-h8300.c, * elf32-hppa.c, * elf32-i386.c, * elf32-i860.c, * elf32-i960.c, * elf32-ip2k.c, * elf32-lm32.c, * elf32-m32c.c, * elf32-m32r.c, * elf32-m68hc11.c, * elf32-m68hc12.c, * elf32-m68hc1x.c, * elf32-m68hc1x.h, * elf32-m68k.c, * elf32-m88k.c, * elf32-mcore.c, * elf32-mep.c, * elf32-metag.c, * elf32-microblaze.c, * elf32-mips.c, * elf32-moxie.c, * elf32-msp430.c, * elf32-mt.c, * elf32-nds32.c, * elf32-nds32.h, * elf32-nios2.c, * elf32-or1k.c, * elf32-pj.c, * elf32-ppc.c, * elf32-ppc.h, * elf32-pru.c, * elf32-rl78.c, * elf32-rx.c, * elf32-s390.c, * elf32-score.c, * elf32-score.h, * elf32-score7.c, * elf32-sh-symbian.c, * elf32-sh.c, * elf32-sh64.c, * elf32-sparc.c, * elf32-spu.c, * elf32-tic6x.c, * elf32-tilegx.c, * elf32-tilegx.h, * elf32-tilepro.c, * elf32-tilepro.h, * elf32-v850.c, * elf32-vax.c, * elf32-wasm32.c, * elf32-xc16x.c, * elf32-xgate.c, * elf32-xgate.h, * elf32-xstormy16.c, * elf32-xtensa.c, * elf64-alpha.c, * elf64-hppa.c, * elf64-ia64-vms.c, * elf64-mips.c, * elf64-mmix.c, * elf64-ppc.c, * elf64-s390.c, * elf64-sh64.c, * elf64-sparc.c, * elf64-tilegx.c, * elf64-tilegx.h, * elf64-x86-64.c, * elfcore.h, * elflink.c, * elfn32-mips.c, * elfnn-aarch64.c, * elfnn-ia64.c, * elfnn-riscv.c, * elfxx-aarch64.c, * elfxx-aarch64.h, * elfxx-ia64.c, * elfxx-ia64.h, * elfxx-mips.c, * elfxx-riscv.c, * elfxx-sparc.c, * elfxx-tilegx.c, * elfxx-x86.c, * elfxx-x86.h, * freebsd.h, * hash.c, * host-aout.c, * hp300hpux.c, * hppabsd-core.c, * hpux-core.c, * i386aout.c, * i386linux.c, * i386lynx.c, * i386mach3.c, * i386msdos.c, * i386netbsd.c, * ieee.c, * ihex.c, * irix-core.c, * libaout.h, * libbfd-in.h, * libbfd.c, * libcoff-in.h, * libnlm.h, * libpei.h, * libxcoff.h, * linker.c, * lynx-core.c, * m68k4knetbsd.c, * m68klinux.c, * m68knetbsd.c, * m88kmach3.c, * mach-o-aarch64.c, * mach-o-arm.c, * mach-o-i386.c, * mach-o-target.c, * mach-o-x86-64.c, * mach-o.c, * mach-o.h, * merge.c, * mipsbsd.c, * mmo.c, * netbsd.h, * netbsd-core.c, * newsos3.c, * nlm-target.h, * nlm32-ppc.c, * nlm32-sparc.c, * nlmcode.h, * ns32k.h, * ns32knetbsd.c, * oasys.c, * opncls.c, * pc532-mach.c, * pdp11.c, * pe-arm.c, * pe-i386.c, * pe-mcore.c, * pe-mips.c, * pe-x86_64.c, * peXXigen.c, * pef.c, * pef.h, * pei-arm.c, * pei-i386.c, * pei-mcore.c, * pei-x86_64.c, * peicode.h, * plugin.c, * ppcboot.c, * ptrace-core.c, * reloc.c, * riscix.c, * rs6000-core.c, * section.c, * som.c, * som.h, * sparclinux.c, * sparcnetbsd.c, * srec.c, * stabs.c, * sunos.c, * syms.c, * targets.c, * tekhex.c, * trad-core.c, * vax1knetbsd.c, * vaxnetbsd.c, * verilog.c, * versados.c, * vms-alpha.c, * vms-lib.c, * vms-misc.c, * wasm-module.c, * wasm-module.h, * xcofflink.c, * xsym.c, * xsym.h: Whitespace fixes. * bfd-in2.h, * libbfd.h, * libcoff.h: Regenerate.
584 lines
15 KiB
C
584 lines
15 KiB
C
/* DWARF 1 find nearest line (_bfd_dwarf1_find_nearest_line).
|
|
Copyright (C) 1998-2017 Free Software Foundation, Inc.
|
|
|
|
Written by Gavin Romig-Koch of Cygnus Solutions (gavin@cygnus.com).
|
|
|
|
This file is part of BFD.
|
|
|
|
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. */
|
|
|
|
#include "sysdep.h"
|
|
#include "bfd.h"
|
|
#include "libiberty.h"
|
|
#include "libbfd.h"
|
|
#include "elf-bfd.h"
|
|
#include "elf/dwarf.h"
|
|
|
|
/* dwarf1_debug is the starting point for all dwarf1 info. */
|
|
|
|
struct dwarf1_debug
|
|
{
|
|
/* The bfd we are working with. */
|
|
bfd* abfd;
|
|
|
|
/* Pointer to the symbol table. */
|
|
asymbol** syms;
|
|
|
|
/* List of already parsed compilation units. */
|
|
struct dwarf1_unit* lastUnit;
|
|
|
|
/* The buffer for the .debug section.
|
|
Zero indicates that the .debug section failed to load. */
|
|
bfd_byte *debug_section;
|
|
|
|
/* Pointer to the end of the .debug_info section memory buffer. */
|
|
bfd_byte *debug_section_end;
|
|
|
|
/* The buffer for the .line section. */
|
|
bfd_byte *line_section;
|
|
|
|
/* End of that buffer. */
|
|
bfd_byte *line_section_end;
|
|
|
|
/* The current or next unread die within the .debug section. */
|
|
bfd_byte *currentDie;
|
|
};
|
|
|
|
/* One dwarf1_unit for each parsed compilation unit die. */
|
|
|
|
struct dwarf1_unit
|
|
{
|
|
/* Linked starting from stash->lastUnit. */
|
|
struct dwarf1_unit* prev;
|
|
|
|
/* Name of the compilation unit. */
|
|
char *name;
|
|
|
|
/* The highest and lowest address used in the compilation unit. */
|
|
unsigned long low_pc;
|
|
unsigned long high_pc;
|
|
|
|
/* Does this unit have a statement list? */
|
|
int has_stmt_list;
|
|
|
|
/* If any, the offset of the line number table in the .line section. */
|
|
unsigned long stmt_list_offset;
|
|
|
|
/* If non-zero, a pointer to the first child of this unit. */
|
|
bfd_byte *first_child;
|
|
|
|
/* How many line entries? */
|
|
unsigned long line_count;
|
|
|
|
/* The decoded line number table (line_count entries). */
|
|
struct linenumber* linenumber_table;
|
|
|
|
/* The list of functions in this unit. */
|
|
struct dwarf1_func* func_list;
|
|
};
|
|
|
|
/* One dwarf1_func for each parsed function die. */
|
|
|
|
struct dwarf1_func
|
|
{
|
|
/* Linked starting from aUnit->func_list. */
|
|
struct dwarf1_func* prev;
|
|
|
|
/* Name of function. */
|
|
char* name;
|
|
|
|
/* The highest and lowest address used in the compilation unit. */
|
|
unsigned long low_pc;
|
|
unsigned long high_pc;
|
|
};
|
|
|
|
/* Used to return info about a parsed die. */
|
|
struct die_info
|
|
{
|
|
unsigned long length;
|
|
unsigned long sibling;
|
|
unsigned long low_pc;
|
|
unsigned long high_pc;
|
|
unsigned long stmt_list_offset;
|
|
|
|
char* name;
|
|
|
|
int has_stmt_list;
|
|
|
|
unsigned short tag;
|
|
};
|
|
|
|
/* Parsed line number information. */
|
|
struct linenumber
|
|
{
|
|
/* First address in the line. */
|
|
unsigned long addr;
|
|
|
|
/* The line number. */
|
|
unsigned long linenumber;
|
|
};
|
|
|
|
/* Find the form of an attr, from the attr field. */
|
|
#define FORM_FROM_ATTR(attr) ((attr) & 0xF) /* Implicitly specified. */
|
|
|
|
/* Return a newly allocated dwarf1_unit. It should be cleared and
|
|
then attached into the 'stash' at 'stash->lastUnit'. */
|
|
|
|
static struct dwarf1_unit*
|
|
alloc_dwarf1_unit (struct dwarf1_debug* stash)
|
|
{
|
|
bfd_size_type amt = sizeof (struct dwarf1_unit);
|
|
|
|
struct dwarf1_unit* x = (struct dwarf1_unit *) bfd_zalloc (stash->abfd, amt);
|
|
if (x)
|
|
{
|
|
x->prev = stash->lastUnit;
|
|
stash->lastUnit = x;
|
|
}
|
|
|
|
return x;
|
|
}
|
|
|
|
/* Return a newly allocated dwarf1_func. It must be cleared and
|
|
attached into 'aUnit' at 'aUnit->func_list'. */
|
|
|
|
static struct dwarf1_func *
|
|
alloc_dwarf1_func (struct dwarf1_debug* stash, struct dwarf1_unit* aUnit)
|
|
{
|
|
bfd_size_type amt = sizeof (struct dwarf1_func);
|
|
|
|
struct dwarf1_func* x = (struct dwarf1_func *) bfd_zalloc (stash->abfd, amt);
|
|
if (x)
|
|
{
|
|
x->prev = aUnit->func_list;
|
|
aUnit->func_list = x;
|
|
}
|
|
|
|
return x;
|
|
}
|
|
|
|
/* parse_die - parse a Dwarf1 die.
|
|
Parse the die starting at 'aDiePtr' into 'aDieInfo'.
|
|
'abfd' must be the bfd from which the section that 'aDiePtr'
|
|
points to was pulled from.
|
|
|
|
Return FALSE if the die is invalidly formatted; TRUE otherwise. */
|
|
|
|
static bfd_boolean
|
|
parse_die (bfd * abfd,
|
|
struct die_info * aDieInfo,
|
|
bfd_byte * aDiePtr,
|
|
bfd_byte * aDiePtrEnd)
|
|
{
|
|
bfd_byte *this_die = aDiePtr;
|
|
bfd_byte *xptr = this_die;
|
|
|
|
memset (aDieInfo, 0, sizeof (* aDieInfo));
|
|
|
|
/* First comes the length. */
|
|
if (xptr + 4 > aDiePtrEnd)
|
|
return FALSE;
|
|
aDieInfo->length = bfd_get_32 (abfd, xptr);
|
|
xptr += 4;
|
|
if (aDieInfo->length == 0
|
|
|| this_die + aDieInfo->length > aDiePtrEnd)
|
|
return FALSE;
|
|
aDiePtrEnd = this_die + aDieInfo->length;
|
|
if (aDieInfo->length < 6)
|
|
{
|
|
/* Just padding bytes. */
|
|
aDieInfo->tag = TAG_padding;
|
|
return TRUE;
|
|
}
|
|
|
|
/* Then the tag. */
|
|
if (xptr + 2 > aDiePtrEnd)
|
|
return FALSE;
|
|
aDieInfo->tag = bfd_get_16 (abfd, xptr);
|
|
xptr += 2;
|
|
|
|
/* Then the attributes. */
|
|
while (xptr + 2 <= aDiePtrEnd)
|
|
{
|
|
unsigned short attr;
|
|
|
|
/* Parse the attribute based on its form. This section
|
|
must handle all dwarf1 forms, but need only handle the
|
|
actual attributes that we care about. */
|
|
attr = bfd_get_16 (abfd, xptr);
|
|
xptr += 2;
|
|
|
|
switch (FORM_FROM_ATTR (attr))
|
|
{
|
|
case FORM_DATA2:
|
|
xptr += 2;
|
|
break;
|
|
case FORM_DATA4:
|
|
case FORM_REF:
|
|
if (xptr + 4 <= aDiePtrEnd)
|
|
{
|
|
if (attr == AT_sibling)
|
|
aDieInfo->sibling = bfd_get_32 (abfd, xptr);
|
|
else if (attr == AT_stmt_list)
|
|
{
|
|
aDieInfo->stmt_list_offset = bfd_get_32 (abfd, xptr);
|
|
aDieInfo->has_stmt_list = 1;
|
|
}
|
|
}
|
|
xptr += 4;
|
|
break;
|
|
case FORM_DATA8:
|
|
xptr += 8;
|
|
break;
|
|
case FORM_ADDR:
|
|
if (xptr + 4 <= aDiePtrEnd)
|
|
{
|
|
if (attr == AT_low_pc)
|
|
aDieInfo->low_pc = bfd_get_32 (abfd, xptr);
|
|
else if (attr == AT_high_pc)
|
|
aDieInfo->high_pc = bfd_get_32 (abfd, xptr);
|
|
}
|
|
xptr += 4;
|
|
break;
|
|
case FORM_BLOCK2:
|
|
if (xptr + 2 <= aDiePtrEnd)
|
|
xptr += bfd_get_16 (abfd, xptr);
|
|
xptr += 2;
|
|
break;
|
|
case FORM_BLOCK4:
|
|
if (xptr + 4 <= aDiePtrEnd)
|
|
xptr += bfd_get_32 (abfd, xptr);
|
|
xptr += 4;
|
|
break;
|
|
case FORM_STRING:
|
|
if (attr == AT_name)
|
|
aDieInfo->name = (char *) xptr;
|
|
xptr += strnlen ((char *) xptr, aDiePtrEnd - xptr) + 1;
|
|
break;
|
|
}
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
/* Parse a dwarf1 line number table for 'aUnit->stmt_list_offset'
|
|
into 'aUnit->linenumber_table'. Return FALSE if an error
|
|
occurs; TRUE otherwise. */
|
|
|
|
static bfd_boolean
|
|
parse_line_table (struct dwarf1_debug* stash, struct dwarf1_unit* aUnit)
|
|
{
|
|
bfd_byte *xptr;
|
|
|
|
/* Load the ".line" section from the bfd if we haven't already. */
|
|
if (stash->line_section == 0)
|
|
{
|
|
asection *msec;
|
|
bfd_size_type size;
|
|
|
|
msec = bfd_get_section_by_name (stash->abfd, ".line");
|
|
if (! msec)
|
|
return FALSE;
|
|
|
|
size = msec->rawsize ? msec->rawsize : msec->size;
|
|
stash->line_section
|
|
= bfd_simple_get_relocated_section_contents
|
|
(stash->abfd, msec, NULL, stash->syms);
|
|
|
|
if (! stash->line_section)
|
|
return FALSE;
|
|
|
|
stash->line_section_end = stash->line_section + size;
|
|
}
|
|
|
|
xptr = stash->line_section + aUnit->stmt_list_offset;
|
|
if (xptr + 8 <= stash->line_section_end)
|
|
{
|
|
unsigned long eachLine;
|
|
bfd_byte *tblend;
|
|
unsigned long base;
|
|
bfd_size_type amt;
|
|
|
|
/* First comes the length. */
|
|
tblend = bfd_get_32 (stash->abfd, (bfd_byte *) xptr) + xptr;
|
|
xptr += 4;
|
|
|
|
/* Then the base address for each address in the table. */
|
|
base = bfd_get_32 (stash->abfd, (bfd_byte *) xptr);
|
|
xptr += 4;
|
|
|
|
/* How many line entrys?
|
|
10 = 4 (line number) + 2 (pos in line) + 4 (address in line). */
|
|
aUnit->line_count = (tblend - xptr) / 10;
|
|
|
|
/* Allocate an array for the entries. */
|
|
amt = sizeof (struct linenumber) * aUnit->line_count;
|
|
aUnit->linenumber_table = (struct linenumber *) bfd_alloc (stash->abfd,
|
|
amt);
|
|
if (!aUnit->linenumber_table)
|
|
return FALSE;
|
|
|
|
for (eachLine = 0; eachLine < aUnit->line_count; eachLine++)
|
|
{
|
|
if (xptr + 10 > stash->line_section_end)
|
|
{
|
|
aUnit->line_count = eachLine;
|
|
break;
|
|
}
|
|
/* A line number. */
|
|
aUnit->linenumber_table[eachLine].linenumber
|
|
= bfd_get_32 (stash->abfd, (bfd_byte *) xptr);
|
|
xptr += 4;
|
|
|
|
/* Skip the position within the line. */
|
|
xptr += 2;
|
|
|
|
/* And finally the address. */
|
|
aUnit->linenumber_table[eachLine].addr
|
|
= base + bfd_get_32 (stash->abfd, (bfd_byte *) xptr);
|
|
xptr += 4;
|
|
}
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
/* Parse each function die in a compilation unit 'aUnit'.
|
|
The first child die of 'aUnit' should be in 'aUnit->first_child',
|
|
the result is placed in 'aUnit->func_list'.
|
|
Return FALSE if error; TRUE otherwise. */
|
|
|
|
static bfd_boolean
|
|
parse_functions_in_unit (struct dwarf1_debug* stash, struct dwarf1_unit* aUnit)
|
|
{
|
|
bfd_byte *eachDie;
|
|
|
|
if (aUnit->first_child)
|
|
for (eachDie = aUnit->first_child;
|
|
eachDie < stash->debug_section_end;
|
|
)
|
|
{
|
|
struct die_info eachDieInfo;
|
|
|
|
if (! parse_die (stash->abfd, &eachDieInfo, eachDie,
|
|
stash->debug_section_end))
|
|
return FALSE;
|
|
|
|
if (eachDieInfo.tag == TAG_global_subroutine
|
|
|| eachDieInfo.tag == TAG_subroutine
|
|
|| eachDieInfo.tag == TAG_inlined_subroutine
|
|
|| eachDieInfo.tag == TAG_entry_point)
|
|
{
|
|
struct dwarf1_func* aFunc = alloc_dwarf1_func (stash,aUnit);
|
|
if (!aFunc)
|
|
return FALSE;
|
|
|
|
aFunc->name = eachDieInfo.name;
|
|
aFunc->low_pc = eachDieInfo.low_pc;
|
|
aFunc->high_pc = eachDieInfo.high_pc;
|
|
}
|
|
|
|
/* Move to next sibling, if none, end loop */
|
|
if (eachDieInfo.sibling)
|
|
eachDie = stash->debug_section + eachDieInfo.sibling;
|
|
else
|
|
break;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
/* Find the nearest line to 'addr' in 'aUnit'.
|
|
Return whether we found the line (or a function) without error. */
|
|
|
|
static bfd_boolean
|
|
dwarf1_unit_find_nearest_line (struct dwarf1_debug* stash,
|
|
struct dwarf1_unit* aUnit,
|
|
unsigned long addr,
|
|
const char **filename_ptr,
|
|
const char **functionname_ptr,
|
|
unsigned int *linenumber_ptr)
|
|
{
|
|
int line_p = FALSE;
|
|
int func_p = FALSE;
|
|
|
|
if (aUnit->low_pc <= addr && addr < aUnit->high_pc)
|
|
{
|
|
if (aUnit->has_stmt_list)
|
|
{
|
|
unsigned long i;
|
|
struct dwarf1_func* eachFunc;
|
|
|
|
if (! aUnit->linenumber_table)
|
|
{
|
|
if (! parse_line_table (stash, aUnit))
|
|
return FALSE;
|
|
}
|
|
|
|
if (! aUnit->func_list)
|
|
{
|
|
if (! parse_functions_in_unit (stash, aUnit))
|
|
return FALSE;
|
|
}
|
|
|
|
for (i = 0; i < aUnit->line_count; i++)
|
|
{
|
|
if (aUnit->linenumber_table[i].addr <= addr
|
|
&& addr < aUnit->linenumber_table[i+1].addr)
|
|
{
|
|
*filename_ptr = aUnit->name;
|
|
*linenumber_ptr = aUnit->linenumber_table[i].linenumber;
|
|
line_p = TRUE;
|
|
break;
|
|
}
|
|
}
|
|
|
|
for (eachFunc = aUnit->func_list;
|
|
eachFunc;
|
|
eachFunc = eachFunc->prev)
|
|
{
|
|
if (eachFunc->low_pc <= addr
|
|
&& addr < eachFunc->high_pc)
|
|
{
|
|
*functionname_ptr = eachFunc->name;
|
|
func_p = TRUE;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return line_p || func_p;
|
|
}
|
|
|
|
/* The DWARF 1 version of find_nearest line.
|
|
Return TRUE if the line is found without error. */
|
|
|
|
bfd_boolean
|
|
_bfd_dwarf1_find_nearest_line (bfd *abfd,
|
|
asymbol **symbols,
|
|
asection *section,
|
|
bfd_vma offset,
|
|
const char **filename_ptr,
|
|
const char **functionname_ptr,
|
|
unsigned int *linenumber_ptr)
|
|
{
|
|
struct dwarf1_debug *stash = elf_tdata (abfd)->dwarf1_find_line_info;
|
|
|
|
struct dwarf1_unit* eachUnit;
|
|
|
|
/* What address are we looking for? */
|
|
unsigned long addr = (unsigned long)(offset + section->vma);
|
|
|
|
*filename_ptr = NULL;
|
|
*functionname_ptr = NULL;
|
|
*linenumber_ptr = 0;
|
|
|
|
if (! stash)
|
|
{
|
|
asection *msec;
|
|
bfd_size_type size = sizeof (struct dwarf1_debug);
|
|
|
|
stash = elf_tdata (abfd)->dwarf1_find_line_info
|
|
= (struct dwarf1_debug *) bfd_zalloc (abfd, size);
|
|
|
|
if (! stash)
|
|
return FALSE;
|
|
|
|
msec = bfd_get_section_by_name (abfd, ".debug");
|
|
if (! msec)
|
|
/* No dwarf1 info. Note that at this point the stash
|
|
has been allocated, but contains zeros, this lets
|
|
future calls to this function fail quicker. */
|
|
return FALSE;
|
|
|
|
size = msec->rawsize ? msec->rawsize : msec->size;
|
|
stash->debug_section
|
|
= bfd_simple_get_relocated_section_contents (abfd, msec, NULL,
|
|
symbols);
|
|
|
|
if (! stash->debug_section)
|
|
return FALSE;
|
|
|
|
stash->debug_section_end = stash->debug_section + size;
|
|
stash->currentDie = stash->debug_section;
|
|
stash->abfd = abfd;
|
|
stash->syms = symbols;
|
|
}
|
|
|
|
/* A null debug_section indicates that there was no dwarf1 info
|
|
or that an error occured while setting up the stash. */
|
|
|
|
if (! stash->debug_section)
|
|
return FALSE;
|
|
|
|
/* Look at the previously parsed units to see if any contain
|
|
the addr. */
|
|
for (eachUnit = stash->lastUnit; eachUnit; eachUnit = eachUnit->prev)
|
|
if (eachUnit->low_pc <= addr && addr < eachUnit->high_pc)
|
|
return dwarf1_unit_find_nearest_line (stash, eachUnit, addr,
|
|
filename_ptr,
|
|
functionname_ptr,
|
|
linenumber_ptr);
|
|
|
|
while (stash->currentDie < stash->debug_section_end)
|
|
{
|
|
struct die_info aDieInfo;
|
|
|
|
if (! parse_die (stash->abfd, &aDieInfo, stash->currentDie,
|
|
stash->debug_section_end))
|
|
return FALSE;
|
|
|
|
if (aDieInfo.tag == TAG_compile_unit)
|
|
{
|
|
struct dwarf1_unit* aUnit
|
|
= alloc_dwarf1_unit (stash);
|
|
if (!aUnit)
|
|
return FALSE;
|
|
|
|
aUnit->name = aDieInfo.name;
|
|
aUnit->low_pc = aDieInfo.low_pc;
|
|
aUnit->high_pc = aDieInfo.high_pc;
|
|
aUnit->has_stmt_list = aDieInfo.has_stmt_list;
|
|
aUnit->stmt_list_offset = aDieInfo.stmt_list_offset;
|
|
|
|
/* A die has a child if it's followed by a die that is
|
|
not it's sibling. */
|
|
if (aDieInfo.sibling
|
|
&& stash->currentDie + aDieInfo.length
|
|
< stash->debug_section_end
|
|
&& stash->currentDie + aDieInfo.length
|
|
!= stash->debug_section + aDieInfo.sibling)
|
|
aUnit->first_child = stash->currentDie + aDieInfo.length;
|
|
else
|
|
aUnit->first_child = 0;
|
|
|
|
if (aUnit->low_pc <= addr && addr < aUnit->high_pc)
|
|
return dwarf1_unit_find_nearest_line (stash, aUnit, addr,
|
|
filename_ptr,
|
|
functionname_ptr,
|
|
linenumber_ptr);
|
|
}
|
|
|
|
if (aDieInfo.sibling != 0)
|
|
stash->currentDie = stash->debug_section + aDieInfo.sibling;
|
|
else
|
|
stash->currentDie += aDieInfo.length;
|
|
}
|
|
|
|
return FALSE;
|
|
}
|