diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada')
33 files changed, 0 insertions, 33 deletions
diff --git a/gdb/testsuite/gdb.ada/access_tagged_param.exp b/gdb/testsuite/gdb.ada/access_tagged_param.exp index 2103e4b5390..4676cbdddc3 100644 --- a/gdb/testsuite/gdb.ada/access_tagged_param.exp +++ b/gdb/testsuite/gdb.ada/access_tagged_param.exp @@ -29,7 +29,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } clean_restart ${testfile} if {![runto "foo"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/addr_arith.exp b/gdb/testsuite/gdb.ada/addr_arith.exp index 4e3059fcfae..82d2e6744f5 100644 --- a/gdb/testsuite/gdb.ada/addr_arith.exp +++ b/gdb/testsuite/gdb.ada/addr_arith.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo_na07_019.adb] if {![runto "foo_na07_019.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp index ac720ffa4d3..39e12c6160a 100644 --- a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp +++ b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "BREAK" ${testdir}/enum_with_gap_main.adb] if {![runto "enum_with_gap_main.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/arr_arr.exp b/gdb/testsuite/gdb.ada/arr_arr.exp index 488eb006789..8358aaec52c 100644 --- a/gdb/testsuite/gdb.ada/arr_arr.exp +++ b/gdb/testsuite/gdb.ada/arr_arr.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp index 3a6785fb095..ed1915fa098 100644 --- a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp +++ b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp @@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} { set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo_q418_043.adb] if {![runto "foo_q418_043.adb:$bp_location"]} { - perror "Couldn't run ${testfile}-${scenario}" return } diff --git a/gdb/testsuite/gdb.ada/array_bounds.exp b/gdb/testsuite/gdb.ada/array_bounds.exp index b68e448747e..0a897d06b58 100644 --- a/gdb/testsuite/gdb.ada/array_bounds.exp +++ b/gdb/testsuite/gdb.ada/array_bounds.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/bar.adb] if {![runto "bar.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp index d8429c4413b..eefd21ae376 100644 --- a/gdb/testsuite/gdb.ada/arrayptr.exp +++ b/gdb/testsuite/gdb.ada/arrayptr.exp @@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} { set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}-${scenario}" return } diff --git a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp index d6eb9f5534c..98f75f76fe1 100644 --- a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp +++ b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp @@ -47,7 +47,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $options] != "" } { clean_restart ${testfile} if {![runto "foo_h731_021"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/call_pn.exp b/gdb/testsuite/gdb.ada/call_pn.exp index c4f81245f92..758b64abc35 100644 --- a/gdb/testsuite/gdb.ada/call_pn.exp +++ b/gdb/testsuite/gdb.ada/call_pn.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/convvar_comp.exp b/gdb/testsuite/gdb.ada/convvar_comp.exp index 6908bc2da4f..366ac60d7c8 100644 --- a/gdb/testsuite/gdb.ada/convvar_comp.exp +++ b/gdb/testsuite/gdb.ada/convvar_comp.exp @@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} if {![runto "break_me"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/disc_arr_bound.exp b/gdb/testsuite/gdb.ada/disc_arr_bound.exp index 8cbfe5d3276..e5155f33c34 100644 --- a/gdb/testsuite/gdb.ada/disc_arr_bound.exp +++ b/gdb/testsuite/gdb.ada/disc_arr_bound.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo_n612_026.adb] if {![runto "foo_n612_026.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/discrete-char.exp b/gdb/testsuite/gdb.ada/discrete-char.exp index 1d380e4d597..1896252d099 100644 --- a/gdb/testsuite/gdb.ada/discrete-char.exp +++ b/gdb/testsuite/gdb.ada/discrete-char.exp @@ -29,7 +29,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/main.adb] if {![runto "main.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/dot_all.exp b/gdb/testsuite/gdb.ada/dot_all.exp index 6064a7d505b..0b0eba53c29 100644 --- a/gdb/testsuite/gdb.ada/dot_all.exp +++ b/gdb/testsuite/gdb.ada/dot_all.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/formatted_ref.exp b/gdb/testsuite/gdb.ada/formatted_ref.exp index 19a32658d98..1d780cc1b0c 100644 --- a/gdb/testsuite/gdb.ada/formatted_ref.exp +++ b/gdb/testsuite/gdb.ada/formatted_ref.exp @@ -44,7 +44,6 @@ proc get_address { var } { return $expect_out(1,string) } } - perror "couldn't find address of $var" return "" } diff --git a/gdb/testsuite/gdb.ada/frame_args.exp b/gdb/testsuite/gdb.ada/frame_args.exp index 9961780ad39..f3fa41f7981 100644 --- a/gdb/testsuite/gdb.ada/frame_args.exp +++ b/gdb/testsuite/gdb.ada/frame_args.exp @@ -31,7 +31,6 @@ set eol "\[\r\n\]+" set sp "\[ \t\]*" if {![runto break_me]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/fun_in_declare.exp b/gdb/testsuite/gdb.ada/fun_in_declare.exp index 4b30a777895..a0972441e98 100644 --- a/gdb/testsuite/gdb.ada/fun_in_declare.exp +++ b/gdb/testsuite/gdb.ada/fun_in_declare.exp @@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} if {![runto_main]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/ghost.exp b/gdb/testsuite/gdb.ada/ghost.exp index 93ab507e337..412a2607683 100644 --- a/gdb/testsuite/gdb.ada/ghost.exp +++ b/gdb/testsuite/gdb.ada/ghost.exp @@ -28,7 +28,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/main.adb] if {![runto "main.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp index d512ef42651..4b3277b9061 100644 --- a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp +++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/local-enum.exp b/gdb/testsuite/gdb.ada/local-enum.exp index 908ee73b899..409ea35b162 100644 --- a/gdb/testsuite/gdb.ada/local-enum.exp +++ b/gdb/testsuite/gdb.ada/local-enum.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/local.adb] if {![runto "local.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/minsyms.exp b/gdb/testsuite/gdb.ada/minsyms.exp index 7ce2d814475..4e974392a79 100644 --- a/gdb/testsuite/gdb.ada/minsyms.exp +++ b/gdb/testsuite/gdb.ada/minsyms.exp @@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable ""] != "" } { clean_restart ${testfile} if {![runto "_ada_foo_qb07_057"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/mod_from_name.exp b/gdb/testsuite/gdb.ada/mod_from_name.exp index 8eb61565ff4..7ee7d8c467e 100644 --- a/gdb/testsuite/gdb.ada/mod_from_name.exp +++ b/gdb/testsuite/gdb.ada/mod_from_name.exp @@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} { set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}-${scenario}" return } diff --git a/gdb/testsuite/gdb.ada/optim_drec.exp b/gdb/testsuite/gdb.ada/optim_drec.exp index 823156cd804..51ad14d5a50 100644 --- a/gdb/testsuite/gdb.ada/optim_drec.exp +++ b/gdb/testsuite/gdb.ada/optim_drec.exp @@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} if {![runto "foo"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/rec_comp.exp b/gdb/testsuite/gdb.ada/rec_comp.exp index 342fe3a0e07..0c155bc6499 100644 --- a/gdb/testsuite/gdb.ada/rec_comp.exp +++ b/gdb/testsuite/gdb.ada/rec_comp.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/bar_o203_012.adb] if {![runto "bar_o203_012.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/rec_return.exp index 723244fc576..d06fae4c71a 100644 --- a/gdb/testsuite/gdb.ada/rec_return.exp +++ b/gdb/testsuite/gdb.ada/rec_return.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/ref_param.exp b/gdb/testsuite/gdb.ada/ref_param.exp index 871e755ff39..6f72c91684a 100644 --- a/gdb/testsuite/gdb.ada/ref_param.exp +++ b/gdb/testsuite/gdb.ada/ref_param.exp @@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } clean_restart ${testfile} if {![runto pck.adb:20]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/scalar_storage.exp b/gdb/testsuite/gdb.ada/scalar_storage.exp index 106413e9528..bfb2faca6f3 100644 --- a/gdb/testsuite/gdb.ada/scalar_storage.exp +++ b/gdb/testsuite/gdb.ada/scalar_storage.exp @@ -30,7 +30,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/storage.adb] if {![runto "storage.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/set_wstr.exp b/gdb/testsuite/gdb.ada/set_wstr.exp index 97a683dd37a..6c19af39d99 100644 --- a/gdb/testsuite/gdb.ada/set_wstr.exp +++ b/gdb/testsuite/gdb.ada/set_wstr.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/a.adb] if {![runto "a.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/small_reg_param.exp b/gdb/testsuite/gdb.ada/small_reg_param.exp index cb3c3bf4b4d..cac9a5a6184 100644 --- a/gdb/testsuite/gdb.ada/small_reg_param.exp +++ b/gdb/testsuite/gdb.ada/small_reg_param.exp @@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug optimize=- clean_restart ${testfile} if {![runto_main]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/str_uninit.exp b/gdb/testsuite/gdb.ada/str_uninit.exp index 96862909e87..30c7bfc34aa 100644 --- a/gdb/testsuite/gdb.ada/str_uninit.exp +++ b/gdb/testsuite/gdb.ada/str_uninit.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/parse.adb] if {![runto "parse.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/taft_type.exp b/gdb/testsuite/gdb.ada/taft_type.exp index a791cd179a6..e9210cd9448 100644 --- a/gdb/testsuite/gdb.ada/taft_type.exp +++ b/gdb/testsuite/gdb.ada/taft_type.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/p.adb] if {![runto "p.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/varsize_limit.exp b/gdb/testsuite/gdb.ada/varsize_limit.exp index af5a394f38b..45ab865ff3d 100644 --- a/gdb/testsuite/gdb.ada/varsize_limit.exp +++ b/gdb/testsuite/gdb.ada/varsize_limit.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/vsizelim.adb] if {![runto "vsizelim.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/whatis_array_val.exp b/gdb/testsuite/gdb.ada/whatis_array_val.exp index eadd6ed2da2..27febfcea54 100644 --- a/gdb/testsuite/gdb.ada/whatis_array_val.exp +++ b/gdb/testsuite/gdb.ada/whatis_array_val.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } diff --git a/gdb/testsuite/gdb.ada/widewide.exp b/gdb/testsuite/gdb.ada/widewide.exp index 34f5967ec04..9db40481657 100644 --- a/gdb/testsuite/gdb.ada/widewide.exp +++ b/gdb/testsuite/gdb.ada/widewide.exp @@ -27,7 +27,6 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] if {![runto "foo.adb:$bp_location"]} { - perror "Couldn't run ${testfile}" return } |