diff options
| -rw-r--r-- | gdb/testsuite/gdb.ada/rename_subscript_param.exp | 8 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/rename_subscript_param/pkg.adb | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/gdb/testsuite/gdb.ada/rename_subscript_param.exp b/gdb/testsuite/gdb.ada/rename_subscript_param.exp index 9188bf0..79370cf 100644 --- a/gdb/testsuite/gdb.ada/rename_subscript_param.exp +++ b/gdb/testsuite/gdb.ada/rename_subscript_param.exp @@ -26,9 +26,9 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "BREAK" ${testdir}/pkg.adb] runto "pkg.adb:$bp_location" -gdb_test "print b" \ +gdb_test "print rename_subscript_param_b" \ " = false" \ - "print b before changing its value" + "print rename_subscript_param_b before changing its value" set bp_location [gdb_get_line_number "Do_Nothing" ${testdir}/pkg.adb] gdb_test "break pkg.adb:$bp_location" \ @@ -39,6 +39,6 @@ gdb_test "cont" \ "Breakpoint \[0-9\]+, pkg.flip \\(.*" \ "Continuing to breakpoint on call to Do_Nothing" -gdb_test "print b" \ +gdb_test "print rename_subscript_param_b" \ " = true" \ - "print b before changing its value" + "print rename_subscript_param_b after changing its value" diff --git a/gdb/testsuite/gdb.ada/rename_subscript_param/pkg.adb b/gdb/testsuite/gdb.ada/rename_subscript_param/pkg.adb index cdbcd36..c03fe16 100644 --- a/gdb/testsuite/gdb.ada/rename_subscript_param/pkg.adb +++ b/gdb/testsuite/gdb.ada/rename_subscript_param/pkg.adb @@ -21,9 +21,9 @@ package body Pkg is -- Create a new scope to check that the scope match algorithm is fine in -- the front-end. declare - B : Boolean renames Bits (I); + Rename_Subscript_Param_B : Boolean renames Bits (I); begin - B := not B; -- BREAK + Rename_Subscript_Param_B := not Rename_Subscript_Param_B; -- BREAK Do_Nothing (Bits'Address); end; end Flip; |