diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada')
-rw-r--r-- | gdb/testsuite/gdb.ada/lang_switch.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.ada/ref_param.exp | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/lang_switch.exp b/gdb/testsuite/gdb.ada/lang_switch.exp index 45a4e53..3fc3584 100644 --- a/gdb/testsuite/gdb.ada/lang_switch.exp +++ b/gdb/testsuite/gdb.ada/lang_switch.exp @@ -41,6 +41,8 @@ gdb_load ${binfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.c] runto "foo.c:$bp_location" +gdb_test "set print frame-arguments all" "" + # Make sure that the language is switched to Ada for the second frame # by checking the string parameter. gdb_test "bt" \ diff --git a/gdb/testsuite/gdb.ada/ref_param.exp b/gdb/testsuite/gdb.ada/ref_param.exp index 5325dd2..4d49296 100644 --- a/gdb/testsuite/gdb.ada/ref_param.exp +++ b/gdb/testsuite/gdb.ada/ref_param.exp @@ -39,6 +39,8 @@ if ![runto call_me] then { return } +gdb_test "set print frame-arguments all" "" + set expected_d "\\(one => 1, two => 2, three => 3, four => 4, five => 5, six => 6\\)" gdb_test "frame" \ "#0\[ \t\]*pck\\.call_me \\(d=${expected_d}\\).*" \ |