diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/stack.c | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/mixed-lang-stack.exp | 12 |
2 files changed, 12 insertions, 6 deletions
diff --git a/gdb/stack.c b/gdb/stack.c index b1b25aa..e941eb6 100644 --- a/gdb/stack.c +++ b/gdb/stack.c @@ -742,12 +742,6 @@ print_frame_args (const frame_print_options &fp_opts, = (print_names && fp_opts.print_frame_arguments != print_frame_arguments_none); - /* Temporarily change the selected frame to the given FRAME. - This allows routines that rely on the selected frame instead - of being given a frame as parameter to use the correct frame. */ - scoped_restore_selected_frame restore_selected_frame; - select_frame (frame); - if (func) { const struct block *b = func->value_block (); diff --git a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp index 6ab3f8a..5fc36f7 100644 --- a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp +++ b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp @@ -92,6 +92,18 @@ proc run_tests { lang } { } } + # Check backtrace arguments in MI mode. + set mi_a "\{name=\"a\",value=\"1\"\}" + set mi_b "\{name=\"b\",value=\"2\"\}" + set mi_c "\{name=\"c\",value=\"3\"\}" + set mi_d "\{name=\"d\",value=\"\\(4,5\\)\"\}" + set mi_e "\{name=\"e\",value=\"$e_arg\"\}" + set mi_g "\{name=\"g\",value=\"\\( a = 1.5, b = 2.5 \\)\"\}" + # Hidden argument name changes depending on compiler. + set mi_hidden "\{name=\"\[^\r\n\]+\",value=\"6\"\}" + gdb_test "interpreter-exec mi '-stack-list-arguments --no-frame-filters --all-values 7 7'" \ + "\\^done,stack-args=\\\[frame=\{level=\"7\",args=\\\[$mi_a,$mi_b,$mi_c,$mi_d,$mi_e,$mi_g,$mi_hidden\\\]\}\\\]" + # Check the language for frame #0. gdb_test "info frame" "source language fortran\..*" \ "info frame in frame #0" |