diff options
145 files changed, 436 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index d5e6bba..73d9de9 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,4 +1,151 @@ -2020-08-12 Gary Benson <gbenson@redhat.com> +2020-08-13 Pedro Alves <pedro@palves.net> + + * gdb.ada/access_tagged_param.exp: Check skip_ada_tests. + * gdb.ada/access_to_packed_array.exp: Likewise. + * gdb.ada/access_to_unbounded_array.exp: Likewise. + * gdb.ada/addr_arith.exp: Likewise. + * gdb.ada/arr_acc_idx_w_gap.exp: Likewise. + * gdb.ada/arr_arr.exp: Likewise. + * gdb.ada/arr_enum_idx_w_gap.exp: Likewise. + * gdb.ada/array_bounds.exp: Likewise. + * gdb.ada/array_of_variable_length.exp: Likewise. + * gdb.ada/array_ptr_renaming.exp: Likewise. + * gdb.ada/array_subscript_addr.exp: Likewise. + * gdb.ada/arraydim.exp: Likewise. + * gdb.ada/arrayparam.exp: Likewise. + * gdb.ada/arrayptr.exp: Likewise. + * gdb.ada/assign_1.exp: Likewise. + * gdb.ada/assign_arr.exp: Likewise. + * gdb.ada/atomic_enum.exp: Likewise. + * gdb.ada/attr_ref_and_charlit.exp: Likewise. + * gdb.ada/bad-task-bp-keyword.exp: Likewise. + * gdb.ada/bias.exp: Likewise. + * gdb.ada/boolean_expr.exp: Likewise. + * gdb.ada/bp_c_mixed_case.exp: Likewise. + * gdb.ada/bp_enum_homonym.exp: Likewise. + * gdb.ada/bp_inlined_func.exp: Likewise. + * gdb.ada/bp_on_var.exp: Likewise. + * gdb.ada/bp_range_type.exp: Likewise. + * gdb.ada/bp_reset.exp: Likewise. + * gdb.ada/call_pn.exp: Likewise. + * gdb.ada/catch_assert_if.exp: Likewise. + * gdb.ada/catch_ex.exp: Likewise. + * gdb.ada/catch_ex_std.exp: Likewise. + * gdb.ada/char_enum.exp: Likewise. + * gdb.ada/char_param.exp: Likewise. + * gdb.ada/complete.exp: Likewise. + * gdb.ada/cond_lang.exp: Likewise. + * gdb.ada/convvar_comp.exp: Likewise. + * gdb.ada/dgopt.exp: Likewise. + * gdb.ada/disc_arr_bound.exp: Likewise. + * gdb.ada/display_nested.exp: Likewise. + * gdb.ada/dot_all.exp: Likewise. + * gdb.ada/dyn_loc.exp: Likewise. + * gdb.ada/dyn_stride.exp: Likewise. + * gdb.ada/excep_handle.exp: Likewise. + * gdb.ada/expr_delims.exp: Likewise. + * gdb.ada/expr_with_funcall.exp: Likewise. + * gdb.ada/exprs.exp: Likewise. + * gdb.ada/fin_fun_out.exp: Likewise. + * gdb.ada/fixed_cmp.exp: Likewise. + * gdb.ada/formatted_ref.exp: Likewise. + * gdb.ada/frame_arg_lang.exp: Likewise. + * gdb.ada/frame_args.exp: Likewise. + * gdb.ada/fullname_bp.exp: Likewise. + * gdb.ada/fun_addr.exp: Likewise. + * gdb.ada/fun_in_declare.exp: Likewise. + * gdb.ada/fun_overload_menu.exp: Likewise. + * gdb.ada/fun_renaming.exp: Likewise. + * gdb.ada/funcall_char.exp: Likewise. + * gdb.ada/funcall_param.exp: Likewise. + * gdb.ada/funcall_ptr.exp: Likewise. + * gdb.ada/funcall_ref.exp: Likewise. + * gdb.ada/homonym.exp: Likewise. + * gdb.ada/info_addr_mixed_case.exp: Likewise. + * gdb.ada/info_auto_lang.exp: Likewise. + * gdb.ada/info_exc.exp: Likewise. + * gdb.ada/info_types.exp: Likewise. + * gdb.ada/int_deref.exp: Likewise. + * gdb.ada/interface.exp: Likewise. + * gdb.ada/iwide.exp: Likewise. + * gdb.ada/lang_switch.exp: Likewise. + * gdb.ada/length_cond.exp: Likewise. + * gdb.ada/maint_with_ada.exp: Likewise. + * gdb.ada/mi_catch_assert.exp: Likewise. + * gdb.ada/mi_catch_ex.exp: Likewise. + * gdb.ada/mi_catch_ex_hand.exp: Likewise. + * gdb.ada/mi_dyn_arr.exp: Likewise. + * gdb.ada/mi_ex_cond.exp: Likewise. + * gdb.ada/mi_exc_info.exp: Likewise. + * gdb.ada/mi_interface.exp: Likewise. + * gdb.ada/mi_prot.exp: Likewise. + * gdb.ada/mi_ref_changeable.exp: Likewise. + * gdb.ada/mi_string_access.exp: Likewise. + * gdb.ada/mi_task_arg.exp: Likewise. + * gdb.ada/mi_task_info.exp: Likewise. + * gdb.ada/mi_var_array.exp: Likewise. + * gdb.ada/mi_var_union.exp: Likewise. + * gdb.ada/mi_variant.exp: Likewise. + * gdb.ada/minsyms.exp: Likewise. + * gdb.ada/mod_from_name.exp: Likewise. + * gdb.ada/nested.exp: Likewise. + * gdb.ada/null_array.exp: Likewise. + * gdb.ada/optim_drec.exp: Likewise. + * gdb.ada/out_of_line_in_inlined.exp: Likewise. + * gdb.ada/packed_array_assign.exp: Likewise. + * gdb.ada/packed_tagged.exp: Likewise. + * gdb.ada/pp-rec-component.exp: Likewise. + * gdb.ada/print_chars.exp: Likewise. + * gdb.ada/print_pc.exp: Likewise. + * gdb.ada/ptr_typedef.exp: Likewise. + * gdb.ada/ptype_arith_binop.exp: Likewise. + * gdb.ada/ptype_array.exp: Likewise. + * gdb.ada/ptype_field.exp: Likewise. + * gdb.ada/ptype_tagged_param.exp: Likewise. + * gdb.ada/ptype_union.exp: Likewise. + * gdb.ada/py_range.exp: Likewise. + * gdb.ada/py_taft.exp: Likewise. + * gdb.ada/rdv_wait.exp: Likewise. + * gdb.ada/rec_comp.exp: Likewise. + * gdb.ada/rec_return.exp: Likewise. + * gdb.ada/ref_param.exp: Likewise. + * gdb.ada/ref_tick_size.exp: Likewise. + * gdb.ada/rename_subscript_param.exp: Likewise. + * gdb.ada/repeat_dyn.exp: Likewise. + * gdb.ada/same_component_name.exp: Likewise. + * gdb.ada/same_enum.exp: Likewise. + * gdb.ada/scalar_storage.exp: Likewise. + * gdb.ada/set_wstr.exp: Likewise. + * gdb.ada/small_reg_param.exp: Likewise. + * gdb.ada/str_binop_equal.exp: Likewise. + * gdb.ada/str_ref_cmp.exp: Likewise. + * gdb.ada/str_uninit.exp: Likewise. + * gdb.ada/sub_variant.exp: Likewise. + * gdb.ada/sym_print_name.exp: Likewise. + * gdb.ada/taft_type.exp: Likewise. + * gdb.ada/tagged.exp: Likewise. + * gdb.ada/tagged_access.exp: Likewise. + * gdb.ada/task_bp.exp: Likewise. + * gdb.ada/task_switch_in_core.exp: Likewise. + * gdb.ada/tasks.exp: Likewise. + * gdb.ada/tick_last_segv.exp: Likewise. + * gdb.ada/tick_length_array_enum_idx.exp: Likewise. + * gdb.ada/type_coercion.exp: Likewise. + * gdb.ada/unc_arr_ptr_in_var_rec.exp: Likewise. + * gdb.ada/unchecked_union.exp: Likewise. + * gdb.ada/uninitialized_vars.exp: Likewise. + * gdb.ada/var_arr_attrs.exp: Likewise. + * gdb.ada/var_arr_typedef.exp: Likewise. + * gdb.ada/var_rec_arr.exp: Likewise. + * gdb.ada/variant-record.exp: Likewise. + * gdb.ada/variant.exp: Likewise. + * gdb.ada/variant_record_packed_array.exp: Likewise. + * gdb.ada/varsize_limit.exp: Likewise. + * gdb.ada/whatis_array_val.exp: Likewise. + * gdb.ada/widewide.exp: Likewise. + * gdb.ada/win_fu_syms.exp: Likewise. + +2020-08-12 Gary Benson <gbenson@redhat.com> * gdb.dwarf2/dw2-op-out-param.S (.Ltext5): Fix duplicate label. diff --git a/gdb/testsuite/gdb.ada/access_tagged_param.exp b/gdb/testsuite/gdb.ada/access_tagged_param.exp index b4c3a22..f5b9bef 100644 --- a/gdb/testsuite/gdb.ada/access_tagged_param.exp +++ b/gdb/testsuite/gdb.ada/access_tagged_param.exp @@ -18,6 +18,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/access_to_packed_array.exp b/gdb/testsuite/gdb.ada/access_to_packed_array.exp index 0e1532b..ee11de0 100644 --- a/gdb/testsuite/gdb.ada/access_to_packed_array.exp +++ b/gdb/testsuite/gdb.ada/access_to_packed_array.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/access_to_unbounded_array.exp b/gdb/testsuite/gdb.ada/access_to_unbounded_array.exp index cc13657..9830ef7 100644 --- a/gdb/testsuite/gdb.ada/access_to_unbounded_array.exp +++ b/gdb/testsuite/gdb.ada/access_to_unbounded_array.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/addr_arith.exp b/gdb/testsuite/gdb.ada/addr_arith.exp index 85656bf..7d82aa1 100644 --- a/gdb/testsuite/gdb.ada/addr_arith.exp +++ b/gdb/testsuite/gdb.ada/addr_arith.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_na07_019 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { 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 06eebb0..8a57a5a 100644 --- a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp +++ b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile enum_with_gap_main if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/arr_arr.exp b/gdb/testsuite/gdb.ada/arr_arr.exp index 52453e9..0bcbcf9 100644 --- a/gdb/testsuite/gdb.ada/arr_arr.exp +++ b/gdb/testsuite/gdb.ada/arr_arr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { 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 2de066e..f5936df 100644 --- a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp +++ b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_q418_043 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/array_bounds.exp b/gdb/testsuite/gdb.ada/array_bounds.exp index 98d2a1c..7d561e0 100644 --- a/gdb/testsuite/gdb.ada/array_bounds.exp +++ b/gdb/testsuite/gdb.ada/array_bounds.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bar if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/array_of_variable_length.exp b/gdb/testsuite/gdb.ada/array_of_variable_length.exp index f7b254a..9eb6777 100644 --- a/gdb/testsuite/gdb.ada/array_of_variable_length.exp +++ b/gdb/testsuite/gdb.ada/array_of_variable_length.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/array_ptr_renaming.exp b/gdb/testsuite/gdb.ada/array_ptr_renaming.exp index e568b60..4355508 100644 --- a/gdb/testsuite/gdb.ada/array_ptr_renaming.exp +++ b/gdb/testsuite/gdb.ada/array_ptr_renaming.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/array_subscript_addr.exp b/gdb/testsuite/gdb.ada/array_subscript_addr.exp index 4f6a4dd..905d931 100644 --- a/gdb/testsuite/gdb.ada/array_subscript_addr.exp +++ b/gdb/testsuite/gdb.ada/array_subscript_addr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile p if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/arraydim.exp b/gdb/testsuite/gdb.ada/arraydim.exp index 7a5e8c3..dabc6c2 100644 --- a/gdb/testsuite/gdb.ada/arraydim.exp +++ b/gdb/testsuite/gdb.ada/arraydim.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo set cfile "inc" diff --git a/gdb/testsuite/gdb.ada/arrayparam.exp b/gdb/testsuite/gdb.ada/arrayparam.exp index 717d36e..dc36499 100644 --- a/gdb/testsuite/gdb.ada/arrayparam.exp +++ b/gdb/testsuite/gdb.ada/arrayparam.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp index ed91fe0..94a5d87 100644 --- a/gdb/testsuite/gdb.ada/arrayptr.exp +++ b/gdb/testsuite/gdb.ada/arrayptr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/assign_1.exp b/gdb/testsuite/gdb.ada/assign_1.exp index e7ec4e1..abbfd6d 100644 --- a/gdb/testsuite/gdb.ada/assign_1.exp +++ b/gdb/testsuite/gdb.ada/assign_1.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir diff --git a/gdb/testsuite/gdb.ada/assign_arr.exp b/gdb/testsuite/gdb.ada/assign_arr.exp index 75b851a..723c06a 100644 --- a/gdb/testsuite/gdb.ada/assign_arr.exp +++ b/gdb/testsuite/gdb.ada/assign_arr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile main_p324_051 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/atomic_enum.exp b/gdb/testsuite/gdb.ada/atomic_enum.exp index 86890b0..0e9df76 100644 --- a/gdb/testsuite/gdb.ada/atomic_enum.exp +++ b/gdb/testsuite/gdb.ada/atomic_enum.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/attr_ref_and_charlit.exp b/gdb/testsuite/gdb.ada/attr_ref_and_charlit.exp index bbe7d5e..da65b2f 100644 --- a/gdb/testsuite/gdb.ada/attr_ref_and_charlit.exp +++ b/gdb/testsuite/gdb.ada/attr_ref_and_charlit.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile "foo" if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/bad-task-bp-keyword.exp b/gdb/testsuite/gdb.ada/bad-task-bp-keyword.exp index 619eb99..31db417 100644 --- a/gdb/testsuite/gdb.ada/bad-task-bp-keyword.exp +++ b/gdb/testsuite/gdb.ada/bad-task-bp-keyword.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/bias.exp b/gdb/testsuite/gdb.ada/bias.exp index e1c7dcd..c7a7850 100644 --- a/gdb/testsuite/gdb.ada/bias.exp +++ b/gdb/testsuite/gdb.ada/bias.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bias if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \ diff --git a/gdb/testsuite/gdb.ada/boolean_expr.exp b/gdb/testsuite/gdb.ada/boolean_expr.exp index bb23fed..9d363cf 100644 --- a/gdb/testsuite/gdb.ada/boolean_expr.exp +++ b/gdb/testsuite/gdb.ada/boolean_expr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir diff --git a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp index b1c7cb2..16fff99 100644 --- a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp +++ b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp @@ -20,6 +20,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_h731_021 set cfile "bar" diff --git a/gdb/testsuite/gdb.ada/bp_enum_homonym.exp b/gdb/testsuite/gdb.ada/bp_enum_homonym.exp index 17da469..1eb4cbd 100644 --- a/gdb/testsuite/gdb.ada/bp_enum_homonym.exp +++ b/gdb/testsuite/gdb.ada/bp_enum_homonym.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile p if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/bp_inlined_func.exp b/gdb/testsuite/gdb.ada/bp_inlined_func.exp index 9a125dc..58a2830 100644 --- a/gdb/testsuite/gdb.ada/bp_inlined_func.exp +++ b/gdb/testsuite/gdb.ada/bp_inlined_func.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/bp_on_var.exp b/gdb/testsuite/gdb.ada/bp_on_var.exp index a280490..8fad3c5 100644 --- a/gdb/testsuite/gdb.ada/bp_on_var.exp +++ b/gdb/testsuite/gdb.ada/bp_on_var.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/bp_range_type.exp b/gdb/testsuite/gdb.ada/bp_range_type.exp index 7caabe5..426d4ba 100644 --- a/gdb/testsuite/gdb.ada/bp_range_type.exp +++ b/gdb/testsuite/gdb.ada/bp_range_type.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/bp_reset.exp b/gdb/testsuite/gdb.ada/bp_reset.exp index fc1517d..039545c 100644 --- a/gdb/testsuite/gdb.ada/bp_reset.exp +++ b/gdb/testsuite/gdb.ada/bp_reset.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/call_pn.exp b/gdb/testsuite/gdb.ada/call_pn.exp index 7d07eba..7993e7a 100644 --- a/gdb/testsuite/gdb.ada/call_pn.exp +++ b/gdb/testsuite/gdb.ada/call_pn.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/catch_assert_if.exp b/gdb/testsuite/gdb.ada/catch_assert_if.exp index e820348..d4f7521 100644 --- a/gdb/testsuite/gdb.ada/catch_assert_if.exp +++ b/gdb/testsuite/gdb.ada/catch_assert_if.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bla if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp index 6891413..2bdd4b4 100644 --- a/gdb/testsuite/gdb.ada/catch_ex.exp +++ b/gdb/testsuite/gdb.ada/catch_ex.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/catch_ex_std.exp b/gdb/testsuite/gdb.ada/catch_ex_std.exp index 3fae340..c3339c3 100644 --- a/gdb/testsuite/gdb.ada/catch_ex_std.exp +++ b/gdb/testsuite/gdb.ada/catch_ex_std.exp @@ -19,6 +19,8 @@ if {[skip_shlib_tests]} { load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo set ofile ${binfile}.o diff --git a/gdb/testsuite/gdb.ada/char_enum.exp b/gdb/testsuite/gdb.ada/char_enum.exp index 8ed6d2a..14cec55 100644 --- a/gdb/testsuite/gdb.ada/char_enum.exp +++ b/gdb/testsuite/gdb.ada/char_enum.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/char_param.exp b/gdb/testsuite/gdb.ada/char_param.exp index f6cabe7..3d3ac65 100644 --- a/gdb/testsuite/gdb.ada/char_param.exp +++ b/gdb/testsuite/gdb.ada/char_param.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/complete.exp b/gdb/testsuite/gdb.ada/complete.exp index f2149da..7fbbb85 100644 --- a/gdb/testsuite/gdb.ada/complete.exp +++ b/gdb/testsuite/gdb.ada/complete.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/cond_lang.exp b/gdb/testsuite/gdb.ada/cond_lang.exp index c99f2f9..f2fbd92 100644 --- a/gdb/testsuite/gdb.ada/cond_lang.exp +++ b/gdb/testsuite/gdb.ada/cond_lang.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile a set cfile "foo" diff --git a/gdb/testsuite/gdb.ada/convvar_comp.exp b/gdb/testsuite/gdb.ada/convvar_comp.exp index 97b0d68..0d1c8fa 100644 --- a/gdb/testsuite/gdb.ada/convvar_comp.exp +++ b/gdb/testsuite/gdb.ada/convvar_comp.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile pb16_063 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/dgopt.exp b/gdb/testsuite/gdb.ada/dgopt.exp index 2f03d2a..b6ff4e7 100644 --- a/gdb/testsuite/gdb.ada/dgopt.exp +++ b/gdb/testsuite/gdb.ada/dgopt.exp @@ -17,6 +17,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile x if {[gdb_compile_ada "${srcfile}" "${binfile}" executable \ diff --git a/gdb/testsuite/gdb.ada/disc_arr_bound.exp b/gdb/testsuite/gdb.ada/disc_arr_bound.exp index 818b58d..1056563 100644 --- a/gdb/testsuite/gdb.ada/disc_arr_bound.exp +++ b/gdb/testsuite/gdb.ada/disc_arr_bound.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_n612_026 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/display_nested.exp b/gdb/testsuite/gdb.ada/display_nested.exp index 264400e..b0adf35 100644 --- a/gdb/testsuite/gdb.ada/display_nested.exp +++ b/gdb/testsuite/gdb.ada/display_nested.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} { diff --git a/gdb/testsuite/gdb.ada/dot_all.exp b/gdb/testsuite/gdb.ada/dot_all.exp index 45507f2..9808b72 100644 --- a/gdb/testsuite/gdb.ada/dot_all.exp +++ b/gdb/testsuite/gdb.ada/dot_all.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/dyn_loc.exp b/gdb/testsuite/gdb.ada/dyn_loc.exp index 65ae9d0..e828d28 100644 --- a/gdb/testsuite/gdb.ada/dyn_loc.exp +++ b/gdb/testsuite/gdb.ada/dyn_loc.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile p if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/dyn_stride.exp b/gdb/testsuite/gdb.ada/dyn_stride.exp index 55ec126..a1ec781 100644 --- a/gdb/testsuite/gdb.ada/dyn_stride.exp +++ b/gdb/testsuite/gdb.ada/dyn_stride.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/excep_handle.exp b/gdb/testsuite/gdb.ada/excep_handle.exp index bdbf793..7dc5275 100644 --- a/gdb/testsuite/gdb.ada/excep_handle.exp +++ b/gdb/testsuite/gdb.ada/excep_handle.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/expr_delims.exp b/gdb/testsuite/gdb.ada/expr_delims.exp index 507d7a4..727e17a 100644 --- a/gdb/testsuite/gdb.ada/expr_delims.exp +++ b/gdb/testsuite/gdb.ada/expr_delims.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/expr_with_funcall.exp b/gdb/testsuite/gdb.ada/expr_with_funcall.exp index 0e7161d..74ecd9a 100644 --- a/gdb/testsuite/gdb.ada/expr_with_funcall.exp +++ b/gdb/testsuite/gdb.ada/expr_with_funcall.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile expr_r821_013 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/exprs.exp b/gdb/testsuite/gdb.ada/exprs.exp index ca108ba..4ee8211 100644 --- a/gdb/testsuite/gdb.ada/exprs.exp +++ b/gdb/testsuite/gdb.ada/exprs.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile p if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/fin_fun_out.exp b/gdb/testsuite/gdb.ada/fin_fun_out.exp index c88ea03..a2a5b87 100644 --- a/gdb/testsuite/gdb.ada/fin_fun_out.exp +++ b/gdb/testsuite/gdb.ada/fin_fun_out.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_o525_013 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/fixed_cmp.exp b/gdb/testsuite/gdb.ada/fixed_cmp.exp index b7f59c8..38e41c4 100644 --- a/gdb/testsuite/gdb.ada/fixed_cmp.exp +++ b/gdb/testsuite/gdb.ada/fixed_cmp.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile fixed if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/formatted_ref.exp b/gdb/testsuite/gdb.ada/formatted_ref.exp index 8376513..f8dd690 100644 --- a/gdb/testsuite/gdb.ada/formatted_ref.exp +++ b/gdb/testsuite/gdb.ada/formatted_ref.exp @@ -26,6 +26,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile formatted_ref if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/frame_arg_lang.exp b/gdb/testsuite/gdb.ada/frame_arg_lang.exp index dc08d26..9662e35 100644 --- a/gdb/testsuite/gdb.ada/frame_arg_lang.exp +++ b/gdb/testsuite/gdb.ada/frame_arg_lang.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bla set cfile "foo" set csrcfile ${srcdir}/${subdir}/${testdir}/${cfile}.c diff --git a/gdb/testsuite/gdb.ada/frame_args.exp b/gdb/testsuite/gdb.ada/frame_args.exp index 1aa7636..6c9e987 100644 --- a/gdb/testsuite/gdb.ada/frame_args.exp +++ b/gdb/testsuite/gdb.ada/frame_args.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/fullname_bp.exp b/gdb/testsuite/gdb.ada/fullname_bp.exp index 71ba463..cfd9696 100644 --- a/gdb/testsuite/gdb.ada/fullname_bp.exp +++ b/gdb/testsuite/gdb.ada/fullname_bp.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/fun_addr.exp b/gdb/testsuite/gdb.ada/fun_addr.exp index b6325a3..a3b17d9 100644 --- a/gdb/testsuite/gdb.ada/fun_addr.exp +++ b/gdb/testsuite/gdb.ada/fun_addr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/fun_in_declare.exp b/gdb/testsuite/gdb.ada/fun_in_declare.exp index bdb883f..56b6d4c 100644 --- a/gdb/testsuite/gdb.ada/fun_in_declare.exp +++ b/gdb/testsuite/gdb.ada/fun_in_declare.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/fun_overload_menu.exp b/gdb/testsuite/gdb.ada/fun_overload_menu.exp index 47a25ef..78d7e07 100644 --- a/gdb/testsuite/gdb.ada/fun_overload_menu.exp +++ b/gdb/testsuite/gdb.ada/fun_overload_menu.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "$srcfile" "$binfile" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/fun_renaming.exp b/gdb/testsuite/gdb.ada/fun_renaming.exp index 0907c5a..991360b 100644 --- a/gdb/testsuite/gdb.ada/fun_renaming.exp +++ b/gdb/testsuite/gdb.ada/fun_renaming.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile fun_renaming if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/funcall_char.exp b/gdb/testsuite/gdb.ada/funcall_char.exp index 57729e7..c83833e 100644 --- a/gdb/testsuite/gdb.ada/funcall_char.exp +++ b/gdb/testsuite/gdb.ada/funcall_char.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/funcall_param.exp b/gdb/testsuite/gdb.ada/funcall_param.exp index 7e621f1..e14058d 100644 --- a/gdb/testsuite/gdb.ada/funcall_param.exp +++ b/gdb/testsuite/gdb.ada/funcall_param.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/funcall_ptr.exp b/gdb/testsuite/gdb.ada/funcall_ptr.exp index 55479d2..c2d65fb 100644 --- a/gdb/testsuite/gdb.ada/funcall_ptr.exp +++ b/gdb/testsuite/gdb.ada/funcall_ptr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "$srcfile" "$binfile" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/funcall_ref.exp b/gdb/testsuite/gdb.ada/funcall_ref.exp index b3dc093..1768c1d 100644 --- a/gdb/testsuite/gdb.ada/funcall_ref.exp +++ b/gdb/testsuite/gdb.ada/funcall_ref.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo # Note we don't test the "none" (no -fgnat-encodings option) scenario diff --git a/gdb/testsuite/gdb.ada/homonym.exp b/gdb/testsuite/gdb.ada/homonym.exp index eb9f216..9c88b75d 100644 --- a/gdb/testsuite/gdb.ada/homonym.exp +++ b/gdb/testsuite/gdb.ada/homonym.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile homonym_main if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp index 47353bd..50a7fc9 100644 --- a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp +++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/info_auto_lang.exp b/gdb/testsuite/gdb.ada/info_auto_lang.exp index 4876f3e..152a884 100644 --- a/gdb/testsuite/gdb.ada/info_auto_lang.exp +++ b/gdb/testsuite/gdb.ada/info_auto_lang.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + # This test verifies that the commands # info [functions|variables|types] # respect the 'set language auto|ada|c' setting, whatever the language diff --git a/gdb/testsuite/gdb.ada/info_exc.exp b/gdb/testsuite/gdb.ada/info_exc.exp index 1eb468c..b559fff 100644 --- a/gdb/testsuite/gdb.ada/info_exc.exp +++ b/gdb/testsuite/gdb.ada/info_exc.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/info_types.exp b/gdb/testsuite/gdb.ada/info_types.exp index a46cea1..34e2070 100644 --- a/gdb/testsuite/gdb.ada/info_types.exp +++ b/gdb/testsuite/gdb.ada/info_types.exp @@ -13,6 +13,8 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. +if { [skip_ada_tests] } { return -1 } + standard_testfile .c if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } { diff --git a/gdb/testsuite/gdb.ada/int_deref.exp b/gdb/testsuite/gdb.ada/int_deref.exp index 34b2333..4e8cba9 100644 --- a/gdb/testsuite/gdb.ada/int_deref.exp +++ b/gdb/testsuite/gdb.ada/int_deref.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/interface.exp b/gdb/testsuite/gdb.ada/interface.exp index 23e59da..305cb91 100644 --- a/gdb/testsuite/gdb.ada/interface.exp +++ b/gdb/testsuite/gdb.ada/interface.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/iwide.exp b/gdb/testsuite/gdb.ada/iwide.exp index 45c1b2a..19930fb 100644 --- a/gdb/testsuite/gdb.ada/iwide.exp +++ b/gdb/testsuite/gdb.ada/iwide.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile p if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/lang_switch.exp b/gdb/testsuite/gdb.ada/lang_switch.exp index 7d9bd61..8db6804 100644 --- a/gdb/testsuite/gdb.ada/lang_switch.exp +++ b/gdb/testsuite/gdb.ada/lang_switch.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile lang_switch set cfile "foo" set csrcfile ${srcdir}/${subdir}/${testdir}/${cfile}.c diff --git a/gdb/testsuite/gdb.ada/length_cond.exp b/gdb/testsuite/gdb.ada/length_cond.exp index a030a83..f4a9994 100644 --- a/gdb/testsuite/gdb.ada/length_cond.exp +++ b/gdb/testsuite/gdb.ada/length_cond.exp @@ -18,6 +18,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile length_cond if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != "" } { diff --git a/gdb/testsuite/gdb.ada/maint_with_ada.exp b/gdb/testsuite/gdb.ada/maint_with_ada.exp index a3ef72c..33092b7 100644 --- a/gdb/testsuite/gdb.ada/maint_with_ada.exp +++ b/gdb/testsuite/gdb.ada/maint_with_ada.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile var_arr_typedef if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_catch_assert.exp b/gdb/testsuite/gdb.ada/mi_catch_assert.exp index 82cc7c2..30543e5 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_assert.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_assert.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bla if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex.exp b/gdb/testsuite/gdb.ada/mi_catch_ex.exp index 4b3e4f6..63c6984 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_ex.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_ex.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp b/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp index 59c8a10..06e4666 100644 --- a/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp +++ b/gdb/testsuite/gdb.ada/mi_catch_ex_hand.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_dyn_arr.exp b/gdb/testsuite/gdb.ada/mi_dyn_arr.exp index 34506ad..5c8b986 100644 --- a/gdb/testsuite/gdb.ada/mi_dyn_arr.exp +++ b/gdb/testsuite/gdb.ada/mi_dyn_arr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_ex_cond.exp b/gdb/testsuite/gdb.ada/mi_ex_cond.exp index 4c7215f..95b651e 100644 --- a/gdb/testsuite/gdb.ada/mi_ex_cond.exp +++ b/gdb/testsuite/gdb.ada/mi_ex_cond.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-bargs additional_flags=-static additional_flags=-margs ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_exc_info.exp b/gdb/testsuite/gdb.ada/mi_exc_info.exp index b2a43b1..eeb8247 100644 --- a/gdb/testsuite/gdb.ada/mi_exc_info.exp +++ b/gdb/testsuite/gdb.ada/mi_exc_info.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_interface.exp b/gdb/testsuite/gdb.ada/mi_interface.exp index e164777..f948237 100644 --- a/gdb/testsuite/gdb.ada/mi_interface.exp +++ b/gdb/testsuite/gdb.ada/mi_interface.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat12 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_prot.exp b/gdb/testsuite/gdb.ada/mi_prot.exp index f3b5b9c..fb4ca8d 100644 --- a/gdb/testsuite/gdb.ada/mi_prot.exp +++ b/gdb/testsuite/gdb.ada/mi_prot.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + if { ![gnatmake_version_at_least 8] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/mi_ref_changeable.exp b/gdb/testsuite/gdb.ada/mi_ref_changeable.exp index 92af591..71f26c0 100644 --- a/gdb/testsuite/gdb.ada/mi_ref_changeable.exp +++ b/gdb/testsuite/gdb.ada/mi_ref_changeable.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_rb20_056 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_string_access.exp b/gdb/testsuite/gdb.ada/mi_string_access.exp index f825cdb..5e07f1e 100644 --- a/gdb/testsuite/gdb.ada/mi_string_access.exp +++ b/gdb/testsuite/gdb.ada/mi_string_access.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bar if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_task_arg.exp b/gdb/testsuite/gdb.ada/mi_task_arg.exp index 7c119a4..2a4038d 100644 --- a/gdb/testsuite/gdb.ada/mi_task_arg.exp +++ b/gdb/testsuite/gdb.ada/mi_task_arg.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile task_switch if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_task_info.exp b/gdb/testsuite/gdb.ada/mi_task_info.exp index 22636e0..c67599e 100644 --- a/gdb/testsuite/gdb.ada/mi_task_info.exp +++ b/gdb/testsuite/gdb.ada/mi_task_info.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile task_switch if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/mi_var_array.exp b/gdb/testsuite/gdb.ada/mi_var_array.exp index 646ebd1..fdc2249 100644 --- a/gdb/testsuite/gdb.ada/mi_var_array.exp +++ b/gdb/testsuite/gdb.ada/mi_var_array.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bar load_lib mi-support.exp diff --git a/gdb/testsuite/gdb.ada/mi_var_union.exp b/gdb/testsuite/gdb.ada/mi_var_union.exp index 7619d86..f950855 100644 --- a/gdb/testsuite/gdb.ada/mi_var_union.exp +++ b/gdb/testsuite/gdb.ada/mi_var_union.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bar load_lib mi-support.exp diff --git a/gdb/testsuite/gdb.ada/mi_variant.exp b/gdb/testsuite/gdb.ada/mi_variant.exp index ac9ece7..01c6720 100644 --- a/gdb/testsuite/gdb.ada/mi_variant.exp +++ b/gdb/testsuite/gdb.ada/mi_variant.exp @@ -16,6 +16,8 @@ load_lib "ada.exp" load_lib "gdb-python.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile pkg load_lib mi-support.exp diff --git a/gdb/testsuite/gdb.ada/minsyms.exp b/gdb/testsuite/gdb.ada/minsyms.exp index 1bed2e4..5ee9ad2 100644 --- a/gdb/testsuite/gdb.ada/minsyms.exp +++ b/gdb/testsuite/gdb.ada/minsyms.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_qb07_057 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable ""] != "" } { diff --git a/gdb/testsuite/gdb.ada/mod_from_name.exp b/gdb/testsuite/gdb.ada/mod_from_name.exp index 4c9fd6f..dce0f3a 100644 --- a/gdb/testsuite/gdb.ada/mod_from_name.exp +++ b/gdb/testsuite/gdb.ada/mod_from_name.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/nested.exp b/gdb/testsuite/gdb.ada/nested.exp index f4298fa..ea4bb4d 100644 --- a/gdb/testsuite/gdb.ada/nested.exp +++ b/gdb/testsuite/gdb.ada/nested.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile hello if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/null_array.exp b/gdb/testsuite/gdb.ada/null_array.exp index ce7e496..0d8414e 100644 --- a/gdb/testsuite/gdb.ada/null_array.exp +++ b/gdb/testsuite/gdb.ada/null_array.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/optim_drec.exp b/gdb/testsuite/gdb.ada/optim_drec.exp index 584c12a..5ab8ddf 100644 --- a/gdb/testsuite/gdb.ada/optim_drec.exp +++ b/gdb/testsuite/gdb.ada/optim_drec.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/out_of_line_in_inlined.exp b/gdb/testsuite/gdb.ada/out_of_line_in_inlined.exp index 141b7d8..684a369 100644 --- a/gdb/testsuite/gdb.ada/out_of_line_in_inlined.exp +++ b/gdb/testsuite/gdb.ada/out_of_line_in_inlined.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_o224_021 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug optimize=-O2}] != ""} { diff --git a/gdb/testsuite/gdb.ada/packed_array_assign.exp b/gdb/testsuite/gdb.ada/packed_array_assign.exp index 3c49099..fb9fe1f 100644 --- a/gdb/testsuite/gdb.ada/packed_array_assign.exp +++ b/gdb/testsuite/gdb.ada/packed_array_assign.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile tester if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/packed_tagged.exp b/gdb/testsuite/gdb.ada/packed_tagged.exp index ede5ca5..b86d113 100644 --- a/gdb/testsuite/gdb.ada/packed_tagged.exp +++ b/gdb/testsuite/gdb.ada/packed_tagged.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile comp_bug # Note we don't test the "none" (no -fgnat-encodings option) scenario diff --git a/gdb/testsuite/gdb.ada/pp-rec-component.exp b/gdb/testsuite/gdb.ada/pp-rec-component.exp index a7b2e3a..a51ff2c 100644 --- a/gdb/testsuite/gdb.ada/pp-rec-component.exp +++ b/gdb/testsuite/gdb.ada/pp-rec-component.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/print_chars.exp b/gdb/testsuite/gdb.ada/print_chars.exp index 17c1348..3fa28f5 100644 --- a/gdb/testsuite/gdb.ada/print_chars.exp +++ b/gdb/testsuite/gdb.ada/print_chars.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/print_pc.exp b/gdb/testsuite/gdb.ada/print_pc.exp index 0668805..7c1e04a 100644 --- a/gdb/testsuite/gdb.ada/print_pc.exp +++ b/gdb/testsuite/gdb.ada/print_pc.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile dummy start if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/ptr_typedef.exp b/gdb/testsuite/gdb.ada/ptr_typedef.exp index bc1a2bc..a826b6e 100644 --- a/gdb/testsuite/gdb.ada/ptr_typedef.exp +++ b/gdb/testsuite/gdb.ada/ptr_typedef.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/ptype_arith_binop.exp b/gdb/testsuite/gdb.ada/ptype_arith_binop.exp index 470b248..9812eb9 100644 --- a/gdb/testsuite/gdb.ada/ptype_arith_binop.exp +++ b/gdb/testsuite/gdb.ada/ptype_arith_binop.exp @@ -13,6 +13,8 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. +if { [skip_ada_tests] } { return -1 } + gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir diff --git a/gdb/testsuite/gdb.ada/ptype_array.exp b/gdb/testsuite/gdb.ada/ptype_array.exp index 27c259b..4e53287 100644 --- a/gdb/testsuite/gdb.ada/ptype_array.exp +++ b/gdb/testsuite/gdb.ada/ptype_array.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/ptype_field.exp b/gdb/testsuite/gdb.ada/ptype_field.exp index 8aa6e96..ac04c0c 100644 --- a/gdb/testsuite/gdb.ada/ptype_field.exp +++ b/gdb/testsuite/gdb.ada/ptype_field.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat05 ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/ptype_tagged_param.exp b/gdb/testsuite/gdb.ada/ptype_tagged_param.exp index ce1570d..988e472 100644 --- a/gdb/testsuite/gdb.ada/ptype_tagged_param.exp +++ b/gdb/testsuite/gdb.ada/ptype_tagged_param.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/ptype_union.exp b/gdb/testsuite/gdb.ada/ptype_union.exp index c85e5f4..c37ea3e 100644 --- a/gdb/testsuite/gdb.ada/ptype_union.exp +++ b/gdb/testsuite/gdb.ada/ptype_union.exp @@ -13,6 +13,8 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. +if { [skip_ada_tests] } { return -1 } + standard_testfile .c if {[prepare_for_testing "failed to prepare" ${testfile} ${srcfile}]} { diff --git a/gdb/testsuite/gdb.ada/py_range.exp b/gdb/testsuite/gdb.ada/py_range.exp index 521d853..52c9577 100644 --- a/gdb/testsuite/gdb.ada/py_range.exp +++ b/gdb/testsuite/gdb.ada/py_range.exp @@ -16,6 +16,8 @@ load_lib "ada.exp" load_lib gdb-python.exp +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/py_taft.exp b/gdb/testsuite/gdb.ada/py_taft.exp index 1181edb..7f49a73 100644 --- a/gdb/testsuite/gdb.ada/py_taft.exp +++ b/gdb/testsuite/gdb.ada/py_taft.exp @@ -16,6 +16,8 @@ load_lib "ada.exp" load_lib gdb-python.exp +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile main if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} { diff --git a/gdb/testsuite/gdb.ada/rdv_wait.exp b/gdb/testsuite/gdb.ada/rdv_wait.exp index 837edc8..83a5f95 100644 --- a/gdb/testsuite/gdb.ada/rdv_wait.exp +++ b/gdb/testsuite/gdb.ada/rdv_wait.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/rec_comp.exp b/gdb/testsuite/gdb.ada/rec_comp.exp index b457d04..4e41ad9 100644 --- a/gdb/testsuite/gdb.ada/rec_comp.exp +++ b/gdb/testsuite/gdb.ada/rec_comp.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile bar_o203_012 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/rec_return.exp index f2658c7..22f4aa7 100644 --- a/gdb/testsuite/gdb.ada/rec_return.exp +++ b/gdb/testsuite/gdb.ada/rec_return.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/ref_param.exp b/gdb/testsuite/gdb.ada/ref_param.exp index 4c378a5..1bdfaeb 100644 --- a/gdb/testsuite/gdb.ada/ref_param.exp +++ b/gdb/testsuite/gdb.ada/ref_param.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/ref_tick_size.exp b/gdb/testsuite/gdb.ada/ref_tick_size.exp index 5676b8e..8f901e2 100644 --- a/gdb/testsuite/gdb.ada/ref_tick_size.exp +++ b/gdb/testsuite/gdb.ada/ref_tick_size.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile p if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/rename_subscript_param.exp b/gdb/testsuite/gdb.ada/rename_subscript_param.exp index 9507678..be40608 100644 --- a/gdb/testsuite/gdb.ada/rename_subscript_param.exp +++ b/gdb/testsuite/gdb.ada/rename_subscript_param.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + if { ![gnatmake_version_at_least 8] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/repeat_dyn.exp b/gdb/testsuite/gdb.ada/repeat_dyn.exp index 4fbdc6b..702b10d 100644 --- a/gdb/testsuite/gdb.ada/repeat_dyn.exp +++ b/gdb/testsuite/gdb.ada/repeat_dyn.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_oc22_002 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/same_component_name.exp b/gdb/testsuite/gdb.ada/same_component_name.exp index 492549d..cb84604 100644 --- a/gdb/testsuite/gdb.ada/same_component_name.exp +++ b/gdb/testsuite/gdb.ada/same_component_name.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/same_enum.exp b/gdb/testsuite/gdb.ada/same_enum.exp index e634300..cd0899f 100644 --- a/gdb/testsuite/gdb.ada/same_enum.exp +++ b/gdb/testsuite/gdb.ada/same_enum.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile a if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/scalar_storage.exp b/gdb/testsuite/gdb.ada/scalar_storage.exp index 720fc9b..b5e634c 100644 --- a/gdb/testsuite/gdb.ada/scalar_storage.exp +++ b/gdb/testsuite/gdb.ada/scalar_storage.exp @@ -18,6 +18,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile storage if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/set_wstr.exp b/gdb/testsuite/gdb.ada/set_wstr.exp index edb5214..11f2f47 100644 --- a/gdb/testsuite/gdb.ada/set_wstr.exp +++ b/gdb/testsuite/gdb.ada/set_wstr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile a if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/small_reg_param.exp b/gdb/testsuite/gdb.ada/small_reg_param.exp index 2dc9a97..5737708 100644 --- a/gdb/testsuite/gdb.ada/small_reg_param.exp +++ b/gdb/testsuite/gdb.ada/small_reg_param.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug optimize=-O1]] != "" } { diff --git a/gdb/testsuite/gdb.ada/str_binop_equal.exp b/gdb/testsuite/gdb.ada/str_binop_equal.exp index 166afea..fea0b19 100644 --- a/gdb/testsuite/gdb.ada/str_binop_equal.exp +++ b/gdb/testsuite/gdb.ada/str_binop_equal.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_p211_061 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/str_ref_cmp.exp b/gdb/testsuite/gdb.ada/str_ref_cmp.exp index 9f034ef..b8299e2 100644 --- a/gdb/testsuite/gdb.ada/str_ref_cmp.exp +++ b/gdb/testsuite/gdb.ada/str_ref_cmp.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/str_uninit.exp b/gdb/testsuite/gdb.ada/str_uninit.exp index df2d155..6d59b9e 100644 --- a/gdb/testsuite/gdb.ada/str_uninit.exp +++ b/gdb/testsuite/gdb.ada/str_uninit.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile parse if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/sub_variant.exp b/gdb/testsuite/gdb.ada/sub_variant.exp index 381d138..af45096 100644 --- a/gdb/testsuite/gdb.ada/sub_variant.exp +++ b/gdb/testsuite/gdb.ada/sub_variant.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile subv if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/sym_print_name.exp b/gdb/testsuite/gdb.ada/sym_print_name.exp index 141c4eb..e6465f2 100644 --- a/gdb/testsuite/gdb.ada/sym_print_name.exp +++ b/gdb/testsuite/gdb.ada/sym_print_name.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/taft_type.exp b/gdb/testsuite/gdb.ada/taft_type.exp index 9e2e46f..c546f14 100644 --- a/gdb/testsuite/gdb.ada/taft_type.exp +++ b/gdb/testsuite/gdb.ada/taft_type.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile p if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/tagged.exp b/gdb/testsuite/gdb.ada/tagged.exp index 4928c5d..fe49b14 100644 --- a/gdb/testsuite/gdb.ada/tagged.exp +++ b/gdb/testsuite/gdb.ada/tagged.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/tagged_access.exp b/gdb/testsuite/gdb.ada/tagged_access.exp index 0633ef0..460b90a 100644 --- a/gdb/testsuite/gdb.ada/tagged_access.exp +++ b/gdb/testsuite/gdb.ada/tagged_access.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile p if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/task_bp.exp b/gdb/testsuite/gdb.ada/task_bp.exp index a0b62dd..d430428 100644 --- a/gdb/testsuite/gdb.ada/task_bp.exp +++ b/gdb/testsuite/gdb.ada/task_bp.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/task_switch_in_core.exp b/gdb/testsuite/gdb.ada/task_switch_in_core.exp index ce54308..e288cc9 100644 --- a/gdb/testsuite/gdb.ada/task_switch_in_core.exp +++ b/gdb/testsuite/gdb.ada/task_switch_in_core.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile crash if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/tasks.exp b/gdb/testsuite/gdb.ada/tasks.exp index edbd149..50b4c5f 100644 --- a/gdb/testsuite/gdb.ada/tasks.exp +++ b/gdb/testsuite/gdb.ada/tasks.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/tick_last_segv.exp b/gdb/testsuite/gdb.ada/tick_last_segv.exp index 1872507..52222e1 100644 --- a/gdb/testsuite/gdb.ada/tick_last_segv.exp +++ b/gdb/testsuite/gdb.ada/tick_last_segv.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/tick_length_array_enum_idx.exp b/gdb/testsuite/gdb.ada/tick_length_array_enum_idx.exp index 771c179..52715cf 100644 --- a/gdb/testsuite/gdb.ada/tick_length_array_enum_idx.exp +++ b/gdb/testsuite/gdb.ada/tick_length_array_enum_idx.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_n207_004 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/type_coercion.exp b/gdb/testsuite/gdb.ada/type_coercion.exp index 830108c..b8167d3 100644 --- a/gdb/testsuite/gdb.ada/type_coercion.exp +++ b/gdb/testsuite/gdb.ada/type_coercion.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile assign if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/unc_arr_ptr_in_var_rec.exp b/gdb/testsuite/gdb.ada/unc_arr_ptr_in_var_rec.exp index 3d78429..f7f3485 100644 --- a/gdb/testsuite/gdb.ada/unc_arr_ptr_in_var_rec.exp +++ b/gdb/testsuite/gdb.ada/unc_arr_ptr_in_var_rec.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/unchecked_union.exp b/gdb/testsuite/gdb.ada/unchecked_union.exp index c85d7c3..0f598f5 100644 --- a/gdb/testsuite/gdb.ada/unchecked_union.exp +++ b/gdb/testsuite/gdb.ada/unchecked_union.exp @@ -17,6 +17,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile unchecked_union proc multi_line_string {str} { diff --git a/gdb/testsuite/gdb.ada/uninitialized_vars.exp b/gdb/testsuite/gdb.ada/uninitialized_vars.exp index 9f427cc..5402da9 100644 --- a/gdb/testsuite/gdb.ada/uninitialized_vars.exp +++ b/gdb/testsuite/gdb.ada/uninitialized_vars.exp @@ -18,6 +18,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile parse if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/var_arr_attrs.exp b/gdb/testsuite/gdb.ada/var_arr_attrs.exp index 0b69e98..b2612a8 100644 --- a/gdb/testsuite/gdb.ada/var_arr_attrs.exp +++ b/gdb/testsuite/gdb.ada/var_arr_attrs.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_o115_002 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/var_arr_typedef.exp b/gdb/testsuite/gdb.ada/var_arr_typedef.exp index 583934a..79c0dea 100644 --- a/gdb/testsuite/gdb.ada/var_arr_typedef.exp +++ b/gdb/testsuite/gdb.ada/var_arr_typedef.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile var_arr_typedef if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { diff --git a/gdb/testsuite/gdb.ada/var_rec_arr.exp b/gdb/testsuite/gdb.ada/var_rec_arr.exp index 80ec326..c2ad97b 100644 --- a/gdb/testsuite/gdb.ada/var_rec_arr.exp +++ b/gdb/testsuite/gdb.ada/var_rec_arr.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo_na09_042 # Note we don't test the "none" (no -fgnat-encodings option) scenario diff --git a/gdb/testsuite/gdb.ada/variant-record.exp b/gdb/testsuite/gdb.ada/variant-record.exp index 82b73c6..176984a 100644 --- a/gdb/testsuite/gdb.ada/variant-record.exp +++ b/gdb/testsuite/gdb.ada/variant-record.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile proc if {[gdb_compile_ada "${srcfile}" "${binfile}" executable debug] != ""} { diff --git a/gdb/testsuite/gdb.ada/variant.exp b/gdb/testsuite/gdb.ada/variant.exp index da51f7b..9f55f9b 100644 --- a/gdb/testsuite/gdb.ada/variant.exp +++ b/gdb/testsuite/gdb.ada/variant.exp @@ -16,6 +16,8 @@ load_lib "ada.exp" load_lib "gdb-python.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile pkg foreach_with_prefix scenario {none all minimal} { diff --git a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp index 0530df5..e10c62b 100644 --- a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp +++ b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/varsize_limit.exp b/gdb/testsuite/gdb.ada/varsize_limit.exp index 8f5d9da..3d3eff0 100644 --- a/gdb/testsuite/gdb.ada/varsize_limit.exp +++ b/gdb/testsuite/gdb.ada/varsize_limit.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile vsizelim if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/whatis_array_val.exp b/gdb/testsuite/gdb.ada/whatis_array_val.exp index b0b1160..bf986c7 100644 --- a/gdb/testsuite/gdb.ada/whatis_array_val.exp +++ b/gdb/testsuite/gdb.ada/whatis_array_val.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/widewide.exp b/gdb/testsuite/gdb.ada/widewide.exp index 198535c..5f4e5be 100644 --- a/gdb/testsuite/gdb.ada/widewide.exp +++ b/gdb/testsuite/gdb.ada/widewide.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { diff --git a/gdb/testsuite/gdb.ada/win_fu_syms.exp b/gdb/testsuite/gdb.ada/win_fu_syms.exp index f27b0a8..28b1ee3 100644 --- a/gdb/testsuite/gdb.ada/win_fu_syms.exp +++ b/gdb/testsuite/gdb.ada/win_fu_syms.exp @@ -15,6 +15,8 @@ load_lib "ada.exp" +if { [skip_ada_tests] } { return -1 } + standard_ada_testfile foo if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-bargs additional_flags=-shared additional_flags=-margs]] != "" } { |