aboutsummaryrefslogtreecommitdiff
path: root/gdb/ada-lang.c
diff options
context:
space:
mode:
authorAndrew Cagney <cagney@redhat.com>2002-11-29 01:52:02 +0000
committerAndrew Cagney <cagney@redhat.com>2002-11-29 01:52:02 +0000
commit1058bca7483f329cd60fba85ce7391d522885fde (patch)
tree036848f60b897b3e984bd3b9863fb1ed44ba8496 /gdb/ada-lang.c
parentd92419e5e96545b7021e28c14db0576ad0b1790b (diff)
downloadgdb-1058bca7483f329cd60fba85ce7391d522885fde.zip
gdb-1058bca7483f329cd60fba85ce7391d522885fde.tar.gz
gdb-1058bca7483f329cd60fba85ce7391d522885fde.tar.bz2
2002-11-28 Andrew Cagney <ac131313@redhat.com>
* frame.c (pc_notcurrent): New function. (find_frame_sal): New function. * frame.h (find_frame_sal): Declare. (struct symtab_and_line): Add opaque declaration. * stack.c (print_frame_info_base): Use find_pc_line instead of find_frame_sal. (frame_info): Ditto. * ada-lang.c (find_printable_frame): Ditto. Index: tui/ChangeLog 2002-11-28 Andrew Cagney <ac131313@redhat.com> * tuiStack.c (tuiShowFrameInfo): Use find_frame_sal instead of find_pc_line.
Diffstat (limited to 'gdb/ada-lang.c')
-rw-r--r--gdb/ada-lang.c15
1 files changed, 1 insertions, 14 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index e83037a..04d2183 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -5032,20 +5032,7 @@ find_printable_frame (struct frame_info *fi, int level)
for (; fi != NULL; level += 1, fi = get_prev_frame (fi))
{
- /* If fi is not the innermost frame, that normally means that
- fi->pc points at the return instruction (which is *after* the
- call instruction), and we want to get the line containing the
- call (because the call is where the user thinks the program
- is). However, if the next frame is either a SIGTRAMP_FRAME
- or a DUMMY_FRAME, then the next frame will contain a saved
- interrupt PC and such a PC indicates the current (rather than
- next) instruction/line, consequently, for such cases, want to
- get the line containing fi->pc. */
- sal =
- find_pc_line (fi->pc,
- fi->next != NULL
- && !(get_frame_type (fi->next) == SIGTRAMP_FRAME)
- && !(get_frame_type (fi->next) == DUMMY_FRAME));
+ find_frame_sal (fi, &sal);
if (sal.symtab && !is_ada_runtime_file (sal.symtab->filename))
{
#if defined(__alpha__) && defined(__osf__) && !defined(VXWORKS_TARGET)