diff options
| author | Andrew Cagney <cagney@redhat.com> | 2002-11-29 01:52:02 +0000 |
|---|---|---|
| committer | Andrew Cagney <cagney@redhat.com> | 2002-11-29 01:52:02 +0000 |
| commit | f5571a4b8e031da6f9bc6b142025814bb655bf3a (patch) | |
| tree | 0addda845379808c60c47c7e3bb4c3992e9e6cfc /gdb/ada-lang.c | |
| parent | b4238a4e2a225b9605f78377b24e0ba4314c3585 (diff) | |
| download | gdb-f5571a4b8e031da6f9bc6b142025814bb655bf3a.tar.gz | |
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.c | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index e83037ab51d..04d2183a1d2 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) |