2002-04-10 22:14:02 +00:00
|
|
|
|
/* Get info from stack frames; convert between frames, blocks,
|
|
|
|
|
functions and pc values.
|
|
|
|
|
|
|
|
|
|
Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
|
2003-01-05 01:39:56 +00:00
|
|
|
|
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 Free Software
|
2002-04-10 22:14:02 +00:00
|
|
|
|
Foundation, Inc.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
This file is part of GDB.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00: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 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00: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 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00: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 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include "symtab.h"
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "symfile.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 01:39:22 +00:00
|
|
|
|
#include "regcache.h"
|
2002-06-01 20:44:21 +00:00
|
|
|
|
#include "gdb_assert.h"
|
2002-11-08 19:42:00 +00:00
|
|
|
|
#include "dummy-frame.h"
|
2003-01-05 01:39:56 +00: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 00:01:07 +00:00
|
|
|
|
#include "block.h"
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2003-01-05 01:39:56 +00:00
|
|
|
|
/* Prototypes for exported functions. */
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
2003-01-05 01:39:56 +00:00
|
|
|
|
void _initialize_blockframe (void);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2003-03-24 03:54:51 +00:00
|
|
|
|
/* Is ADDR inside the startup file? Note that if your machine has a
|
|
|
|
|
way to detect the bottom of the stack, there is no need to call
|
|
|
|
|
this function from DEPRECATED_FRAME_CHAIN_VALID; the reason for
|
|
|
|
|
doing so is that some machines have no way of detecting bottom of
|
|
|
|
|
stack.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
A PC of zero is always considered to be the bottom of the stack. */
|
|
|
|
|
|
|
|
|
|
int
|
2000-07-30 01:48:28 +00:00
|
|
|
|
inside_entry_file (CORE_ADDR addr)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
if (addr == 0)
|
|
|
|
|
return 1;
|
|
|
|
|
if (symfile_objfile == 0)
|
|
|
|
|
return 0;
|
1999-04-26 18:34:20 +00:00
|
|
|
|
if (CALL_DUMMY_LOCATION == AT_ENTRY_POINT)
|
|
|
|
|
{
|
|
|
|
|
/* Do not stop backtracing if the pc is in the call dummy
|
1999-07-07 20:19:36 +00:00
|
|
|
|
at the entry point. */
|
1999-04-26 18:34:20 +00:00
|
|
|
|
/* FIXME: Won't always work with zeros for the last two arguments */
|
2002-12-01 Andrew Cagney <ac131313@redhat.com>
* gdbarch.sh (DEPRECATED_PC_IN_CALL_DUMMY): Rename
PC_IN_CALL_DUMMY. Change to predicate. Always allow call.
* gdbarch.h, gdbarch.c: Re-generate.
* config/sparc/tm-sparc.h, config/sparc/tm-sp64.h: Update.
* config/mn10200/tm-mn10200.h, config/h8500/tm-h8500.h: Update.
* config/pa/tm-hppa.h, frame.h: Update.
* x86-64-tdep.c, vax-tdep.c, sparc-tdep.c: Update.
* s390-tdep.c, ns32k-tdep.c, mn10300-tdep.c: Update.
* m68k-tdep.c, i386-tdep.c, frv-tdep.c: Update.
* cris-tdep.c, alpha-tdep.c: Update.
* frame.c (set_unwind_by_pc, create_new_frame): Use either
DEPRECATED_PC_IN_CALL_DUMMY or pc_in_dummy_frame.
(get_prev_frame): Ditto.
Index: doc/ChangeLog
2002-12-01 Andrew Cagney <ac131313@redhat.com>
* gdbint.texinfo (Target Architecture Definition): Delete
PC_IN_CALL_DUMMY.
2002-12-01 19:07:16 +00:00
|
|
|
|
if (DEPRECATED_PC_IN_CALL_DUMMY (addr, 0, 0))
|
1999-04-26 18:34:20 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
1999-07-07 20:19:36 +00:00
|
|
|
|
return (addr >= symfile_objfile->ei.entry_file_lowpc &&
|
|
|
|
|
addr < symfile_objfile->ei.entry_file_highpc);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Test a specified PC value to see if it is in the range of addresses
|
|
|
|
|
that correspond to the main() function. See comments above for why
|
|
|
|
|
we might want to do this.
|
|
|
|
|
|
2003-03-24 03:54:51 +00:00
|
|
|
|
Typically called from DEPRECATED_FRAME_CHAIN_VALID.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
A PC of zero is always considered to be the bottom of the stack. */
|
|
|
|
|
|
|
|
|
|
int
|
2000-07-30 01:48:28 +00:00
|
|
|
|
inside_main_func (CORE_ADDR pc)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
if (pc == 0)
|
|
|
|
|
return 1;
|
|
|
|
|
if (symfile_objfile == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
2003-03-24 03:54:51 +00:00
|
|
|
|
/* If the addr range is not set up at symbol reading time, set it up
|
|
|
|
|
now. This is for DEPRECATED_FRAME_CHAIN_VALID_ALTERNATE. I do
|
|
|
|
|
this for coff, because it is unable to set it up and symbol
|
|
|
|
|
reading time. */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
if (symfile_objfile->ei.main_func_lowpc == INVALID_ENTRY_LOWPC &&
|
|
|
|
|
symfile_objfile->ei.main_func_highpc == INVALID_ENTRY_HIGHPC)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct symbol *mainsym;
|
|
|
|
|
|
2001-07-07 17:19:50 +00:00
|
|
|
|
mainsym = lookup_symbol (main_name (), NULL, VAR_NAMESPACE, NULL, NULL);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
if (mainsym && SYMBOL_CLASS (mainsym) == LOC_BLOCK)
|
|
|
|
|
{
|
|
|
|
|
symfile_objfile->ei.main_func_lowpc =
|
1999-04-16 01:35:26 +00:00
|
|
|
|
BLOCK_START (SYMBOL_BLOCK_VALUE (mainsym));
|
1999-07-07 20:19:36 +00:00
|
|
|
|
symfile_objfile->ei.main_func_highpc =
|
1999-04-16 01:35:26 +00:00
|
|
|
|
BLOCK_END (SYMBOL_BLOCK_VALUE (mainsym));
|
1999-07-07 20:19:36 +00:00
|
|
|
|
}
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
1999-07-07 20:19:36 +00:00
|
|
|
|
return (symfile_objfile->ei.main_func_lowpc <= pc &&
|
|
|
|
|
symfile_objfile->ei.main_func_highpc > pc);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Test a specified PC value to see if it is in the range of addresses
|
|
|
|
|
that correspond to the process entry point function. See comments
|
|
|
|
|
in objfiles.h for why we might want to do this.
|
|
|
|
|
|
2003-03-24 03:54:51 +00:00
|
|
|
|
Typically called from DEPRECATED_FRAME_CHAIN_VALID.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
A PC of zero is always considered to be the bottom of the stack. */
|
|
|
|
|
|
|
|
|
|
int
|
2000-07-30 01:48:28 +00:00
|
|
|
|
inside_entry_func (CORE_ADDR pc)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
if (pc == 0)
|
|
|
|
|
return 1;
|
|
|
|
|
if (symfile_objfile == 0)
|
|
|
|
|
return 0;
|
1999-04-26 18:34:20 +00:00
|
|
|
|
if (CALL_DUMMY_LOCATION == AT_ENTRY_POINT)
|
|
|
|
|
{
|
|
|
|
|
/* Do not stop backtracing if the pc is in the call dummy
|
1999-07-07 20:19:36 +00:00
|
|
|
|
at the entry point. */
|
1999-04-26 18:34:20 +00:00
|
|
|
|
/* FIXME: Won't always work with zeros for the last two arguments */
|
2002-12-01 Andrew Cagney <ac131313@redhat.com>
* gdbarch.sh (DEPRECATED_PC_IN_CALL_DUMMY): Rename
PC_IN_CALL_DUMMY. Change to predicate. Always allow call.
* gdbarch.h, gdbarch.c: Re-generate.
* config/sparc/tm-sparc.h, config/sparc/tm-sp64.h: Update.
* config/mn10200/tm-mn10200.h, config/h8500/tm-h8500.h: Update.
* config/pa/tm-hppa.h, frame.h: Update.
* x86-64-tdep.c, vax-tdep.c, sparc-tdep.c: Update.
* s390-tdep.c, ns32k-tdep.c, mn10300-tdep.c: Update.
* m68k-tdep.c, i386-tdep.c, frv-tdep.c: Update.
* cris-tdep.c, alpha-tdep.c: Update.
* frame.c (set_unwind_by_pc, create_new_frame): Use either
DEPRECATED_PC_IN_CALL_DUMMY or pc_in_dummy_frame.
(get_prev_frame): Ditto.
Index: doc/ChangeLog
2002-12-01 Andrew Cagney <ac131313@redhat.com>
* gdbint.texinfo (Target Architecture Definition): Delete
PC_IN_CALL_DUMMY.
2002-12-01 19:07:16 +00:00
|
|
|
|
if (DEPRECATED_PC_IN_CALL_DUMMY (pc, 0, 0))
|
1999-04-26 18:34:20 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
1999-07-07 20:19:36 +00:00
|
|
|
|
return (symfile_objfile->ei.entry_func_lowpc <= pc &&
|
|
|
|
|
symfile_objfile->ei.entry_func_highpc > pc);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return nonzero if the function for this frame lacks a prologue. Many
|
|
|
|
|
machines can define FRAMELESS_FUNCTION_INVOCATION to just call this
|
|
|
|
|
function. */
|
|
|
|
|
|
|
|
|
|
int
|
2000-07-30 01:48:28 +00:00
|
|
|
|
frameless_look_for_prologue (struct frame_info *frame)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
CORE_ADDR func_start, after_prologue;
|
1999-08-23 22:40:00 +00:00
|
|
|
|
|
2003-04-05 18:54:38 +00:00
|
|
|
|
func_start = get_frame_func (frame);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (func_start)
|
|
|
|
|
{
|
|
|
|
|
func_start += FUNCTION_START_OFFSET;
|
1999-08-23 22:40:00 +00:00
|
|
|
|
/* This is faster, since only care whether there *is* a
|
|
|
|
|
prologue, not how long it is. */
|
2000-04-29 08:55:45 +00:00
|
|
|
|
return PROLOGUE_FRAMELESS_P (func_start);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
2002-12-09 03:30:44 +00:00
|
|
|
|
else if (get_frame_pc (frame) == 0)
|
1999-08-23 22:40:00 +00:00
|
|
|
|
/* A frame with a zero PC is usually created by dereferencing a
|
|
|
|
|
NULL function pointer, normally causing an immediate core dump
|
|
|
|
|
of the inferior. Mark function as frameless, as the inferior
|
|
|
|
|
has no chance of setting up a stack frame. */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
return 1;
|
|
|
|
|
else
|
|
|
|
|
/* If we can't find the start of the function, we don't really
|
|
|
|
|
know whether the function is frameless, but we should be able
|
|
|
|
|
to get a reasonable (i.e. best we can do under the
|
|
|
|
|
circumstances) backtrace by saying that it isn't. */
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
2002-07-02 19:08:55 +00:00
|
|
|
|
/* return the address of the PC for the given FRAME, ie the current PC value
|
|
|
|
|
if FRAME is the innermost frame, or the address adjusted to point to the
|
|
|
|
|
call instruction if not. */
|
|
|
|
|
|
|
|
|
|
CORE_ADDR
|
|
|
|
|
frame_address_in_block (struct frame_info *frame)
|
|
|
|
|
{
|
2002-12-09 03:30:44 +00:00
|
|
|
|
CORE_ADDR pc = get_frame_pc (frame);
|
2002-07-02 19:08:55 +00:00
|
|
|
|
|
|
|
|
|
/* If we are not in the innermost frame, and we are not interrupted
|
|
|
|
|
by a signal, frame->pc points to the instruction following the
|
|
|
|
|
call. As a consequence, we need to get the address of the previous
|
|
|
|
|
instruction. Unfortunately, this is not straightforward to do, so
|
|
|
|
|
we just use the address minus one, which is a good enough
|
|
|
|
|
approximation. */
|
2002-11-18 22:19:33 +00:00
|
|
|
|
/* FIXME: cagney/2002-11-10: Should this instead test for
|
|
|
|
|
NORMAL_FRAME? A dummy frame (in fact all the abnormal frames)
|
|
|
|
|
save the PC value in the block. */
|
2002-12-09 00:32:08 +00:00
|
|
|
|
if (get_next_frame (frame) != 0
|
|
|
|
|
&& get_frame_type (get_next_frame (frame)) != SIGTRAMP_FRAME)
|
2002-07-02 19:08:55 +00:00
|
|
|
|
--pc;
|
|
|
|
|
|
|
|
|
|
return pc;
|
|
|
|
|
}
|
1999-04-16 01:35:26 +00: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-05 22:04:43 +00: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 01:35:26 +00: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-05 22:04:43 +00:00
|
|
|
|
get_frame_block (struct frame_info *frame, CORE_ADDR *addr_in_block)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2002-07-02 19:08:55 +00:00
|
|
|
|
const CORE_ADDR pc = 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-05 22:04:43 +00:00
|
|
|
|
|
|
|
|
|
if (addr_in_block)
|
|
|
|
|
*addr_in_block = pc;
|
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
return block_for_pc (pc);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
CORE_ADDR
|
2000-07-30 01:48:28 +00:00
|
|
|
|
get_pc_function_start (CORE_ADDR pc)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
register struct block *bl;
|
|
|
|
|
register struct symbol *symbol;
|
|
|
|
|
register struct minimal_symbol *msymbol;
|
|
|
|
|
CORE_ADDR fstart;
|
|
|
|
|
|
|
|
|
|
if ((bl = block_for_pc (pc)) != NULL &&
|
|
|
|
|
(symbol = block_function (bl)) != NULL)
|
|
|
|
|
{
|
|
|
|
|
bl = SYMBOL_BLOCK_VALUE (symbol);
|
|
|
|
|
fstart = BLOCK_START (bl);
|
|
|
|
|
}
|
|
|
|
|
else if ((msymbol = lookup_minimal_symbol_by_pc (pc)) != NULL)
|
|
|
|
|
{
|
|
|
|
|
fstart = SYMBOL_VALUE_ADDRESS (msymbol);
|
2002-07-16 07:42:25 +00:00
|
|
|
|
if (!find_pc_section (fstart))
|
|
|
|
|
return 0;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fstart = 0;
|
|
|
|
|
}
|
|
|
|
|
return (fstart);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the symbol for the function executing in frame FRAME. */
|
|
|
|
|
|
|
|
|
|
struct symbol *
|
2000-07-30 01:48:28 +00:00
|
|
|
|
get_frame_function (struct frame_info *frame)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
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-05 22:04:43 +00:00
|
|
|
|
register struct block *bl = get_frame_block (frame, 0);
|
1999-04-16 01:35:26 +00: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 *
|
2000-07-30 01:48:28 +00:00
|
|
|
|
find_pc_sect_function (CORE_ADDR pc, struct sec *section)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
register struct block *b = block_for_pc_sect (pc, section);
|
|
|
|
|
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 01:48:28 +00:00
|
|
|
|
find_pc_function (CORE_ADDR pc)
|
1999-04-16 01:35:26 +00: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 20:19:36 +00:00
|
|
|
|
static CORE_ADDR cache_pc_function_low = 0;
|
|
|
|
|
static CORE_ADDR cache_pc_function_high = 0;
|
|
|
|
|
static char *cache_pc_function_name = 0;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
static struct sec *cache_pc_function_section = NULL;
|
|
|
|
|
|
|
|
|
|
/* Clear cache, e.g. when symbol table is discarded. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
clear_pc_function_cache (void)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
cache_pc_function_low = 0;
|
|
|
|
|
cache_pc_function_high = 0;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
cache_pc_function_name = (char *) 0;
|
1999-04-16 01:35:26 +00: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. */
|
|
|
|
|
|
|
|
|
|
int
|
2000-07-30 01:48:28 +00:00
|
|
|
|
find_pc_sect_partial_function (CORE_ADDR pc, asection *section, char **name,
|
|
|
|
|
CORE_ADDR *address, CORE_ADDR *endaddr)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct partial_symtab *pst;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
struct symbol *f;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
struct minimal_symbol *msymbol;
|
|
|
|
|
struct partial_symbol *psb;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
struct obj_section *osect;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
int i;
|
|
|
|
|
CORE_ADDR mapped_pc;
|
|
|
|
|
|
|
|
|
|
mapped_pc = overlay_mapped_address (pc, section);
|
|
|
|
|
|
2002-08-18 22:40:15 +00:00
|
|
|
|
if (mapped_pc >= cache_pc_function_low
|
|
|
|
|
&& mapped_pc < cache_pc_function_high
|
|
|
|
|
&& section == cache_pc_function_section)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
goto return_cached_value;
|
|
|
|
|
|
|
|
|
|
/* If sigtramp is in the u area, it counts as a function (especially
|
|
|
|
|
important for step_1). */
|
2002-09-06 20:17:40 +00:00
|
|
|
|
if (SIGTRAMP_START_P () && PC_IN_SIGTRAMP (mapped_pc, (char *) NULL))
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
1999-07-07 20:19:36 +00:00
|
|
|
|
cache_pc_function_low = SIGTRAMP_START (mapped_pc);
|
|
|
|
|
cache_pc_function_high = SIGTRAMP_END (mapped_pc);
|
|
|
|
|
cache_pc_function_name = "<sigtramp>";
|
1999-04-16 01:35:26 +00:00
|
|
|
|
cache_pc_function_section = section;
|
|
|
|
|
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 20:19:36 +00: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 21:36:23 +00:00
|
|
|
|
cache_pc_function_name = DEPRECATED_SYMBOL_NAME (f);
|
1999-04-16 01:35:26 +00: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 21:36:23 +00:00
|
|
|
|
*name = DEPRECATED_SYMBOL_NAME (psb);
|
1999-04-16 01:35:26 +00: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 20:19:36 +00: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 21:36:23 +00:00
|
|
|
|
cache_pc_function_name = DEPRECATED_SYMBOL_NAME (msymbol);
|
1999-04-16 01:35:26 +00: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 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00: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 21:36:23 +00:00
|
|
|
|
for (i = 1; DEPRECATED_SYMBOL_NAME (msymbol + i) != NULL; i++)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
1999-07-07 20:19:36 +00:00
|
|
|
|
if (SYMBOL_VALUE_ADDRESS (msymbol + i) != SYMBOL_VALUE_ADDRESS (msymbol)
|
2002-08-18 22:40:15 +00:00
|
|
|
|
&& SYMBOL_BFD_SECTION (msymbol + i) == SYMBOL_BFD_SECTION (msymbol))
|
1999-04-16 01:35:26 +00: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 21:36:23 +00:00
|
|
|
|
if (DEPRECATED_SYMBOL_NAME (msymbol + i) != NULL
|
1999-04-16 01:35:26 +00: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-18 22:40:15 +00:00
|
|
|
|
return_cached_value:
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (address)
|
|
|
|
|
{
|
|
|
|
|
if (pc_in_unmapped_range (pc, section))
|
1999-07-07 20:19:36 +00:00
|
|
|
|
*address = overlay_unmapped_address (cache_pc_function_low, section);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else
|
1999-07-07 20:19:36 +00:00
|
|
|
|
*address = cache_pc_function_low;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (name)
|
|
|
|
|
*name = cache_pc_function_name;
|
|
|
|
|
|
|
|
|
|
if (endaddr)
|
|
|
|
|
{
|
|
|
|
|
if (pc_in_unmapped_range (pc, section))
|
1999-07-07 20:19:36 +00:00
|
|
|
|
{
|
1999-04-16 01:35:26 +00:00
|
|
|
|
/* Because the high address is actually beyond the end of
|
|
|
|
|
the function (and therefore possibly beyond the end of
|
2002-08-18 22:40:15 +00:00
|
|
|
|
the overlay), we must actually convert (high - 1) and
|
|
|
|
|
then add one to that. */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
*endaddr = 1 + overlay_unmapped_address (cache_pc_function_high - 1,
|
1999-04-16 01:35:26 +00:00
|
|
|
|
section);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
}
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else
|
1999-07-07 20:19:36 +00:00
|
|
|
|
*endaddr = cache_pc_function_high;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
2002-08-18 22:40:15 +00:00
|
|
|
|
/* Backward compatibility, no section argument. */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
int
|
2000-07-30 01:48:28 +00:00
|
|
|
|
find_pc_partial_function (CORE_ADDR pc, char **name, CORE_ADDR *address,
|
|
|
|
|
CORE_ADDR *endaddr)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
1999-07-07 20:19:36 +00:00
|
|
|
|
asection *section;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
section = find_pc_overlay (pc);
|
|
|
|
|
return find_pc_sect_partial_function (pc, section, name, address, endaddr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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 01:48:28 +00:00
|
|
|
|
block_innermost_frame (struct block *block)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct frame_info *frame;
|
|
|
|
|
register CORE_ADDR start;
|
|
|
|
|
register CORE_ADDR end;
|
2002-07-02 19:08:55 +00:00
|
|
|
|
CORE_ADDR calling_pc;
|
1999-04-16 01:35:26 +00: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;
|
2002-07-02 19:08:55 +00:00
|
|
|
|
calling_pc = frame_address_in_block (frame);
|
|
|
|
|
if (calling_pc >= start && calling_pc < end)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
return frame;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-26 18:34:20 +00:00
|
|
|
|
/* Are we in a call dummy? The code below which allows DECR_PC_AFTER_BREAK
|
|
|
|
|
below is for infrun.c, which may give the macro a pc without that
|
|
|
|
|
subtracted out. */
|
|
|
|
|
|
|
|
|
|
/* Is the PC in a call dummy? SP and FRAME_ADDRESS are the bottom and
|
|
|
|
|
top of the stack frame which we are checking, where "bottom" and
|
|
|
|
|
"top" refer to some section of memory which contains the code for
|
|
|
|
|
the call dummy. Calls to this macro assume that the contents of
|
2003-04-28 Andrew Cagney <cagney@redhat.com>
* gdbarch.sh (DEPRECATED_TARGET_READ_FP): Replace TARGET_READ_FP.
(DEPRECATED_FP_REGNUM): Replace FP_REGNUM.
* gdbarch.h, gdbarch.c: Re-generate.
* infcall.c (call_function_by_hand): Use DEPRECATED_FP_REGNUM,
DEPRECATED_TARGET_READ_FP, or "sp" to create the dummy frame ID.
* inferior.h (deprecated_read_fp): Rename read_fp.
(generic_target_read_fp): Delete declaration.
* regcache.c (generic_target_read_fp): Delete function.
(deprecated_read_fp): Replace read_fp, use
DEPRECATED_TARGET_READ_FP or DEPRECATED_FP_REGNUM.
* d10v-tdep.c (d10v_read_fp): Delete function.
(d10v_gdbarch_init): Do not set deprecated_read_fp.
* sparc-tdep.c (sparc_gdbarch_init): Do not set
deprecated_target_read_fp to generic_target_read_fp.
* sh-tdep.c (sh_gdbarch_init): Ditto.
* rs6000-tdep.c (rs6000_gdbarch_init): Ditto.
* m68hc11-tdep.c (m68hc11_gdbarch_init): Ditto.
* frv-tdep.c (frv_gdbarch_init): Ditto.
* xstormy16-tdep.c (xstormy16_gdbarch_init): Set
deprecated_fp_regnum.
* x86-64-tdep.c (x86_64_init_abi): Ditto.
* vax-tdep.c (vax_gdbarch_init): Ditto.
* v850-tdep.c (v850_gdbarch_init): Ditto.
* sparc-tdep.c (sparc_gdbarch_init): Ditto.
* sh-tdep.c (sh_gdbarch_init): Ditto.
* s390-tdep.c (s390_gdbarch_init): Ditto.
* rs6000-tdep.c (rs6000_gdbarch_init): Ditto.
* mn10300-tdep.c (mn10300_gdbarch_init): Ditto.
* mcore-tdep.c (mcore_gdbarch_init): Ditto.
* m68k-tdep.c (m68k_gdbarch_init): Ditto.
* m68hc11-tdep.c (m68hc11_gdbarch_init): Ditto.
* ia64-tdep.c (ia64_gdbarch_init): Ditto.
* i386-tdep.c (i386_gdbarch_init): Ditto.
* hppa-tdep.c (hppa_gdbarch_init): Ditto.
* h8300-tdep.c (h8300_gdbarch_init): Ditto.
* frv-tdep.c (frv_gdbarch_init): Ditto.
* cris-tdep.c (cris_gdbarch_init): Ditto.
* avr-tdep.c (avr_gdbarch_init): Ditto.
* arm-tdep.c (arm_gdbarch_init): Ditto.
* alpha-tdep.c (alpha_gdbarch_init): Ditto.
* x86-64-tdep.c (x86_64_init_abi): Set deprecated_target_read_fp.
* v850-tdep.c (v850_gdbarch_init): Ditto.
* sparc-tdep.c (sparc_gdbarch_init): Ditto.
* sh-tdep.c (sh_gdbarch_init): Ditto.
* s390-tdep.c (s390_gdbarch_init): Ditto.
* rs6000-tdep.c (rs6000_gdbarch_init): Ditto.
* mn10300-tdep.c (mn10300_gdbarch_init): Ditto.
* mips-tdep.c (mips_gdbarch_init): Ditto.
* m68hc11-tdep.c (m68hc11_gdbarch_init): Ditto.
* ia64-tdep.c (ia64_gdbarch_init): Ditto.
* hppa-tdep.c (hppa_gdbarch_init): Ditto.
* frv-tdep.c (frv_gdbarch_init): Ditto.
* avr-tdep.c (avr_gdbarch_init): Ditto.
* arm-tdep.c (arm_gdbarch_init): Ditto.
* vax-tdep.c (vax_frame_init_saved_regs): Replace FP_REGNUM with
DEPRECATED_FP_REGNUM.
(vax_push_dummy_frame, vax_pop_frame): Ditto.
* std-regs.c (value_of_builtin_frame_fp_reg): Ditto.
* sparc-tdep.c (sparc_init_extra_frame_info): Ditto.
(sparc_push_dummy_frame, sparc64_read_fp): Ditto.
(sparc32_register_virtual_type): Ditto.
* sh-tdep.c (sh64_frame_chain): Ditto.
(sh64_get_saved_register, sh64_pop_frame): Ditto.
(sh_nofp_frame_init_saved_regs): Ditto.
(sh64_nofp_frame_init_saved_regs): Ditto.
(sh_fp_frame_init_saved_regs): Ditto.
* remote-mips.c (mips_wait, mips_fetch_registers): Ditto.
* remote-e7000.c (fetch_regs_from_dump): Ditto.
* procfs.c (procfs_fetch_registers): Ditto.
(procfs_store_registers): Ditto.
* ns32knbsd-nat.c (fetch_inferior_registers): Ditto.
(store_inferior_registers, fetch_core_registers): Ditto.
(fetch_kcore_registers, clear_regs): Ditto.
* ns32k-tdep.c (ns32k_frame_init_saved_regs): Ditto.
(ns32k_push_dummy_frame, ns32k_pop_frame): Ditto.
* nlm/i386.h (DEPRECATED_FP_REGNUM): Ditto.
* nlm/i386.c (do_status): Ditto.
* mipsv4-nat.c (supply_gregset): Ditto.
* mips-tdep.c: Ditto for comments.
* mips-nat.c (fetch_inferior_registers): Ditto.
(store_inferior_registers, fetch_core_registers): Ditto.
* m68k-tdep.c (m68k_push_dummy_frame): Ditto.
(m68k_pop_frame, m68k_frame_init_saved_regs): Ditto.
* i386-tdep.c (i386_frame_init_saved_regs): Ditto.
(i386_do_pop_frame, i386_register_type): Ditto.
* hppa-tdep.c (hppa_frame_chain): Ditto.
(hppa_push_dummy_frame, find_dummy_frame_regs): Ditto.
(hppa_pop_frame, hppa_read_fp): Ditto.
(skip_prologue_hard_way, hppa_frame_find_saved_regs): Ditto.
* cris-tdep.c (cris_examine, cris_pop_frame): Ditto.
* config/vax/nm-vax.h (REGISTER_U_ADDR): Ditto.
* config/sparc/tm-sparc.h (DEPRECATED_FP_REGNUM): Ditto.
* config/sparc/tm-sp64.h (DEPRECATED_FP_REGNUM): Ditto.
* config/s390/tm-s390.h (DEPRECATED_FP_REGNUM): Ditto.
* config/pa/tm-hppa64.h (DEPRECATED_FP_REGNUM): Ditto.
* config/ia64/tm-ia64.h (DEPRECATED_FP_REGNUM): Ditto.
* blockframe.c: Ditto for comments.
* arch-utils.h: Ditto for comments.
* arch-utils.c (legacy_virtual_frame_pointer): Ditto.
* alphanbsd-tdep.c (fetch_core_registers): Ditto.
* alphabsd-nat.c (fetch_inferior_registers): Ditto.
* alpha-tdep.h: Ditto for comments.
* alpha-tdep.c (alpha_cannot_fetch_register): Ditto.
(alpha_cannot_store_register): Ditto.
(alpha_push_dummy_frame): Ditto.
* alpha-nat.c (supply_gregset): Ditto.
* config/sparc/tm-sp64.h (DEPRECATED_TARGET_READ_FP): Update.
* config/pa/tm-hppa64.h (DEPRECATED_TARGET_READ_FP): Update.
* config/sparc/tm-sparc.h: Update comment.
* hppa-tdep.c (hppa_init_extra_frame_info): Use
deprecated_read_fp instead of TARGET_READ_FP.
(hppa_init_extra_frame_info, hppa_frame_chain): Ditto.
(hppa_push_dummy_frame, hppa_read_fp): Ditto.
* sparc-tdep.c (sparc_init_extra_frame_info): Use
deprecated_read_fp instead of read_fp.
* s390-tdep.c (s390_push_arguments): Ditto.
* ia64-tdep.c (ia64_gdbarch_init): Ditto.
* frame.h: Ditto in comments.
* frame.c (legacy_get_prev_frame): Ditto.
* dummy-frame.c (dummy_frame_this_id): Ditto.
* arm-tdep.c (arm_init_extra_frame_info): Ditto.
2003-04-28 Andrew Cagney <cagney@redhat.com>
* gdbint.texinfo (Target Architecture Definition): Replace
read_fp, TARGET_READ_FP and FP_REGNUM, with deprecated_read_fp,
DEPRECATED_TARGET_READ_FP and DEPRECATED_REGNUM.
2003-04-29 01:49:49 +00:00
|
|
|
|
SP_REGNUM and DEPRECATED_FP_REGNUM (or the saved values thereof),
|
|
|
|
|
respectively, are the things to pass.
|
|
|
|
|
|
|
|
|
|
This won't work on the 29k, where SP_REGNUM and
|
|
|
|
|
DEPRECATED_FP_REGNUM don't have that meaning, but the 29k doesn't
|
|
|
|
|
use ON_STACK. This could be fixed by generalizing this scheme,
|
|
|
|
|
perhaps by passing in a frame and adding a few fields, at least on
|
|
|
|
|
machines which need them for DEPRECATED_PC_IN_CALL_DUMMY.
|
1999-04-26 18:34:20 +00:00
|
|
|
|
|
|
|
|
|
Something simpler, like checking for the stack segment, doesn't work,
|
|
|
|
|
since various programs (threads implementations, gcc nested function
|
|
|
|
|
stubs, etc) may either allocate stack frames in another segment, or
|
|
|
|
|
allocate other kinds of code on the stack. */
|
|
|
|
|
|
|
|
|
|
int
|
2002-11-26 19:01:30 +00:00
|
|
|
|
deprecated_pc_in_call_dummy_on_stack (CORE_ADDR pc, CORE_ADDR sp,
|
|
|
|
|
CORE_ADDR frame_address)
|
1999-04-26 18:34:20 +00:00
|
|
|
|
{
|
|
|
|
|
return (INNER_THAN ((sp), (pc))
|
|
|
|
|
&& (frame_address != 0)
|
|
|
|
|
&& INNER_THAN ((pc), (frame_address)));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
int
|
2002-11-26 19:01:30 +00:00
|
|
|
|
deprecated_pc_in_call_dummy_at_entry_point (CORE_ADDR pc, CORE_ADDR sp,
|
|
|
|
|
CORE_ADDR frame_address)
|
1999-04-26 18:34:20 +00:00
|
|
|
|
{
|
|
|
|
|
return ((pc) >= CALL_DUMMY_ADDRESS ()
|
|
|
|
|
&& (pc) <= (CALL_DUMMY_ADDRESS () + DECR_PC_AFTER_BREAK));
|
|
|
|
|
}
|
|
|
|
|
|
2003-04-06 18:36:23 +00:00
|
|
|
|
/* Returns true for a user frame or a call_function_by_hand dummy
|
|
|
|
|
frame, and false for the CRT0 start-up frame. Purpose is to
|
|
|
|
|
terminate backtrace. */
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
int
|
2003-04-06 18:36:23 +00:00
|
|
|
|
legacy_frame_chain_valid (CORE_ADDR fp, struct frame_info *fi)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-01-05 01:39:56 +00:00
|
|
|
|
/* Don't prune CALL_DUMMY frames. */
|
|
|
|
|
if (DEPRECATED_USE_GENERIC_DUMMY_FRAMES
|
|
|
|
|
&& DEPRECATED_PC_IN_CALL_DUMMY (get_frame_pc (fi), 0, 0))
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
/* If the new frame pointer is zero, then it isn't valid. */
|
|
|
|
|
if (fp == 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
/* If the new frame would be inside (younger than) the previous frame,
|
|
|
|
|
then it isn't valid. */
|
|
|
|
|
if (INNER_THAN (fp, get_frame_base (fi)))
|
|
|
|
|
return 0;
|
|
|
|
|
|
2003-04-10 11:12:30 +00:00
|
|
|
|
/* If the architecture has a custom DEPRECATED_FRAME_CHAIN_VALID,
|
|
|
|
|
call it now. */
|
|
|
|
|
if (DEPRECATED_FRAME_CHAIN_VALID_P ())
|
|
|
|
|
return DEPRECATED_FRAME_CHAIN_VALID (fp, fi);
|
|
|
|
|
|
2003-01-05 01:39:56 +00:00
|
|
|
|
/* If we're already inside the entry function for the main objfile, then it
|
|
|
|
|
isn't valid. */
|
|
|
|
|
if (inside_entry_func (get_frame_pc (fi)))
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
/* If we're inside the entry file, it isn't valid. */
|
|
|
|
|
/* NOTE/drow 2002-12-25: should there be a way to disable this check? It
|
|
|
|
|
assumes a single small entry file, and the way some debug readers (e.g.
|
|
|
|
|
dbxread) figure out which object is the entry file is somewhat hokey. */
|
|
|
|
|
if (inside_entry_file (frame_pc_unwind (fi)))
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
return 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|