2002-04-11 00:14:02 +02:00
|
|
|
|
/* Get info from stack frames; convert between frames, blocks,
|
|
|
|
|
functions and pc values.
|
|
|
|
|
|
|
|
|
|
Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
|
2004-01-15 21:00:17 +01:00
|
|
|
|
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
|
|
|
|
|
Free Software Foundation, Inc.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This file is part of GDB.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
(at your option) any later version.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
|
Boston, MA 02111-1307, USA. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include "symtab.h"
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "objfiles.h"
|
|
|
|
|
#include "frame.h"
|
|
|
|
|
#include "gdbcore.h"
|
|
|
|
|
#include "value.h" /* for read_register */
|
|
|
|
|
#include "target.h" /* for target_has_stack */
|
|
|
|
|
#include "inferior.h" /* for read_pc */
|
|
|
|
|
#include "annotate.h"
|
2001-03-01 02:39:22 +01:00
|
|
|
|
#include "regcache.h"
|
2002-06-01 22:44:21 +02:00
|
|
|
|
#include "gdb_assert.h"
|
2002-11-08 20:42:00 +01:00
|
|
|
|
#include "dummy-frame.h"
|
2003-01-05 02:39:56 +01:00
|
|
|
|
#include "command.h"
|
|
|
|
|
#include "gdbcmd.h"
|
2003-02-19 David Carlton <carlton@math.stanford.edu>
* Makefile.in (SFILES): Add block.c.
(block_h): New.
(COMMON_OBS): Add block.o.
(block.o): New.
(x86-64-tdep.o): Add $(block_h).
(values.o, valops.o, tracepoint.o, symtab.o, symmisc.o, symfile.o)
(stack.o, printcmd.o, p-exp.tab.o, parse.o, objfiles.o)
(objc-exp.tab.o, objc-lang.o, nlmread.o, mips-tdep.o, mdebugread.o)
(m2-exp.tab.o, linespec.o, jv-lang.o, jv-exp.tab.o, infcmd.o)
(f-valprint.o, findvar.o, f-exp.tab.o, expprint.o, coffread.o)
(c-exp.tab.o, buildsym.o, breakpoint.o, blockframe.o, ax-gdb.o)
(alpha-tdep.o, ada-lang.o, ada-exp.tab.o, mi-cmd-stack.o): Ditto.
* value.h: Add opaque declaration for struct block.
* parser-defs.h, objc-lang.h, buildsym.h, breakpoint.h: Ditto.
* ada-lang.h: Ditto.
* x86-64-tdep.c: #include "block.h"
* values.c, valops.c, tracepoint.c, symtab.c, symmisc.c: Ditto.
* symfile.c, stack.c, printcmd.c, p-exp.y, parse.c: Ditto.
* objfiles.c, objc-exp.y, objc-lang.c, nlmread.c: Ditto.
* mips-tdep.c, mdebugread.c, m2-exp.y, linespec.c: Ditto.
* jv-lang.c, jv-exp.y, infcmd.c, f-valprint.c: Ditto.
* findvar.c, f-exp.y, expprint.c, coffread.c, c-exp.y: Ditto.
* buildsym.c, breakpoint.c, blockframe.c, ax-gdb.c: Ditto.
* alpha-tdep.c, ada-lang.c, ada-exp.y: Ditto.
* blockframe.c (blockvector_for_pc_sect): Move to "block.c".
(blockvector_for_pc, block_for_pc_sect, block_for_pc): Ditto.
* symtab.c (block_function): Ditto.
(contained_in): Ditto.
* frame.h: Move block_for_pc and block_for_pc_sect declarations to
block.h. Add opaque declaration for struct block.
* symtab.h: Move block_function and contained_in declarations to
block.h. Add opaque declarations for struct block, struct
blockvector.
(struct block): Move to block.h.
(struct blockvector): Ditto.
(BLOCK_START, BLOCK_END, BLOCK_FUNCTION, BLOCK_SUPERBLOCK)
(BLOCK_GCC_COMPILED, BLOCK_HASHTABLE, BLOCK_NSYMS, BLOCK_SYM)
(BLOCK_BUCKETS, BLOCK_BUCKET, BLOCK_HASHTABLE_SIZE)
(ALL_BLOCK_SYMBOLS, BLOCK_SHOULD_SORT, BLOCKVECTOR_NBLOCKS)
(BLOCKVECTOR_BLOCK, GLOBAL_BLOCK, STATIC_BLOCK, FIRST_LOCAL_BLOCK):
Ditto.
* block.c: New file.
* block.h: New file.
2003-02-19 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: #include "block.h"
2003-02-20 01:01:07 +01:00
|
|
|
|
#include "block.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2003-01-05 02:39:56 +01:00
|
|
|
|
/* Prototypes for exported functions. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
2003-01-05 02:39:56 +01:00
|
|
|
|
void _initialize_blockframe (void);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2003-12-13 14:16:52 +01:00
|
|
|
|
/* Test whether PC is in the range of addresses that corresponds to
|
2003-12-16 22:23:50 +01:00
|
|
|
|
the "main" function. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
inside_main_func (CORE_ADDR pc)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-10-10 22:49:40 +02:00
|
|
|
|
struct minimal_symbol *msymbol;
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (symfile_objfile == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
2003-10-10 22:49:40 +02:00
|
|
|
|
msymbol = lookup_minimal_symbol (main_name (), NULL, symfile_objfile);
|
|
|
|
|
|
2003-12-13 14:16:52 +01:00
|
|
|
|
/* If the address range hasn't been set up at symbol reading time,
|
|
|
|
|
set it up now. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2003-10-10 22:49:40 +02:00
|
|
|
|
if (msymbol != NULL
|
|
|
|
|
&& symfile_objfile->ei.main_func_lowpc == INVALID_ENTRY_LOWPC
|
|
|
|
|
&& symfile_objfile->ei.main_func_highpc == INVALID_ENTRY_HIGHPC)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-12-13 14:16:52 +01:00
|
|
|
|
/* brobecker/2003-10-10: We used to rely on lookup_symbol() to
|
|
|
|
|
search the symbol associated to the "main" function.
|
|
|
|
|
Unfortunately, lookup_symbol() uses the current-language
|
|
|
|
|
la_lookup_symbol_nonlocal function to do the global symbol
|
|
|
|
|
search. Depending on the language, this can introduce
|
|
|
|
|
certain side-effects, because certain languages, for instance
|
|
|
|
|
Ada, may find more than one match. Therefore we prefer to
|
|
|
|
|
search the "main" function symbol using its address rather
|
|
|
|
|
than its name. */
|
|
|
|
|
struct symbol *mainsym =
|
|
|
|
|
find_pc_function (SYMBOL_VALUE_ADDRESS (msymbol));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (mainsym && SYMBOL_CLASS (mainsym) == LOC_BLOCK)
|
|
|
|
|
{
|
|
|
|
|
symfile_objfile->ei.main_func_lowpc =
|
1999-04-16 03:35:26 +02:00
|
|
|
|
BLOCK_START (SYMBOL_BLOCK_VALUE (mainsym));
|
1999-07-07 22:19:36 +02:00
|
|
|
|
symfile_objfile->ei.main_func_highpc =
|
1999-04-16 03:35:26 +02:00
|
|
|
|
BLOCK_END (SYMBOL_BLOCK_VALUE (mainsym));
|
1999-07-07 22:19:36 +02:00
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
2003-07-15 19:23:32 +02:00
|
|
|
|
|
|
|
|
|
/* Not in the normal symbol tables, see if "main" is in the partial
|
|
|
|
|
symbol table. If it's not, then give up. */
|
2003-12-13 14:16:52 +01:00
|
|
|
|
if (msymbol != NULL && MSYMBOL_TYPE (msymbol) == mst_text)
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR maddr = SYMBOL_VALUE_ADDRESS (msymbol);
|
|
|
|
|
asection *msect = SYMBOL_BFD_SECTION (msymbol);
|
|
|
|
|
struct obj_section *osect = find_pc_sect_section (maddr, msect);
|
|
|
|
|
|
|
|
|
|
if (osect != NULL)
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
/* Step over other symbols at this same address, and symbols
|
|
|
|
|
in other sections, to find the next symbol in this
|
|
|
|
|
section with a different address. */
|
|
|
|
|
for (i = 1; SYMBOL_LINKAGE_NAME (msymbol + i) != NULL; i++)
|
|
|
|
|
{
|
|
|
|
|
if (SYMBOL_VALUE_ADDRESS (msymbol + i) != maddr
|
|
|
|
|
&& SYMBOL_BFD_SECTION (msymbol + i) == msect)
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
symfile_objfile->ei.main_func_lowpc = maddr;
|
|
|
|
|
|
|
|
|
|
/* Use the lesser of the next minimal symbol in the same
|
|
|
|
|
section, or the end of the section, as the end of the
|
|
|
|
|
function. */
|
|
|
|
|
if (SYMBOL_LINKAGE_NAME (msymbol + i) != NULL
|
|
|
|
|
&& SYMBOL_VALUE_ADDRESS (msymbol + i) < osect->endaddr)
|
|
|
|
|
symfile_objfile->ei.main_func_highpc =
|
|
|
|
|
SYMBOL_VALUE_ADDRESS (msymbol + i);
|
|
|
|
|
else
|
|
|
|
|
/* We got the start address from the last msymbol in the
|
|
|
|
|
objfile. So the end address is the end of the
|
|
|
|
|
section. */
|
|
|
|
|
symfile_objfile->ei.main_func_highpc = osect->endaddr;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return (symfile_objfile->ei.main_func_lowpc <= pc
|
|
|
|
|
&& symfile_objfile->ei.main_func_highpc > pc);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2004-02-04 17:34:51 +01:00
|
|
|
|
/* Test whether THIS_FRAME is inside the process entry point function. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
int
|
2004-02-04 17:34:51 +01:00
|
|
|
|
inside_entry_func (struct frame_info *this_frame)
|
|
|
|
|
{
|
|
|
|
|
return (get_frame_func (this_frame) == entry_point_address ());
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Return the innermost lexical block in execution
|
gdb/ChangeLog:
* stack.c (get_selected_block): Add new argument `addr_in_block',
used to return the exact code address we used to select the block,
not just the block.
* blockframe.c (get_frame_block, get_current_block): Same.
* frame.h (get_frame_block, get_current_block,
get_selected_block): Update declarations.
* linespec.c, stack.c, blockframe.c, breakpoint.c, findvar.c,
linespec.c, varobj.c, printcmd.c, symtab.c: Callers changed.
gdb/mi/ChangeLog:
* mi-cmd-stack.c (list_args_or_locals): Pass new arg to
get_frame_block. (See entry in gdb/ChangeLog.)
2002-04-06 00:04:43 +02:00
|
|
|
|
in a specified stack frame. The frame address is assumed valid.
|
|
|
|
|
|
|
|
|
|
If ADDR_IN_BLOCK is non-zero, set *ADDR_IN_BLOCK to the exact code
|
|
|
|
|
address we used to choose the block. We use this to find a source
|
|
|
|
|
line, to decide which macro definitions are in scope.
|
|
|
|
|
|
|
|
|
|
The value returned in *ADDR_IN_BLOCK isn't necessarily the frame's
|
|
|
|
|
PC, and may not really be a valid PC at all. For example, in the
|
|
|
|
|
caller of a function declared to never return, the code at the
|
|
|
|
|
return address will never be reached, so the call instruction may
|
|
|
|
|
be the very last instruction in the block. So the address we use
|
|
|
|
|
to choose the block is actually one byte before the return address
|
|
|
|
|
--- hopefully pointing us at the call instruction, or its delay
|
|
|
|
|
slot instruction. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
struct block *
|
gdb/ChangeLog:
* stack.c (get_selected_block): Add new argument `addr_in_block',
used to return the exact code address we used to select the block,
not just the block.
* blockframe.c (get_frame_block, get_current_block): Same.
* frame.h (get_frame_block, get_current_block,
get_selected_block): Update declarations.
* linespec.c, stack.c, blockframe.c, breakpoint.c, findvar.c,
linespec.c, varobj.c, printcmd.c, symtab.c: Callers changed.
gdb/mi/ChangeLog:
* mi-cmd-stack.c (list_args_or_locals): Pass new arg to
get_frame_block. (See entry in gdb/ChangeLog.)
2002-04-06 00:04:43 +02:00
|
|
|
|
get_frame_block (struct frame_info *frame, CORE_ADDR *addr_in_block)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-07-11 17:31:43 +02:00
|
|
|
|
const CORE_ADDR pc = get_frame_address_in_block (frame);
|
gdb/ChangeLog:
* stack.c (get_selected_block): Add new argument `addr_in_block',
used to return the exact code address we used to select the block,
not just the block.
* blockframe.c (get_frame_block, get_current_block): Same.
* frame.h (get_frame_block, get_current_block,
get_selected_block): Update declarations.
* linespec.c, stack.c, blockframe.c, breakpoint.c, findvar.c,
linespec.c, varobj.c, printcmd.c, symtab.c: Callers changed.
gdb/mi/ChangeLog:
* mi-cmd-stack.c (list_args_or_locals): Pass new arg to
get_frame_block. (See entry in gdb/ChangeLog.)
2002-04-06 00:04:43 +02:00
|
|
|
|
|
|
|
|
|
if (addr_in_block)
|
|
|
|
|
*addr_in_block = pc;
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return block_for_pc (pc);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
CORE_ADDR
|
2000-07-30 03:48:28 +02:00
|
|
|
|
get_pc_function_start (CORE_ADDR pc)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-05-23 18:59:13 +02:00
|
|
|
|
struct block *bl;
|
|
|
|
|
struct minimal_symbol *msymbol;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2003-05-23 18:59:13 +02:00
|
|
|
|
bl = block_for_pc (pc);
|
|
|
|
|
if (bl)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-05-23 18:59:13 +02:00
|
|
|
|
struct symbol *symbol = block_function (bl);
|
|
|
|
|
|
|
|
|
|
if (symbol)
|
|
|
|
|
{
|
|
|
|
|
bl = SYMBOL_BLOCK_VALUE (symbol);
|
|
|
|
|
return BLOCK_START (bl);
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
2003-05-23 18:59:13 +02:00
|
|
|
|
|
|
|
|
|
msymbol = lookup_minimal_symbol_by_pc (pc);
|
|
|
|
|
if (msymbol)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-05-23 18:59:13 +02:00
|
|
|
|
CORE_ADDR fstart = SYMBOL_VALUE_ADDRESS (msymbol);
|
|
|
|
|
|
|
|
|
|
if (find_pc_section (fstart))
|
|
|
|
|
return fstart;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
2003-05-23 18:59:13 +02:00
|
|
|
|
|
|
|
|
|
return 0;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the symbol for the function executing in frame FRAME. */
|
|
|
|
|
|
|
|
|
|
struct symbol *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
get_frame_function (struct frame_info *frame)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 18:32:14 +02:00
|
|
|
|
struct block *bl = get_frame_block (frame, 0);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (bl == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
return block_function (bl);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Return the function containing pc value PC in section SECTION.
|
|
|
|
|
Returns 0 if function is not known. */
|
|
|
|
|
|
|
|
|
|
struct symbol *
|
2003-10-19 Andrew Cagney <cagney@redhat.com>
* targets.c: Replace "struct sec" with "struct bfd_section"
* syms.c, sparclynx.c, section.c, opncls.c: Ditto.
* libcoff-in.h, libbfd-in.h, elfxx-target.h: Ditto.
* elf.c, coffgen.c, bfd.c, bfd-in.h, aoutf1.h: Ditto.
* aout-tic30.c, aout-target.h:
* bfd-in2.h, libcoff.h, libbfd.h: Regenerate.
Index: binutils/ChangeLog
2003-10-19 Andrew Cagney <cagney@redhat.com>
* coffgrok.h (coff_section): Replace 'struct sec" with "struct
bfd_section".
Index: gdb/ChangeLog
2003-10-19 Andrew Cagney <cagney@redhat.com>
* symtab.c: Replace "struct sec" with "struct bfd_section".
* objfiles.c, linespec.c, blockframe.c, block.c: Ditto.
Index: ld/ChangeLog
2003-10-19 Andrew Cagney <cagney@redhat.com>
* pe-dll.c: Replace "struct sec" with "struct bfd_section".
Index: sim/common/ChangeLog
2003-10-19 Andrew Cagney <cagney@redhat.com>
* sim-base.h: Replace "struct sec" with "struct bfd_section".
2003-10-20 16:38:46 +02:00
|
|
|
|
find_pc_sect_function (CORE_ADDR pc, struct bfd_section *section)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 18:32:14 +02:00
|
|
|
|
struct block *b = block_for_pc_sect (pc, section);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (b == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
return block_function (b);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the function containing pc value PC.
|
|
|
|
|
Returns 0 if function is not known. Backward compatibility, no section */
|
|
|
|
|
|
|
|
|
|
struct symbol *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
find_pc_function (CORE_ADDR pc)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return find_pc_sect_function (pc, find_pc_mapped_section (pc));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* These variables are used to cache the most recent result
|
|
|
|
|
* of find_pc_partial_function. */
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
static CORE_ADDR cache_pc_function_low = 0;
|
|
|
|
|
static CORE_ADDR cache_pc_function_high = 0;
|
|
|
|
|
static char *cache_pc_function_name = 0;
|
2003-10-19 Andrew Cagney <cagney@redhat.com>
* targets.c: Replace "struct sec" with "struct bfd_section"
* syms.c, sparclynx.c, section.c, opncls.c: Ditto.
* libcoff-in.h, libbfd-in.h, elfxx-target.h: Ditto.
* elf.c, coffgen.c, bfd.c, bfd-in.h, aoutf1.h: Ditto.
* aout-tic30.c, aout-target.h:
* bfd-in2.h, libcoff.h, libbfd.h: Regenerate.
Index: binutils/ChangeLog
2003-10-19 Andrew Cagney <cagney@redhat.com>
* coffgrok.h (coff_section): Replace 'struct sec" with "struct
bfd_section".
Index: gdb/ChangeLog
2003-10-19 Andrew Cagney <cagney@redhat.com>
* symtab.c: Replace "struct sec" with "struct bfd_section".
* objfiles.c, linespec.c, blockframe.c, block.c: Ditto.
Index: ld/ChangeLog
2003-10-19 Andrew Cagney <cagney@redhat.com>
* pe-dll.c: Replace "struct sec" with "struct bfd_section".
Index: sim/common/ChangeLog
2003-10-19 Andrew Cagney <cagney@redhat.com>
* sim-base.h: Replace "struct sec" with "struct bfd_section".
2003-10-20 16:38:46 +02:00
|
|
|
|
static struct bfd_section *cache_pc_function_section = NULL;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Clear cache, e.g. when symbol table is discarded. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
clear_pc_function_cache (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
cache_pc_function_low = 0;
|
|
|
|
|
cache_pc_function_high = 0;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
cache_pc_function_name = (char *) 0;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
cache_pc_function_section = NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Finds the "function" (text symbol) that is smaller than PC but
|
|
|
|
|
greatest of all of the potential text symbols in SECTION. Sets
|
|
|
|
|
*NAME and/or *ADDRESS conditionally if that pointer is non-null.
|
|
|
|
|
If ENDADDR is non-null, then set *ENDADDR to be the end of the
|
|
|
|
|
function (exclusive), but passing ENDADDR as non-null means that
|
|
|
|
|
the function might cause symbols to be read. This function either
|
|
|
|
|
succeeds or fails (not halfway succeeds). If it succeeds, it sets
|
|
|
|
|
*NAME, *ADDRESS, and *ENDADDR to real information and returns 1.
|
|
|
|
|
If it fails, it sets *NAME, *ADDRESS, and *ENDADDR to zero and
|
|
|
|
|
returns 0. */
|
|
|
|
|
|
2004-03-16 21:25:24 +01:00
|
|
|
|
/* Backward compatibility, no section argument. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
int
|
2004-03-16 21:25:24 +01:00
|
|
|
|
find_pc_partial_function (CORE_ADDR pc, char **name, CORE_ADDR *address,
|
|
|
|
|
CORE_ADDR *endaddr)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2004-03-16 21:25:24 +01:00
|
|
|
|
struct bfd_section *section;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
struct partial_symtab *pst;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
struct symbol *f;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
struct minimal_symbol *msymbol;
|
|
|
|
|
struct partial_symbol *psb;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
struct obj_section *osect;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
int i;
|
|
|
|
|
CORE_ADDR mapped_pc;
|
|
|
|
|
|
2004-03-16 21:25:24 +01:00
|
|
|
|
/* To ensure that the symbol returned belongs to the correct setion
|
|
|
|
|
(and that the last [random] symbol from the previous section
|
|
|
|
|
isn't returned) try to find the section containing PC. First try
|
|
|
|
|
the overlay code (which by default returns NULL); and second try
|
|
|
|
|
the normal section code (which almost always succeeds). */
|
|
|
|
|
section = find_pc_overlay (pc);
|
|
|
|
|
if (section == NULL)
|
|
|
|
|
{
|
|
|
|
|
struct obj_section *obj_section = find_pc_section (pc);
|
|
|
|
|
if (obj_section == NULL)
|
|
|
|
|
section = NULL;
|
|
|
|
|
else
|
|
|
|
|
section = obj_section->the_bfd_section;
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
mapped_pc = overlay_mapped_address (pc, section);
|
|
|
|
|
|
2002-08-19 00:40:15 +02:00
|
|
|
|
if (mapped_pc >= cache_pc_function_low
|
|
|
|
|
&& mapped_pc < cache_pc_function_high
|
|
|
|
|
&& section == cache_pc_function_section)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
goto return_cached_value;
|
|
|
|
|
|
|
|
|
|
msymbol = lookup_minimal_symbol_by_pc_section (mapped_pc, section);
|
|
|
|
|
pst = find_pc_sect_psymtab (mapped_pc, section);
|
|
|
|
|
if (pst)
|
|
|
|
|
{
|
|
|
|
|
/* Need to read the symbols to get a good value for the end address. */
|
|
|
|
|
if (endaddr != NULL && !pst->readin)
|
|
|
|
|
{
|
|
|
|
|
/* Need to get the terminal in case symbol-reading produces
|
|
|
|
|
output. */
|
|
|
|
|
target_terminal_ours_for_output ();
|
|
|
|
|
PSYMTAB_TO_SYMTAB (pst);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (pst->readin)
|
|
|
|
|
{
|
|
|
|
|
/* Checking whether the msymbol has a larger value is for the
|
|
|
|
|
"pathological" case mentioned in print_frame_info. */
|
|
|
|
|
f = find_pc_sect_function (mapped_pc, section);
|
|
|
|
|
if (f != NULL
|
|
|
|
|
&& (msymbol == NULL
|
|
|
|
|
|| (BLOCK_START (SYMBOL_BLOCK_VALUE (f))
|
|
|
|
|
>= SYMBOL_VALUE_ADDRESS (msymbol))))
|
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
cache_pc_function_low = BLOCK_START (SYMBOL_BLOCK_VALUE (f));
|
|
|
|
|
cache_pc_function_high = BLOCK_END (SYMBOL_BLOCK_VALUE (f));
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
cache_pc_function_name = DEPRECATED_SYMBOL_NAME (f);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
cache_pc_function_section = section;
|
|
|
|
|
goto return_cached_value;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Now that static symbols go in the minimal symbol table, perhaps
|
|
|
|
|
we could just ignore the partial symbols. But at least for now
|
|
|
|
|
we use the partial or minimal symbol, whichever is larger. */
|
|
|
|
|
psb = find_pc_sect_psymbol (pst, mapped_pc, section);
|
|
|
|
|
|
|
|
|
|
if (psb
|
|
|
|
|
&& (msymbol == NULL ||
|
|
|
|
|
(SYMBOL_VALUE_ADDRESS (psb)
|
|
|
|
|
>= SYMBOL_VALUE_ADDRESS (msymbol))))
|
|
|
|
|
{
|
|
|
|
|
/* This case isn't being cached currently. */
|
|
|
|
|
if (address)
|
|
|
|
|
*address = SYMBOL_VALUE_ADDRESS (psb);
|
|
|
|
|
if (name)
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
*name = DEPRECATED_SYMBOL_NAME (psb);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* endaddr non-NULL can't happen here. */
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Not in the normal symbol tables, see if the pc is in a known section.
|
|
|
|
|
If it's not, then give up. This ensures that anything beyond the end
|
|
|
|
|
of the text seg doesn't appear to be part of the last function in the
|
|
|
|
|
text segment. */
|
|
|
|
|
|
|
|
|
|
osect = find_pc_sect_section (mapped_pc, section);
|
|
|
|
|
|
|
|
|
|
if (!osect)
|
|
|
|
|
msymbol = NULL;
|
|
|
|
|
|
|
|
|
|
/* Must be in the minimal symbol table. */
|
|
|
|
|
if (msymbol == NULL)
|
|
|
|
|
{
|
|
|
|
|
/* No available symbol. */
|
|
|
|
|
if (name != NULL)
|
|
|
|
|
*name = 0;
|
|
|
|
|
if (address != NULL)
|
|
|
|
|
*address = 0;
|
|
|
|
|
if (endaddr != NULL)
|
|
|
|
|
*endaddr = 0;
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
cache_pc_function_low = SYMBOL_VALUE_ADDRESS (msymbol);
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
cache_pc_function_name = DEPRECATED_SYMBOL_NAME (msymbol);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
cache_pc_function_section = section;
|
|
|
|
|
|
|
|
|
|
/* Use the lesser of the next minimal symbol in the same section, or
|
|
|
|
|
the end of the section, as the end of the function. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Step over other symbols at this same address, and symbols in
|
|
|
|
|
other sections, to find the next symbol in this section with
|
|
|
|
|
a different address. */
|
|
|
|
|
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
for (i = 1; DEPRECATED_SYMBOL_NAME (msymbol + i) != NULL; i++)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (SYMBOL_VALUE_ADDRESS (msymbol + i) != SYMBOL_VALUE_ADDRESS (msymbol)
|
2002-08-19 00:40:15 +02:00
|
|
|
|
&& SYMBOL_BFD_SECTION (msymbol + i) == SYMBOL_BFD_SECTION (msymbol))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
if (DEPRECATED_SYMBOL_NAME (msymbol + i) != NULL
|
1999-04-16 03:35:26 +02:00
|
|
|
|
&& SYMBOL_VALUE_ADDRESS (msymbol + i) < osect->endaddr)
|
|
|
|
|
cache_pc_function_high = SYMBOL_VALUE_ADDRESS (msymbol + i);
|
|
|
|
|
else
|
|
|
|
|
/* We got the start address from the last msymbol in the objfile.
|
|
|
|
|
So the end address is the end of the section. */
|
|
|
|
|
cache_pc_function_high = osect->endaddr;
|
|
|
|
|
|
2002-08-19 00:40:15 +02:00
|
|
|
|
return_cached_value:
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (address)
|
|
|
|
|
{
|
|
|
|
|
if (pc_in_unmapped_range (pc, section))
|
1999-07-07 22:19:36 +02:00
|
|
|
|
*address = overlay_unmapped_address (cache_pc_function_low, section);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
1999-07-07 22:19:36 +02:00
|
|
|
|
*address = cache_pc_function_low;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (name)
|
|
|
|
|
*name = cache_pc_function_name;
|
|
|
|
|
|
|
|
|
|
if (endaddr)
|
|
|
|
|
{
|
|
|
|
|
if (pc_in_unmapped_range (pc, section))
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Because the high address is actually beyond the end of
|
|
|
|
|
the function (and therefore possibly beyond the end of
|
2002-08-19 00:40:15 +02:00
|
|
|
|
the overlay), we must actually convert (high - 1) and
|
|
|
|
|
then add one to that. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
*endaddr = 1 + overlay_unmapped_address (cache_pc_function_high - 1,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
section);
|
1999-07-07 22:19:36 +02:00
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
1999-07-07 22:19:36 +02:00
|
|
|
|
*endaddr = cache_pc_function_high;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the innermost stack frame executing inside of BLOCK,
|
|
|
|
|
or NULL if there is no such frame. If BLOCK is NULL, just return NULL. */
|
|
|
|
|
|
|
|
|
|
struct frame_info *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
block_innermost_frame (struct block *block)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
struct frame_info *frame;
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 18:32:14 +02:00
|
|
|
|
CORE_ADDR start;
|
|
|
|
|
CORE_ADDR end;
|
2002-07-02 21:08:55 +02:00
|
|
|
|
CORE_ADDR calling_pc;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (block == NULL)
|
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
|
|
start = BLOCK_START (block);
|
|
|
|
|
end = BLOCK_END (block);
|
|
|
|
|
|
|
|
|
|
frame = NULL;
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
frame = get_prev_frame (frame);
|
|
|
|
|
if (frame == NULL)
|
|
|
|
|
return NULL;
|
2003-07-11 17:31:43 +02:00
|
|
|
|
calling_pc = get_frame_address_in_block (frame);
|
2002-07-02 21:08:55 +02:00
|
|
|
|
if (calling_pc >= start && calling_pc < end)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return frame;
|
|
|
|
|
}
|
|
|
|
|
}
|