diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 9adc9874cf..63506504b8 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2012-01-16 Pedro Alves + + Remove all calls to strace. + 2012-01-14 Jan Kratochvil * gdb.dwarf2/dw2-namespaceless-anonymous.S: New file. diff --git a/gdb/testsuite/gdb.ada/array_bounds.exp b/gdb/testsuite/gdb.ada/array_bounds.exp index b47ef3acc9..a726e71d5b 100644 --- a/gdb/testsuite/gdb.ada/array_bounds.exp +++ b/gdb/testsuite/gdb.ada/array_bounds.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "array_bounds" diff --git a/gdb/testsuite/gdb.ada/array_return.exp b/gdb/testsuite/gdb.ada/array_return.exp index f5f1d68a38..c72f8cfbc0 100644 --- a/gdb/testsuite/gdb.ada/array_return.exp +++ b/gdb/testsuite/gdb.ada/array_return.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" if { [skip_ada_tests] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/array_subscript_addr.exp b/gdb/testsuite/gdb.ada/array_subscript_addr.exp index cfad5a06cb..aa10b27265 100644 --- a/gdb/testsuite/gdb.ada/array_subscript_addr.exp +++ b/gdb/testsuite/gdb.ada/array_subscript_addr.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "array_subscript_addr" diff --git a/gdb/testsuite/gdb.ada/arrayidx.exp b/gdb/testsuite/gdb.ada/arrayidx.exp index 0373cc315f..f8c087d697 100644 --- a/gdb/testsuite/gdb.ada/arrayidx.exp +++ b/gdb/testsuite/gdb.ada/arrayidx.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" if { [skip_ada_tests] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/arrayparam.exp b/gdb/testsuite/gdb.ada/arrayparam.exp index 5c6ae000db..d1549df271 100644 --- a/gdb/testsuite/gdb.ada/arrayparam.exp +++ b/gdb/testsuite/gdb.ada/arrayparam.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "arrayparam" diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp index d80ee8e08c..192feb12f1 100644 --- a/gdb/testsuite/gdb.ada/arrayptr.exp +++ b/gdb/testsuite/gdb.ada/arrayptr.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "arrayptr" diff --git a/gdb/testsuite/gdb.ada/assign_1.exp b/gdb/testsuite/gdb.ada/assign_1.exp index 1aa49e8e7e..c27e6d0236 100644 --- a/gdb/testsuite/gdb.ada/assign_1.exp +++ b/gdb/testsuite/gdb.ada/assign_1.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" gdb_exit diff --git a/gdb/testsuite/gdb.ada/atomic_enum.exp b/gdb/testsuite/gdb.ada/atomic_enum.exp index 2acbfca115..e0ac2146f5 100644 --- a/gdb/testsuite/gdb.ada/atomic_enum.exp +++ b/gdb/testsuite/gdb.ada/atomic_enum.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "atomic_enum" diff --git a/gdb/testsuite/gdb.ada/boolean_expr.exp b/gdb/testsuite/gdb.ada/boolean_expr.exp index e79c5c1f5c..52a68236da 100644 --- a/gdb/testsuite/gdb.ada/boolean_expr.exp +++ b/gdb/testsuite/gdb.ada/boolean_expr.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" gdb_exit diff --git a/gdb/testsuite/gdb.ada/call_pn.exp b/gdb/testsuite/gdb.ada/call_pn.exp index 9243e86a11..1b99252e80 100644 --- a/gdb/testsuite/gdb.ada/call_pn.exp +++ b/gdb/testsuite/gdb.ada/call_pn.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "call_pn" diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp index 033690384e..f132355721 100644 --- a/gdb/testsuite/gdb.ada/catch_ex.exp +++ b/gdb/testsuite/gdb.ada/catch_ex.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "catch_ex" diff --git a/gdb/testsuite/gdb.ada/char_param.exp b/gdb/testsuite/gdb.ada/char_param.exp index 53ac32df16..e43772116d 100644 --- a/gdb/testsuite/gdb.ada/char_param.exp +++ b/gdb/testsuite/gdb.ada/char_param.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "char_param" diff --git a/gdb/testsuite/gdb.ada/complete.exp b/gdb/testsuite/gdb.ada/complete.exp index 1b65efabd0..4a0f2b4859 100644 --- a/gdb/testsuite/gdb.ada/complete.exp +++ b/gdb/testsuite/gdb.ada/complete.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "complete" diff --git a/gdb/testsuite/gdb.ada/cond_lang.exp b/gdb/testsuite/gdb.ada/cond_lang.exp index 6f5f1e8a8e..b2aed95567 100644 --- a/gdb/testsuite/gdb.ada/cond_lang.exp +++ b/gdb/testsuite/gdb.ada/cond_lang.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "cond_lang" diff --git a/gdb/testsuite/gdb.ada/dyn_loc.exp b/gdb/testsuite/gdb.ada/dyn_loc.exp index bc40dad262..1f7b9c2ca9 100644 --- a/gdb/testsuite/gdb.ada/dyn_loc.exp +++ b/gdb/testsuite/gdb.ada/dyn_loc.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "dyn_loc" diff --git a/gdb/testsuite/gdb.ada/exec_changed.exp b/gdb/testsuite/gdb.ada/exec_changed.exp index 7597877b77..4a3792b80e 100644 --- a/gdb/testsuite/gdb.ada/exec_changed.exp +++ b/gdb/testsuite/gdb.ada/exec_changed.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" if { [skip_ada_tests] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/exprs.exp b/gdb/testsuite/gdb.ada/exprs.exp index ef9a56b8e5..764cd57fc1 100644 --- a/gdb/testsuite/gdb.ada/exprs.exp +++ b/gdb/testsuite/gdb.ada/exprs.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "exprs" diff --git a/gdb/testsuite/gdb.ada/fixed_cmp.exp b/gdb/testsuite/gdb.ada/fixed_cmp.exp index 2c85526152..1d0f9605eb 100644 --- a/gdb/testsuite/gdb.ada/fixed_cmp.exp +++ b/gdb/testsuite/gdb.ada/fixed_cmp.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "fixed_cmp" diff --git a/gdb/testsuite/gdb.ada/fixed_points.exp b/gdb/testsuite/gdb.ada/fixed_points.exp index e5bf2e1f26..d86a00b118 100644 --- a/gdb/testsuite/gdb.ada/fixed_points.exp +++ b/gdb/testsuite/gdb.ada/fixed_points.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" if { [skip_ada_tests] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/formatted_ref.exp b/gdb/testsuite/gdb.ada/formatted_ref.exp index a7ad0677c7..8341dca43c 100644 --- a/gdb/testsuite/gdb.ada/formatted_ref.exp +++ b/gdb/testsuite/gdb.ada/formatted_ref.exp @@ -24,10 +24,6 @@ # work properly: condition expression using a reference object as one of its # operand. -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "formatted_ref" diff --git a/gdb/testsuite/gdb.ada/frame_args.exp b/gdb/testsuite/gdb.ada/frame_args.exp index c83f63a738..98c1a440ce 100644 --- a/gdb/testsuite/gdb.ada/frame_args.exp +++ b/gdb/testsuite/gdb.ada/frame_args.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "frame_args" diff --git a/gdb/testsuite/gdb.ada/fun_addr.exp b/gdb/testsuite/gdb.ada/fun_addr.exp index 1c76a1e6b7..6dabf34dea 100644 --- a/gdb/testsuite/gdb.ada/fun_addr.exp +++ b/gdb/testsuite/gdb.ada/fun_addr.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "fun_addr" diff --git a/gdb/testsuite/gdb.ada/fun_in_declare.exp b/gdb/testsuite/gdb.ada/fun_in_declare.exp index 09f15bcb12..b73c74a9c6 100644 --- a/gdb/testsuite/gdb.ada/fun_in_declare.exp +++ b/gdb/testsuite/gdb.ada/fun_in_declare.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "fun_in_declare" diff --git a/gdb/testsuite/gdb.ada/funcall_param.exp b/gdb/testsuite/gdb.ada/funcall_param.exp index 8321eb622b..ac0da83ee1 100644 --- a/gdb/testsuite/gdb.ada/funcall_param.exp +++ b/gdb/testsuite/gdb.ada/funcall_param.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "funcall_param" diff --git a/gdb/testsuite/gdb.ada/homonym.exp b/gdb/testsuite/gdb.ada/homonym.exp index d535ca23a7..a81135ac02 100644 --- a/gdb/testsuite/gdb.ada/homonym.exp +++ b/gdb/testsuite/gdb.ada/homonym.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "homonym" diff --git a/gdb/testsuite/gdb.ada/int_deref.exp b/gdb/testsuite/gdb.ada/int_deref.exp index d8d2f20172..51705bc6a2 100644 --- a/gdb/testsuite/gdb.ada/int_deref.exp +++ b/gdb/testsuite/gdb.ada/int_deref.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "int_deref" diff --git a/gdb/testsuite/gdb.ada/interface.exp b/gdb/testsuite/gdb.ada/interface.exp index fd348385a6..ae21a5374c 100644 --- a/gdb/testsuite/gdb.ada/interface.exp +++ b/gdb/testsuite/gdb.ada/interface.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "interface" diff --git a/gdb/testsuite/gdb.ada/lang_switch.exp b/gdb/testsuite/gdb.ada/lang_switch.exp index e3beec5ef9..9e1468751a 100644 --- a/gdb/testsuite/gdb.ada/lang_switch.exp +++ b/gdb/testsuite/gdb.ada/lang_switch.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "lang_switch" diff --git a/gdb/testsuite/gdb.ada/mod_from_name.exp b/gdb/testsuite/gdb.ada/mod_from_name.exp index 38a9bb962f..fe972451f7 100644 --- a/gdb/testsuite/gdb.ada/mod_from_name.exp +++ b/gdb/testsuite/gdb.ada/mod_from_name.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "mod_from_name" diff --git a/gdb/testsuite/gdb.ada/nested.exp b/gdb/testsuite/gdb.ada/nested.exp index be8deceb2d..079577bf87 100644 --- a/gdb/testsuite/gdb.ada/nested.exp +++ b/gdb/testsuite/gdb.ada/nested.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "nested" diff --git a/gdb/testsuite/gdb.ada/null_array.exp b/gdb/testsuite/gdb.ada/null_array.exp index d449e3cbea..4de3a269ef 100644 --- a/gdb/testsuite/gdb.ada/null_array.exp +++ b/gdb/testsuite/gdb.ada/null_array.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "null_array" diff --git a/gdb/testsuite/gdb.ada/null_record.exp b/gdb/testsuite/gdb.ada/null_record.exp index ab0ef3a402..97508b23ef 100644 --- a/gdb/testsuite/gdb.ada/null_record.exp +++ b/gdb/testsuite/gdb.ada/null_record.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" if { [skip_ada_tests] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp index 80dd44f033..678639cba4 100644 --- a/gdb/testsuite/gdb.ada/packed_array.exp +++ b/gdb/testsuite/gdb.ada/packed_array.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" if { [skip_ada_tests] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/packed_tagged.exp b/gdb/testsuite/gdb.ada/packed_tagged.exp index e671d73a04..3cf8a2895a 100644 --- a/gdb/testsuite/gdb.ada/packed_tagged.exp +++ b/gdb/testsuite/gdb.ada/packed_tagged.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "packed_tagged" diff --git a/gdb/testsuite/gdb.ada/print_chars.exp b/gdb/testsuite/gdb.ada/print_chars.exp index e51356c0f0..35dfcc6b85 100644 --- a/gdb/testsuite/gdb.ada/print_chars.exp +++ b/gdb/testsuite/gdb.ada/print_chars.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "print_chars" diff --git a/gdb/testsuite/gdb.ada/print_pc.exp b/gdb/testsuite/gdb.ada/print_pc.exp index aff00e8634..371dd513cf 100644 --- a/gdb/testsuite/gdb.ada/print_pc.exp +++ b/gdb/testsuite/gdb.ada/print_pc.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "start" diff --git a/gdb/testsuite/gdb.ada/ptype_arith_binop.exp b/gdb/testsuite/gdb.ada/ptype_arith_binop.exp index 944d90b382..75d381291f 100644 --- a/gdb/testsuite/gdb.ada/ptype_arith_binop.exp +++ b/gdb/testsuite/gdb.ada/ptype_arith_binop.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir diff --git a/gdb/testsuite/gdb.ada/ptype_field.exp b/gdb/testsuite/gdb.ada/ptype_field.exp index 2fb63e60a9..03f8d8f3da 100644 --- a/gdb/testsuite/gdb.ada/ptype_field.exp +++ b/gdb/testsuite/gdb.ada/ptype_field.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "ptype_field" diff --git a/gdb/testsuite/gdb.ada/ptype_tagged_param.exp b/gdb/testsuite/gdb.ada/ptype_tagged_param.exp index c56d82fee0..d7107297b9 100644 --- a/gdb/testsuite/gdb.ada/ptype_tagged_param.exp +++ b/gdb/testsuite/gdb.ada/ptype_tagged_param.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "ptype_tagged_param" diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/rec_return.exp index e291d11e36..06fe4e6346 100644 --- a/gdb/testsuite/gdb.ada/rec_return.exp +++ b/gdb/testsuite/gdb.ada/rec_return.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "rec_return" diff --git a/gdb/testsuite/gdb.ada/ref_param.exp b/gdb/testsuite/gdb.ada/ref_param.exp index 8f860830f1..82fcc6163f 100644 --- a/gdb/testsuite/gdb.ada/ref_param.exp +++ b/gdb/testsuite/gdb.ada/ref_param.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "ref_param" diff --git a/gdb/testsuite/gdb.ada/ref_tick_size.exp b/gdb/testsuite/gdb.ada/ref_tick_size.exp index 7d157ce46f..8036723ec2 100644 --- a/gdb/testsuite/gdb.ada/ref_tick_size.exp +++ b/gdb/testsuite/gdb.ada/ref_tick_size.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "ref_tick_size" diff --git a/gdb/testsuite/gdb.ada/start.exp b/gdb/testsuite/gdb.ada/start.exp index c36db3f02e..6ba180d0bc 100644 --- a/gdb/testsuite/gdb.ada/start.exp +++ b/gdb/testsuite/gdb.ada/start.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" if { [skip_ada_tests] } { return -1 } diff --git a/gdb/testsuite/gdb.ada/str_ref_cmp.exp b/gdb/testsuite/gdb.ada/str_ref_cmp.exp index 850be59179..b0db6aacc2 100644 --- a/gdb/testsuite/gdb.ada/str_ref_cmp.exp +++ b/gdb/testsuite/gdb.ada/str_ref_cmp.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "str_ref_cmp" diff --git a/gdb/testsuite/gdb.ada/sym_print_name.exp b/gdb/testsuite/gdb.ada/sym_print_name.exp index 9e868a4204..7a8765a7b7 100644 --- a/gdb/testsuite/gdb.ada/sym_print_name.exp +++ b/gdb/testsuite/gdb.ada/sym_print_name.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "sym_print_name" diff --git a/gdb/testsuite/gdb.ada/taft_type.exp b/gdb/testsuite/gdb.ada/taft_type.exp index 8102c1e798..b934ccc6c6 100644 --- a/gdb/testsuite/gdb.ada/taft_type.exp +++ b/gdb/testsuite/gdb.ada/taft_type.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "taft_type" diff --git a/gdb/testsuite/gdb.ada/tagged.exp b/gdb/testsuite/gdb.ada/tagged.exp index 780667d620..6cc316eb43 100644 --- a/gdb/testsuite/gdb.ada/tagged.exp +++ b/gdb/testsuite/gdb.ada/tagged.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "tagged" diff --git a/gdb/testsuite/gdb.ada/tasks.exp b/gdb/testsuite/gdb.ada/tasks.exp index 59b6396f08..46a77ffbf0 100644 --- a/gdb/testsuite/gdb.ada/tasks.exp +++ b/gdb/testsuite/gdb.ada/tasks.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "tasks" diff --git a/gdb/testsuite/gdb.ada/tick_last_segv.exp b/gdb/testsuite/gdb.ada/tick_last_segv.exp index 3d1f07c0b2..ce6782f7ef 100644 --- a/gdb/testsuite/gdb.ada/tick_last_segv.exp +++ b/gdb/testsuite/gdb.ada/tick_last_segv.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "tick_last_segv" diff --git a/gdb/testsuite/gdb.ada/type_coercion.exp b/gdb/testsuite/gdb.ada/type_coercion.exp index 3e57d8bf65..32b4136633 100644 --- a/gdb/testsuite/gdb.ada/type_coercion.exp +++ b/gdb/testsuite/gdb.ada/type_coercion.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "type_coercion" diff --git a/gdb/testsuite/gdb.ada/uninitialized_vars.exp b/gdb/testsuite/gdb.ada/uninitialized_vars.exp index 54a18058a6..0ce240e470 100644 --- a/gdb/testsuite/gdb.ada/uninitialized_vars.exp +++ b/gdb/testsuite/gdb.ada/uninitialized_vars.exp @@ -16,10 +16,6 @@ # Check that GDB is able to print unconstrained variables and discriminated # records before their initialization. -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "uninitialized_vars" diff --git a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp index 2e5f93d614..34bd3de789 100644 --- a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp +++ b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" set testdir "variant_record_packed_array" diff --git a/gdb/testsuite/gdb.ada/watch_arg.exp b/gdb/testsuite/gdb.ada/watch_arg.exp index 7961117f7b..1cb9ecaf49 100644 --- a/gdb/testsuite/gdb.ada/watch_arg.exp +++ b/gdb/testsuite/gdb.ada/watch_arg.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "ada.exp" if { [skip_ada_tests] } { return -1 } diff --git a/gdb/testsuite/gdb.arch/alpha-step.exp b/gdb/testsuite/gdb.arch/alpha-step.exp index 53631ef061..3008b116f9 100644 --- a/gdb/testsuite/gdb.arch/alpha-step.exp +++ b/gdb/testsuite/gdb.arch/alpha-step.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - if ![istarget "alpha*-*-*"] then { verbose "Skipping alpha step tests." diff --git a/gdb/testsuite/gdb.arch/altivec-abi.exp b/gdb/testsuite/gdb.arch/altivec-abi.exp index 994b23cb09..9bbe33f1f4 100644 --- a/gdb/testsuite/gdb.arch/altivec-abi.exp +++ b/gdb/testsuite/gdb.arch/altivec-abi.exp @@ -18,10 +18,6 @@ # Tests for Powerpc AltiVec ABI -if $tracelevel then { - strace $tracelevel -} - # # This file uses altivec-abi.c for input. # diff --git a/gdb/testsuite/gdb.arch/altivec-regs.exp b/gdb/testsuite/gdb.arch/altivec-regs.exp index 53cba8e67b..6ed61079a1 100644 --- a/gdb/testsuite/gdb.arch/altivec-regs.exp +++ b/gdb/testsuite/gdb.arch/altivec-regs.exp @@ -17,10 +17,6 @@ # Tests for Powerpc AltiVec register setting and fetching -if $tracelevel then { - strace $tracelevel -} - # # Test the use of registers, especially AltiVec registers, for Powerpc. # This file uses altivec-regs.c for input. diff --git a/gdb/testsuite/gdb.arch/amd64-byte.exp b/gdb/testsuite/gdb.arch/amd64-byte.exp index c966f6343d..87f6332356 100644 --- a/gdb/testsuite/gdb.arch/amd64-byte.exp +++ b/gdb/testsuite/gdb.arch/amd64-byte.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if { ![istarget x86_64-*-* ] || ![is_lp64_target] } { verbose "Skipping amd64 byte register tests." diff --git a/gdb/testsuite/gdb.arch/amd64-disp-step.exp b/gdb/testsuite/gdb.arch/amd64-disp-step.exp index a890f35c2a..e7bb167304 100644 --- a/gdb/testsuite/gdb.arch/amd64-disp-step.exp +++ b/gdb/testsuite/gdb.arch/amd64-disp-step.exp @@ -17,10 +17,6 @@ # Test amd64 displaced stepping. -if $tracelevel { - strace $tracelevel -} - if { ![istarget x86_64-*-* ] || ![is_lp64_target] } { verbose "Skipping x86_64 displaced stepping tests." diff --git a/gdb/testsuite/gdb.arch/amd64-dword.exp b/gdb/testsuite/gdb.arch/amd64-dword.exp index d2ac584138..ed42716224 100644 --- a/gdb/testsuite/gdb.arch/amd64-dword.exp +++ b/gdb/testsuite/gdb.arch/amd64-dword.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if { ![istarget x86_64-*-* ] || ![is_lp64_target] } { verbose "Skipping amd64 dword register tests." diff --git a/gdb/testsuite/gdb.arch/amd64-word.exp b/gdb/testsuite/gdb.arch/amd64-word.exp index 47d5ba04df..4eaa4214f8 100644 --- a/gdb/testsuite/gdb.arch/amd64-word.exp +++ b/gdb/testsuite/gdb.arch/amd64-word.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if { ![istarget x86_64-*-* ] || ![is_lp64_target] } { verbose "Skipping amd64 word register tests." diff --git a/gdb/testsuite/gdb.arch/arm-disp-step.exp b/gdb/testsuite/gdb.arch/arm-disp-step.exp index 5e04f05542..d09885d4d9 100644 --- a/gdb/testsuite/gdb.arch/arm-disp-step.exp +++ b/gdb/testsuite/gdb.arch/arm-disp-step.exp @@ -17,10 +17,6 @@ # Test arm displaced stepping. -if $tracelevel { - strace $tracelevel -} - if {![istarget "arm*-*-*"]} then { verbose "Skipping arm displaced stepping tests." return diff --git a/gdb/testsuite/gdb.arch/e500-abi.exp b/gdb/testsuite/gdb.arch/e500-abi.exp index 72f90af967..d2b13abade 100644 --- a/gdb/testsuite/gdb.arch/e500-abi.exp +++ b/gdb/testsuite/gdb.arch/e500-abi.exp @@ -17,10 +17,6 @@ # Tests for Powerpc e500 ABI -if $tracelevel then { - strace $tracelevel -} - # # This file uses e500-abi.c for input. # diff --git a/gdb/testsuite/gdb.arch/e500-prologue.exp b/gdb/testsuite/gdb.arch/e500-prologue.exp index 7210756bf6..a5e673d441 100644 --- a/gdb/testsuite/gdb.arch/e500-prologue.exp +++ b/gdb/testsuite/gdb.arch/e500-prologue.exp @@ -15,10 +15,6 @@ # # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test PowerPC E500 prologue analyzer. diff --git a/gdb/testsuite/gdb.arch/e500-regs.exp b/gdb/testsuite/gdb.arch/e500-regs.exp index 5a0212d301..02c085c528 100644 --- a/gdb/testsuite/gdb.arch/e500-regs.exp +++ b/gdb/testsuite/gdb.arch/e500-regs.exp @@ -16,10 +16,6 @@ # Tests for Powerpc E500 register setting and fetching -if $tracelevel then { - strace $tracelevel -} - # # Test the use of registers, especially E500 registers, for Powerpc. # This file uses e500-regs.c for input. diff --git a/gdb/testsuite/gdb.arch/gdb1291.exp b/gdb/testsuite/gdb.arch/gdb1291.exp index 99a5b304d3..2142bfbe85 100644 --- a/gdb/testsuite/gdb.arch/gdb1291.exp +++ b/gdb/testsuite/gdb.arch/gdb1291.exp @@ -21,10 +21,6 @@ # Tests for PR:1291. Ensure that backtrace works properly for stack # frames greater than 256 bytes. -if $tracelevel { - strace $tracelevel -} - # Test SH backtraces with >256 byte frame stack. (PR:1291) diff --git a/gdb/testsuite/gdb.arch/gdb1431.exp b/gdb/testsuite/gdb.arch/gdb1431.exp index 4fa41b5741..7446cce2d5 100644 --- a/gdb/testsuite/gdb.arch/gdb1431.exp +++ b/gdb/testsuite/gdb.arch/gdb1431.exp @@ -23,10 +23,6 @@ # command, which actually is behaving as currently defined. What apparently # was expected was the behavior of the newer "advance" command. -if $tracelevel { - strace $tracelevel -} - # Observe that the until command doesn't go all the way to sub2. diff --git a/gdb/testsuite/gdb.arch/gdb1558.exp b/gdb/testsuite/gdb.arch/gdb1558.exp index 67f4332f93..87b9f671e5 100644 --- a/gdb/testsuite/gdb.arch/gdb1558.exp +++ b/gdb/testsuite/gdb.arch/gdb1558.exp @@ -21,10 +21,6 @@ # Tests for PR:1558. Hits breakpoint at main after function called # from main. -if $tracelevel { - strace $tracelevel -} - if ![istarget "sh-*-*"] then { verbose "Skipping SH breakpoint test." diff --git a/gdb/testsuite/gdb.arch/i386-avx.exp b/gdb/testsuite/gdb.arch/i386-avx.exp index e66af42ef6..0ef25d1738 100644 --- a/gdb/testsuite/gdb.arch/i386-avx.exp +++ b/gdb/testsuite/gdb.arch/i386-avx.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } { verbose "Skipping x86 AVX tests." diff --git a/gdb/testsuite/gdb.arch/i386-bp_permanent.exp b/gdb/testsuite/gdb.arch/i386-bp_permanent.exp index 50c81fa89a..026f956df9 100644 --- a/gdb/testsuite/gdb.arch/i386-bp_permanent.exp +++ b/gdb/testsuite/gdb.arch/i386-bp_permanent.exp @@ -16,10 +16,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test stepping over permanent breakpoints on i386. if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then { diff --git a/gdb/testsuite/gdb.arch/i386-byte.exp b/gdb/testsuite/gdb.arch/i386-byte.exp index d13fad8738..c4b212fc2d 100644 --- a/gdb/testsuite/gdb.arch/i386-byte.exp +++ b/gdb/testsuite/gdb.arch/i386-byte.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then { verbose "Skipping i386 byte register tests." diff --git a/gdb/testsuite/gdb.arch/i386-disp-step.exp b/gdb/testsuite/gdb.arch/i386-disp-step.exp index b4e3db450f..8a51be5f21 100644 --- a/gdb/testsuite/gdb.arch/i386-disp-step.exp +++ b/gdb/testsuite/gdb.arch/i386-disp-step.exp @@ -17,10 +17,6 @@ # Test i386 displaced stepping. -if $tracelevel { - strace $tracelevel -} - if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then { verbose "Skipping x86 displaced stepping tests." diff --git a/gdb/testsuite/gdb.arch/i386-gnu-cfi.exp b/gdb/testsuite/gdb.arch/i386-gnu-cfi.exp index 7f48514f3b..d7b41cc315 100644 --- a/gdb/testsuite/gdb.arch/i386-gnu-cfi.exp +++ b/gdb/testsuite/gdb.arch/i386-gnu-cfi.exp @@ -20,10 +20,6 @@ # Unwinding of DW_CFA_GNU_negative_offset_extended test program. -if $tracelevel { - strace $tracelevel -} - # Test i386 unwinder. diff --git a/gdb/testsuite/gdb.arch/i386-permbkpt.exp b/gdb/testsuite/gdb.arch/i386-permbkpt.exp index 414abb7c17..df3b3738f9 100644 --- a/gdb/testsuite/gdb.arch/i386-permbkpt.exp +++ b/gdb/testsuite/gdb.arch/i386-permbkpt.exp @@ -16,10 +16,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test inserting breakpoints over permanent breakpoints on i386 and amd64. if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then { diff --git a/gdb/testsuite/gdb.arch/i386-prologue.exp b/gdb/testsuite/gdb.arch/i386-prologue.exp index 21a701eede..2e724aa77e 100644 --- a/gdb/testsuite/gdb.arch/i386-prologue.exp +++ b/gdb/testsuite/gdb.arch/i386-prologue.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test i386 prologue analyzer. diff --git a/gdb/testsuite/gdb.arch/i386-size-overlap.exp b/gdb/testsuite/gdb.arch/i386-size-overlap.exp index 59d359f457..23cbabc862 100644 --- a/gdb/testsuite/gdb.arch/i386-size-overlap.exp +++ b/gdb/testsuite/gdb.arch/i386-size-overlap.exp @@ -15,10 +15,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test that GDB can handle overlapping sizes of symbols. if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then { diff --git a/gdb/testsuite/gdb.arch/i386-size.exp b/gdb/testsuite/gdb.arch/i386-size.exp index c46cd099be..241d939fad 100644 --- a/gdb/testsuite/gdb.arch/i386-size.exp +++ b/gdb/testsuite/gdb.arch/i386-size.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test that GDB can see the sizes of symbols. if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then { diff --git a/gdb/testsuite/gdb.arch/i386-sse.exp b/gdb/testsuite/gdb.arch/i386-sse.exp index 1a4e4088c5..1a868bd9f5 100644 --- a/gdb/testsuite/gdb.arch/i386-sse.exp +++ b/gdb/testsuite/gdb.arch/i386-sse.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } { verbose "Skipping x86 SSE tests." diff --git a/gdb/testsuite/gdb.arch/i386-unwind.exp b/gdb/testsuite/gdb.arch/i386-unwind.exp index a8be6f70e5..4ae5943485 100644 --- a/gdb/testsuite/gdb.arch/i386-unwind.exp +++ b/gdb/testsuite/gdb.arch/i386-unwind.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test i386 unwinder. diff --git a/gdb/testsuite/gdb.arch/i386-word.exp b/gdb/testsuite/gdb.arch/i386-word.exp index 701e42843c..317b9f7d99 100644 --- a/gdb/testsuite/gdb.arch/i386-word.exp +++ b/gdb/testsuite/gdb.arch/i386-word.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then { verbose "Skipping i386 word register tests." diff --git a/gdb/testsuite/gdb.arch/pa-nullify.exp b/gdb/testsuite/gdb.arch/pa-nullify.exp index 77e7ca75d1..e3223d9800 100644 --- a/gdb/testsuite/gdb.arch/pa-nullify.exp +++ b/gdb/testsuite/gdb.arch/pa-nullify.exp @@ -15,10 +15,6 @@ # # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test handling of nullified instructions for the pa target. diff --git a/gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp b/gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp index 241dd4fd09..860e68eec0 100644 --- a/gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp +++ b/gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp @@ -15,10 +15,6 @@ # # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test rs6000 prologue analyzer. diff --git a/gdb/testsuite/gdb.arch/powerpc-d128-regs.exp b/gdb/testsuite/gdb.arch/powerpc-d128-regs.exp index 18d780112e..5e952d8e9b 100644 --- a/gdb/testsuite/gdb.arch/powerpc-d128-regs.exp +++ b/gdb/testsuite/gdb.arch/powerpc-d128-regs.exp @@ -20,10 +20,6 @@ # Testcase for ppc decimal128 pseudo-registers. -if $tracelevel then { - strace $tracelevel -} - if ![istarget "powerpc64-*"] then { verbose "Skipping powerpc Decimal128 pseudo-registers testcase." return diff --git a/gdb/testsuite/gdb.arch/ppc-dfp.exp b/gdb/testsuite/gdb.arch/ppc-dfp.exp index a44a5ac204..d08424b0a4 100644 --- a/gdb/testsuite/gdb.arch/ppc-dfp.exp +++ b/gdb/testsuite/gdb.arch/ppc-dfp.exp @@ -16,10 +16,6 @@ # Tests for Powerpc Decimal Floating Point registers setting and fetching -if $tracelevel then { - strace $tracelevel -} - if ![istarget "powerpc*"] then { verbose "Skipping powerpc decimal floating point register tests." return diff --git a/gdb/testsuite/gdb.arch/ppc-fp.exp b/gdb/testsuite/gdb.arch/ppc-fp.exp index 41a4865646..2eff7fb7dc 100644 --- a/gdb/testsuite/gdb.arch/ppc-fp.exp +++ b/gdb/testsuite/gdb.arch/ppc-fp.exp @@ -16,10 +16,6 @@ # Tests for Powerpc floating point register setting and fetching -if $tracelevel then { - strace $tracelevel -} - if ![istarget "powerpc*"] then { verbose "Skipping powerpc floating point register tests." return diff --git a/gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp b/gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp index b96b136b14..53998d3acb 100644 --- a/gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp +++ b/gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp @@ -16,10 +16,6 @@ # # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # Test single stepping through atomic sequences beginning with # a lwarx/ldarx instruction and ending with a stwcx/stdcx # instruction. diff --git a/gdb/testsuite/gdb.arch/system-gcore.exp b/gdb/testsuite/gdb.arch/system-gcore.exp index c5e67244b9..ab97f6969e 100644 --- a/gdb/testsuite/gdb.arch/system-gcore.exp +++ b/gdb/testsuite/gdb.arch/system-gcore.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if { ![istarget i?86-*-linux*] && ![istarget x86_64-*-linux* ] } { verbose "Skipping system register gcore tests." diff --git a/gdb/testsuite/gdb.arch/vsx-regs.exp b/gdb/testsuite/gdb.arch/vsx-regs.exp index 7a0bf577a9..82201a3f33 100644 --- a/gdb/testsuite/gdb.arch/vsx-regs.exp +++ b/gdb/testsuite/gdb.arch/vsx-regs.exp @@ -14,10 +14,6 @@ # along with this program. If not, see . # -if $tracelevel then { - strace $tracelevel -} - # # Test the use of VSX registers, for Powerpc. # diff --git a/gdb/testsuite/gdb.asm/asm-source.exp b/gdb/testsuite/gdb.asm/asm-source.exp index 18f9a7bc49..9c2435ba35 100644 --- a/gdb/testsuite/gdb.asm/asm-source.exp +++ b/gdb/testsuite/gdb.asm/asm-source.exp @@ -15,10 +15,6 @@ # # This file was written by Kendra. -if $tracelevel then { - strace $tracelevel -} - # # Test debugging assembly level programs. # This file uses asmsrc[12].s for input. diff --git a/gdb/testsuite/gdb.base/a2-run.exp b/gdb/testsuite/gdb.base/a2-run.exp index c069851ee3..4e3b54bd89 100644 --- a/gdb/testsuite/gdb.base/a2-run.exp +++ b/gdb/testsuite/gdb.base/a2-run.exp @@ -21,10 +21,6 @@ if [gdb_skip_stdio_test "a2run.exp"] { return } -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/advance.exp b/gdb/testsuite/gdb.base/advance.exp index c4fc63f9cb..456268d18a 100644 --- a/gdb/testsuite/gdb.base/advance.exp +++ b/gdb/testsuite/gdb.base/advance.exp @@ -15,10 +15,6 @@ # advance.exp -- Expect script to test 'advance' in gdb -if $tracelevel then { - strace $tracelevel -} - set testfile advance set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/all-bin.exp b/gdb/testsuite/gdb.base/all-bin.exp index 94ec1d1156..0ac8185713 100644 --- a/gdb/testsuite/gdb.base/all-bin.exp +++ b/gdb/testsuite/gdb.base/all-bin.exp @@ -23,10 +23,6 @@ -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/annota1.exp b/gdb/testsuite/gdb.base/annota1.exp index 8639bb1c7a..66f96e7b37 100644 --- a/gdb/testsuite/gdb.base/annota1.exp +++ b/gdb/testsuite/gdb.base/annota1.exp @@ -15,10 +15,6 @@ # This file was written by Elena Zannoni (ezannoni@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # are we on a target board? If so, don't run these tests. # note: this is necessary because we cannot use runto_main (which would diff --git a/gdb/testsuite/gdb.base/annota3.exp b/gdb/testsuite/gdb.base/annota3.exp index c20d641341..82abc0a1dd 100644 --- a/gdb/testsuite/gdb.base/annota3.exp +++ b/gdb/testsuite/gdb.base/annota3.exp @@ -15,10 +15,6 @@ # This file was written by Elena Zannoni (ezannoni@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # are we on a target board? If so, don't run these tests. # note: this is necessary because we cannot use runto_main (which would diff --git a/gdb/testsuite/gdb.base/args.exp b/gdb/testsuite/gdb.base/args.exp index d9473a5719..4b812de098 100644 --- a/gdb/testsuite/gdb.base/args.exp +++ b/gdb/testsuite/gdb.base/args.exp @@ -15,10 +15,6 @@ # This is a test for the gdb invocation option --args. -if $tracelevel then { - strace $tracelevel -} - global GDBFLAGS diff --git a/gdb/testsuite/gdb.base/arithmet.exp b/gdb/testsuite/gdb.base/arithmet.exp index 6037e0dd5b..b8a3856ab9 100644 --- a/gdb/testsuite/gdb.base/arithmet.exp +++ b/gdb/testsuite/gdb.base/arithmet.exp @@ -22,10 +22,6 @@ # with integer type variables # -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/arrayidx.exp b/gdb/testsuite/gdb.base/arrayidx.exp index ed8e17a537..cba0024e4a 100644 --- a/gdb/testsuite/gdb.base/arrayidx.exp +++ b/gdb/testsuite/gdb.base/arrayidx.exp @@ -17,10 +17,6 @@ # gdb can correctly print arrays with indexes for each element of the # array. -if $tracelevel { - strace $tracelevel -} - set testfile "arrayidx" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/assign.exp b/gdb/testsuite/gdb.base/assign.exp index db639eb67a..8fb87d9d97 100644 --- a/gdb/testsuite/gdb.base/assign.exp +++ b/gdb/testsuite/gdb.base/assign.exp @@ -21,10 +21,6 @@ # with mixed types and with int type variables # -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/async.exp b/gdb/testsuite/gdb.base/async.exp index 8aaf3d30c4..4acd153a7c 100644 --- a/gdb/testsuite/gdb.base/async.exp +++ b/gdb/testsuite/gdb.base/async.exp @@ -14,10 +14,6 @@ # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/attach.exp b/gdb/testsuite/gdb.base/attach.exp index f28a537b2a..87a22deab0 100644 --- a/gdb/testsuite/gdb.base/attach.exp +++ b/gdb/testsuite/gdb.base/attach.exp @@ -14,10 +14,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel -} - # On HP-UX 11.0, this test is causing a process running the program # "attach" to be left around spinning. Until we figure out why, I am diff --git a/gdb/testsuite/gdb.base/auxv.exp b/gdb/testsuite/gdb.base/auxv.exp index e0f4cb4ff5..da10f058a4 100644 --- a/gdb/testsuite/gdb.base/auxv.exp +++ b/gdb/testsuite/gdb.base/auxv.exp @@ -24,10 +24,6 @@ if { ! [istarget "*-*-linux*"] && ! [istarget "*-*-solaris*"] } { return } -if $tracelevel then { - strace $tracelevel -} - set testfile "auxv" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/bang.exp b/gdb/testsuite/gdb.base/bang.exp index 1d7365a080..77b10d6e7d 100644 --- a/gdb/testsuite/gdb.base/bang.exp +++ b/gdb/testsuite/gdb.base/bang.exp @@ -16,10 +16,6 @@ # This is a test that verifies that GDB is able to "run" when the name # of the executable file contains a '!'. -if $tracelevel then { - strace $tracelevel -} - set testfile "args" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/bang! diff --git a/gdb/testsuite/gdb.base/bfp-test.exp b/gdb/testsuite/gdb.base/bfp-test.exp index 72c9643c63..26ac7ffa4d 100644 --- a/gdb/testsuite/gdb.base/bfp-test.exp +++ b/gdb/testsuite/gdb.base/bfp-test.exp @@ -16,10 +16,6 @@ # This file is part of the gdb testsuite. It is intended to test that # gdb could correctly handle floating point constant with a suffix. -if $tracelevel { - strace $tracelevel -} - set testfile "bfp-test" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/bigcore.exp b/gdb/testsuite/gdb.base/bigcore.exp index a2ef54abea..2e05da5dd7 100644 --- a/gdb/testsuite/gdb.base/bigcore.exp +++ b/gdb/testsuite/gdb.base/bigcore.exp @@ -17,10 +17,6 @@ # This file is based on corefile.exp which was written by Fred # Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # Are we on a target board? As of 2004-02-12, GDB didn't have a # mechanism that would let it efficiently access a remote corefile. diff --git a/gdb/testsuite/gdb.base/bitfields.exp b/gdb/testsuite/gdb.base/bitfields.exp index 6734ea10bd..3098ffdb4a 100644 --- a/gdb/testsuite/gdb.base/bitfields.exp +++ b/gdb/testsuite/gdb.base/bitfields.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "bitfields" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/bitfields2.exp b/gdb/testsuite/gdb.base/bitfields2.exp index 3da53b92b0..137090b5fe 100644 --- a/gdb/testsuite/gdb.base/bitfields2.exp +++ b/gdb/testsuite/gdb.base/bitfields2.exp @@ -23,10 +23,6 @@ # in bitfields.c, which considers only bit-fields that are <= 9 bits long. # -if $tracelevel then { - strace $tracelevel -} - set testfile "bitfields2" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/bitops.exp b/gdb/testsuite/gdb.base/bitops.exp index dab4fd0e04..bfb3a12f6e 100644 --- a/gdb/testsuite/gdb.base/bitops.exp +++ b/gdb/testsuite/gdb.base/bitops.exp @@ -23,10 +23,6 @@ # -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/break-on-linker-gcd-function.exp b/gdb/testsuite/gdb.base/break-on-linker-gcd-function.exp index 4f13999927..fc71a5fdd6 100644 --- a/gdb/testsuite/gdb.base/break-on-linker-gcd-function.exp +++ b/gdb/testsuite/gdb.base/break-on-linker-gcd-function.exp @@ -20,10 +20,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/call-ar-st.exp b/gdb/testsuite/gdb.base/call-ar-st.exp index d0a0e861bf..50ca37c1f5 100644 --- a/gdb/testsuite/gdb.base/call-ar-st.exp +++ b/gdb/testsuite/gdb.base/call-ar-st.exp @@ -16,10 +16,6 @@ # This file was written by Elena Zannoni (ezannoni@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "call-ar-st" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp index 078369a173..a53118870f 100644 --- a/gdb/testsuite/gdb.base/call-rt-st.exp +++ b/gdb/testsuite/gdb.base/call-rt-st.exp @@ -20,10 +20,6 @@ -if $tracelevel then { - strace $tracelevel -} - set testfile "call-rt-st" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/call-sc.exp b/gdb/testsuite/gdb.base/call-sc.exp index fda75f22d9..135010cf12 100644 --- a/gdb/testsuite/gdb.base/call-sc.exp +++ b/gdb/testsuite/gdb.base/call-sc.exp @@ -18,10 +18,6 @@ # Test "return", "finish", and "call" of functions that a scalar (int, # float, enum) and/or take a single scalar parameter. -if $tracelevel then { - strace $tracelevel -} - # Some targets can't call functions, so don't even bother with this # test. diff --git a/gdb/testsuite/gdb.base/call-signal-resume.exp b/gdb/testsuite/gdb.base/call-signal-resume.exp index 9c67941bfb..1c4517def3 100644 --- a/gdb/testsuite/gdb.base/call-signal-resume.exp +++ b/gdb/testsuite/gdb.base/call-signal-resume.exp @@ -20,10 +20,6 @@ # 2) Inferior is stopped at a signal. Upon resumption it should continue # with that signal, regardless of whatever the hand-called function did. -if $tracelevel then { - strace $tracelevel -} - if [target_info exists gdb,noinferiorio] { verbose "Skipping call-signal-resume.exp because of no fileio capabilities." continue diff --git a/gdb/testsuite/gdb.base/call-strs.exp b/gdb/testsuite/gdb.base/call-strs.exp index 6d96fcf991..43d7ef67c8 100644 --- a/gdb/testsuite/gdb.base/call-strs.exp +++ b/gdb/testsuite/gdb.base/call-strs.exp @@ -22,10 +22,6 @@ #debug strarg -if $tracelevel then { - strace $tracelevel -} - set testfile "call-strs" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/callexit.exp b/gdb/testsuite/gdb.base/callexit.exp index 50c50ead8f..c4d1ec56a0 100644 --- a/gdb/testsuite/gdb.base/callexit.exp +++ b/gdb/testsuite/gdb.base/callexit.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile "callexit" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp index 765be20eba..c48fa60725 100644 --- a/gdb/testsuite/gdb.base/callfuncs.exp +++ b/gdb/testsuite/gdb.base/callfuncs.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) # and modified by Bob Manson. (manson@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "callfuncs" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/charset.exp b/gdb/testsuite/gdb.base/charset.exp index 651633b4e4..47cf954817 100644 --- a/gdb/testsuite/gdb.base/charset.exp +++ b/gdb/testsuite/gdb.base/charset.exp @@ -20,10 +20,6 @@ # Test GDB's character set support. -if $tracelevel then { - strace $tracelevel -} - set testfile "charset" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/checkpoint.exp b/gdb/testsuite/gdb.base/checkpoint.exp index 2aec4249aa..fabe39d53e 100644 --- a/gdb/testsuite/gdb.base/checkpoint.exp +++ b/gdb/testsuite/gdb.base/checkpoint.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel - } - if { [is_remote target] || ![isnative] } then { continue } diff --git a/gdb/testsuite/gdb.base/chng-syms.exp b/gdb/testsuite/gdb.base/chng-syms.exp index dac300886c..ec5b4c8306 100644 --- a/gdb/testsuite/gdb.base/chng-syms.exp +++ b/gdb/testsuite/gdb.base/chng-syms.exp @@ -18,10 +18,6 @@ # Test that GDB cleans up properly after errors that result when a # breakpoint is reset. -if $tracelevel then { - strace $tracelevel -} - # IDT/SIM apparently doesn't have enough file descriptors to allow the # problem checked by this test to occur. diff --git a/gdb/testsuite/gdb.base/code-expr.exp b/gdb/testsuite/gdb.base/code-expr.exp index 9c91de158d..fe95305236 100644 --- a/gdb/testsuite/gdb.base/code-expr.exp +++ b/gdb/testsuite/gdb.base/code-expr.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite # Tests for type expressions using the new "@code" and "@data" modifiers. -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/code_elim.exp b/gdb/testsuite/gdb.base/code_elim.exp index 7369a9c113..b8ef629a03 100644 --- a/gdb/testsuite/gdb.base/code_elim.exp +++ b/gdb/testsuite/gdb.base/code_elim.exp @@ -16,10 +16,6 @@ # code_elim.exp -- tests that GDB can handle executables where some data/code # has been eliminated by the linker. -if $tracelevel then { - strace $tracelevel -} - set testfile1 code_elim1 set testfile2 code_elim2 set srcfile1 ${testfile1}.c diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp index 0be5c45aa1..e26dac0607 100644 --- a/gdb/testsuite/gdb.base/commands.exp +++ b/gdb/testsuite/gdb.base/commands.exp @@ -14,10 +14,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - # # test special commands (if, while, etc) # diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp index 06ccfd6735..35fb537ef2 100644 --- a/gdb/testsuite/gdb.base/completion.exp +++ b/gdb/testsuite/gdb.base/completion.exp @@ -46,10 +46,6 @@ # -if $tracelevel then { - strace $tracelevel - } - # # test running programs diff --git a/gdb/testsuite/gdb.base/complex.exp b/gdb/testsuite/gdb.base/complex.exp index 1de9a93998..ff403b5a15 100644 --- a/gdb/testsuite/gdb.base/complex.exp +++ b/gdb/testsuite/gdb.base/complex.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile complex set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/cond-expr.exp b/gdb/testsuite/gdb.base/cond-expr.exp index e9d61bac5e..9b51034ae3 100644 --- a/gdb/testsuite/gdb.base/cond-expr.exp +++ b/gdb/testsuite/gdb.base/cond-expr.exp @@ -27,10 +27,6 @@ # -if $tracelevel then { - strace $tracelevel -} - # Check to see if we have an executable to test. If not, then either we # haven't tried to compile one, or the compilation failed for some reason. # In either case, just notify the user and skip the tests in this file. diff --git a/gdb/testsuite/gdb.base/condbreak.exp b/gdb/testsuite/gdb.base/condbreak.exp index b8067291d7..fb82e561e7 100644 --- a/gdb/testsuite/gdb.base/condbreak.exp +++ b/gdb/testsuite/gdb.base/condbreak.exp @@ -17,10 +17,6 @@ # Purpose is to test conditional breakpoints. # Modeled after "break.exp". -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/consecutive.exp b/gdb/testsuite/gdb.base/consecutive.exp index 03d4bd11e2..c3edaf6461 100644 --- a/gdb/testsuite/gdb.base/consecutive.exp +++ b/gdb/testsuite/gdb.base/consecutive.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder. (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - # # Test breakpoints at consecutive instruction addresses. # diff --git a/gdb/testsuite/gdb.base/constvars.exp b/gdb/testsuite/gdb.base/constvars.exp index e5d64bdf74..7764d0402f 100644 --- a/gdb/testsuite/gdb.base/constvars.exp +++ b/gdb/testsuite/gdb.base/constvars.exp @@ -23,10 +23,6 @@ # const pointers to const vars # with mixed types -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/corefile.exp b/gdb/testsuite/gdb.base/corefile.exp index a91efd1fa0..027eb2c643 100644 --- a/gdb/testsuite/gdb.base/corefile.exp +++ b/gdb/testsuite/gdb.base/corefile.exp @@ -15,10 +15,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # are we on a target board if ![isnative] then { diff --git a/gdb/testsuite/gdb.base/cursal.exp b/gdb/testsuite/gdb.base/cursal.exp index 808f6beaef..ce7736364d 100644 --- a/gdb/testsuite/gdb.base/cursal.exp +++ b/gdb/testsuite/gdb.base/cursal.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - set testfile "cursal" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/cvexpr.exp b/gdb/testsuite/gdb.base/cvexpr.exp index b9c4f53d99..d836d4a5c3 100644 --- a/gdb/testsuite/gdb.base/cvexpr.exp +++ b/gdb/testsuite/gdb.base/cvexpr.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite # Tests for type expressions using const and volatile keywords. -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/dbx.exp b/gdb/testsuite/gdb.base/dbx.exp index cfd6330192..843d637d7a 100644 --- a/gdb/testsuite/gdb.base/dbx.exp +++ b/gdb/testsuite/gdb.base/dbx.exp @@ -14,10 +14,6 @@ # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel -} - set testfile1 "average" set testfile2 "sum" set testfile "dbx-test" diff --git a/gdb/testsuite/gdb.base/define.exp b/gdb/testsuite/gdb.base/define.exp index a0b5377e0d..889eca828c 100644 --- a/gdb/testsuite/gdb.base/define.exp +++ b/gdb/testsuite/gdb.base/define.exp @@ -16,10 +16,6 @@ # This file was written by Elena Zannoni. (ezannoni@cygnus.com) -if $tracelevel then { - strace $tracelevel - } - # # test running programs diff --git a/gdb/testsuite/gdb.base/del.exp b/gdb/testsuite/gdb.base/del.exp index ddeb78c412..1a37330f69 100644 --- a/gdb/testsuite/gdb.base/del.exp +++ b/gdb/testsuite/gdb.base/del.exp @@ -16,10 +16,6 @@ # The intent of this testcase is to verify that various aliases and # shortcuts of the "delete" command never stop working. -if $tracelevel then { - strace $tracelevel -} - set testfile del set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/detach.exp b/gdb/testsuite/gdb.base/detach.exp index 9bfb828b45..11fe3f4dfe 100644 --- a/gdb/testsuite/gdb.base/detach.exp +++ b/gdb/testsuite/gdb.base/detach.exp @@ -16,10 +16,6 @@ # Test running a program from the GDB prompt and then detaching it. # NOTE: This test could be much more thorough. -if $tracelevel then { - strace $tracelevel -} - # Only GNU/Linux is known to support this. if { ! [istarget "*-*-linux*"] } { diff --git a/gdb/testsuite/gdb.base/dfp-exprs.exp b/gdb/testsuite/gdb.base/dfp-exprs.exp index b27e727f72..58f71568ba 100644 --- a/gdb/testsuite/gdb.base/dfp-exprs.exp +++ b/gdb/testsuite/gdb.base/dfp-exprs.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. It contains test for evaluating # simple decimal floating point (DFP) expression. -if $tracelevel then { - strace $tracelevel -} - proc test_dfp_literals_accepted {} { # Test various dfp values, covering 32-bit, 64-bit and 128-bit ones diff --git a/gdb/testsuite/gdb.base/dfp-test.exp b/gdb/testsuite/gdb.base/dfp-test.exp index d0628e05eb..a59065a321 100644 --- a/gdb/testsuite/gdb.base/dfp-test.exp +++ b/gdb/testsuite/gdb.base/dfp-test.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. It is intended to test that # gdb could correctly handle decimal floating point introduced in IEEE 754R. -if $tracelevel then { - strace $tracelevel -} - set testfile "dfp-test" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/display.exp b/gdb/testsuite/gdb.base/display.exp index b4843466ce..4136cc1b6f 100644 --- a/gdb/testsuite/gdb.base/display.exp +++ b/gdb/testsuite/gdb.base/display.exp @@ -16,10 +16,6 @@ # display.exp Test display commands # Also do some printing stuff for coverage's sake. # -if $tracelevel then { - strace $tracelevel -} - set testfile display set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/dump.exp b/gdb/testsuite/gdb.base/dump.exp index a59c71b790..44cccbf529 100644 --- a/gdb/testsuite/gdb.base/dump.exp +++ b/gdb/testsuite/gdb.base/dump.exp @@ -16,10 +16,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) # This is a test for the gdb command "dump". -if $tracelevel then { - strace $tracelevel -} - set testfile "dump" diff --git a/gdb/testsuite/gdb.base/echo.exp b/gdb/testsuite/gdb.base/echo.exp index e50ef988b1..f704396450 100644 --- a/gdb/testsuite/gdb.base/echo.exp +++ b/gdb/testsuite/gdb.base/echo.exp @@ -19,10 +19,6 @@ # Crank up gdb. gdb_start -if $tracelevel then { - strace $tracelevel -} - # # test the echo command # diff --git a/gdb/testsuite/gdb.base/ena-dis-br.exp b/gdb/testsuite/gdb.base/ena-dis-br.exp index 3e549c0ea9..2e5cdb1717 100644 --- a/gdb/testsuite/gdb.base/ena-dis-br.exp +++ b/gdb/testsuite/gdb.base/ena-dis-br.exp @@ -16,10 +16,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/environ.exp b/gdb/testsuite/gdb.base/environ.exp index 60536fb82a..2466c81be1 100644 --- a/gdb/testsuite/gdb.base/environ.exp +++ b/gdb/testsuite/gdb.base/environ.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/eval-skip.exp b/gdb/testsuite/gdb.base/eval-skip.exp index 8b703398da..8e296d37a5 100644 --- a/gdb/testsuite/gdb.base/eval-skip.exp +++ b/gdb/testsuite/gdb.base/eval-skip.exp @@ -28,10 +28,6 @@ # -if $tracelevel then { - strace $tracelevel -} - # Check to see if we have an executable to test. If not, then either we # haven't tried to compile one, or the compilation failed for some reason. # In either case, just notify the user and skip the tests in this file. diff --git a/gdb/testsuite/gdb.base/exe-lock.exp b/gdb/testsuite/gdb.base/exe-lock.exp index c6413f15bc..150b58ea93 100644 --- a/gdb/testsuite/gdb.base/exe-lock.exp +++ b/gdb/testsuite/gdb.base/exe-lock.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - # The intent of this testcase is to verify that GDB does not keep # a filesystem lock on the executable file once the executable # is no longer running. diff --git a/gdb/testsuite/gdb.base/expand-psymtabs.exp b/gdb/testsuite/gdb.base/expand-psymtabs.exp index 93ea864abe..25f3bda55d 100644 --- a/gdb/testsuite/gdb.base/expand-psymtabs.exp +++ b/gdb/testsuite/gdb.base/expand-psymtabs.exp @@ -16,10 +16,6 @@ # # This file is part of the gdb testsuite. -if $tracelevel then { - strace $tracelevel -} - # It's possible to have a program that contains two compilation units # for the same source file name, that have code at different lines. # For example, in this test, we compile expand-psymtabs.c twice with diff --git a/gdb/testsuite/gdb.base/exprs.exp b/gdb/testsuite/gdb.base/exprs.exp index 67c89f09ea..f46a8e6dcc 100644 --- a/gdb/testsuite/gdb.base/exprs.exp +++ b/gdb/testsuite/gdb.base/exprs.exp @@ -16,10 +16,6 @@ # This file was written by Rob Savoye. (rob@cygnus.com) -if $tracelevel { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/fileio.exp b/gdb/testsuite/gdb.base/fileio.exp index 6ce3e01e2c..e8760da8d5 100644 --- a/gdb/testsuite/gdb.base/fileio.exp +++ b/gdb/testsuite/gdb.base/fileio.exp @@ -20,10 +20,6 @@ if [target_info exists gdb,nofileio] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile "fileio" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/find.exp b/gdb/testsuite/gdb.base/find.exp index 2f33973a91..664481c6df 100644 --- a/gdb/testsuite/gdb.base/find.exp +++ b/gdb/testsuite/gdb.base/find.exp @@ -15,10 +15,6 @@ # This tests the find command. -if $tracelevel then { - strace $tracelevel -} - set testfile "find" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/finish.exp b/gdb/testsuite/gdb.base/finish.exp index dc96af54dc..c782ffcc4a 100644 --- a/gdb/testsuite/gdb.base/finish.exp +++ b/gdb/testsuite/gdb.base/finish.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - # re-use the program from the "return2" test. if { [prepare_for_testing finish.exp finish return2.c] } { diff --git a/gdb/testsuite/gdb.base/fixsection.exp b/gdb/testsuite/gdb.base/fixsection.exp index 59f51c51cc..c4aee67eaf 100644 --- a/gdb/testsuite/gdb.base/fixsection.exp +++ b/gdb/testsuite/gdb.base/fixsection.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if {[skip_shlib_tests]} { return 0 diff --git a/gdb/testsuite/gdb.base/float.exp b/gdb/testsuite/gdb.base/float.exp index 4e7508839f..448102bde8 100644 --- a/gdb/testsuite/gdb.base/float.exp +++ b/gdb/testsuite/gdb.base/float.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - # # Test floating-point related functionality. # diff --git a/gdb/testsuite/gdb.base/frame-args.exp b/gdb/testsuite/gdb.base/frame-args.exp index d349f93a0b..14e5872492 100644 --- a/gdb/testsuite/gdb.base/frame-args.exp +++ b/gdb/testsuite/gdb.base/frame-args.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - set testfile "frame-args" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/funcargs.exp b/gdb/testsuite/gdb.base/funcargs.exp index f1236cf0a9..0b5534a354 100644 --- a/gdb/testsuite/gdb.base/funcargs.exp +++ b/gdb/testsuite/gdb.base/funcargs.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel { - strace $tracelevel -} - set testfile "funcargs" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/gcore-buffer-overflow.exp b/gdb/testsuite/gdb.base/gcore-buffer-overflow.exp index a8c565a9ae..7736bb8b57 100644 --- a/gdb/testsuite/gdb.base/gcore-buffer-overflow.exp +++ b/gdb/testsuite/gdb.base/gcore-buffer-overflow.exp @@ -15,10 +15,6 @@ # Test GDB's internal buffers safety for the GCORE command. -if $tracelevel then { - strace $tracelevel -} - set testfile "gcore-buffer-overflow" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/gcore.exp b/gdb/testsuite/gdb.base/gcore.exp index 8b220d6895..faa8fa7f52 100644 --- a/gdb/testsuite/gdb.base/gcore.exp +++ b/gdb/testsuite/gdb.base/gcore.exp @@ -16,10 +16,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) # This is a test for the gdb command "generate-core-file". -if $tracelevel then { - strace $tracelevel -} - set testfile "gcore" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/gdb1056.exp b/gdb/testsuite/gdb.base/gdb1056.exp index fce0d87694..5c46ed629d 100644 --- a/gdb/testsuite/gdb.base/gdb1056.exp +++ b/gdb/testsuite/gdb.base/gdb1056.exp @@ -16,10 +16,6 @@ # Test for PR gdb/1056. # 2003-10-18 Michael Chastain -if $tracelevel then { - strace $tracelevel -} - # test SIGFPE (such as division by 0) inside gdb itself diff --git a/gdb/testsuite/gdb.base/gdb1090.exp b/gdb/testsuite/gdb.base/gdb1090.exp index 59b36b921a..f9a2b2625f 100644 --- a/gdb/testsuite/gdb.base/gdb1090.exp +++ b/gdb/testsuite/gdb.base/gdb1090.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/gdb11530.exp b/gdb/testsuite/gdb.base/gdb11530.exp index 705b4f4362..ba222c2078 100644 --- a/gdb/testsuite/gdb.base/gdb11530.exp +++ b/gdb/testsuite/gdb.base/gdb11530.exp @@ -18,10 +18,6 @@ # Test GDB bug report 11530. # This is a problem related unnamed unions. -if $tracelevel then { - strace $tracelevel -} - set testfile "gdb11530" set binfile ${testfile}${EXEEXT} diff --git a/gdb/testsuite/gdb.base/gdb11531.exp b/gdb/testsuite/gdb.base/gdb11531.exp index ab3a77b86e..4f5b89c518 100644 --- a/gdb/testsuite/gdb.base/gdb11531.exp +++ b/gdb/testsuite/gdb.base/gdb11531.exp @@ -19,10 +19,6 @@ # This is a problem related to CANNOT_STEP_HW_WATCHPOINTS macro. # It affects Solaris native targets. -if $tracelevel then { - strace $tracelevel -} - set testfile "gdb11531" diff --git a/gdb/testsuite/gdb.base/gdb1250.exp b/gdb/testsuite/gdb.base/gdb1250.exp index 0d36b6e125..ef1e067768 100644 --- a/gdb/testsuite/gdb.base/gdb1250.exp +++ b/gdb/testsuite/gdb.base/gdb1250.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/gdb1555.exp b/gdb/testsuite/gdb.base/gdb1555.exp index be3aa75911..11bed5ddd0 100644 --- a/gdb/testsuite/gdb.base/gdb1555.exp +++ b/gdb/testsuite/gdb.base/gdb1555.exp @@ -17,10 +17,6 @@ # a shared library (PR gdb/1555, was PR shlib/1280, shlib/1237). # Tested on ppc-yellowdog-linux (Yellow Dog Linux 3.0 3.2.2-2a) -if $tracelevel then { - strace $tracelevel -} - if {[skip_shlib_tests]} { return 0 } diff --git a/gdb/testsuite/gdb.base/gdbvars.exp b/gdb/testsuite/gdb.base/gdbvars.exp index 72935d8de6..0499f6ce9f 100644 --- a/gdb/testsuite/gdb.base/gdbvars.exp +++ b/gdb/testsuite/gdb.base/gdbvars.exp @@ -15,10 +15,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "gdbvars" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/gnu_vector.exp b/gdb/testsuite/gdb.base/gnu_vector.exp index d052b58e1a..a1c1253834 100644 --- a/gdb/testsuite/gdb.base/gnu_vector.exp +++ b/gdb/testsuite/gdb.base/gnu_vector.exp @@ -18,10 +18,6 @@ # Tests GDBs support for GNU vectors. # http://gcc.gnu.org/onlinedocs/gcc/Vector-Extensions.html -if $tracelevel { - strace $tracelevel -} - set testfile "gnu_vector" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/hashline1.exp b/gdb/testsuite/gdb.base/hashline1.exp index 36ca8b20be..d07f604342 100644 --- a/gdb/testsuite/gdb.base/hashline1.exp +++ b/gdb/testsuite/gdb.base/hashline1.exp @@ -18,10 +18,6 @@ # Test loading of line number information with absolute path in #line, # PR symtab/9465. -if $tracelevel then { - strace $tracelevel -} - # srcfile is in objdir because we need to machine generate it in order # to get the correct path in the #line directive. diff --git a/gdb/testsuite/gdb.base/hashline2.exp b/gdb/testsuite/gdb.base/hashline2.exp index 1042fd44ab..2edde4099e 100644 --- a/gdb/testsuite/gdb.base/hashline2.exp +++ b/gdb/testsuite/gdb.base/hashline2.exp @@ -18,10 +18,6 @@ # Test loading of line number information with an absolute path with extra # /'s in #line, PR symtab/9465. -if $tracelevel then { - strace $tracelevel -} - # srcfile is in objdir because we need to machine generate it in order # to get the correct path in the #line directive. diff --git a/gdb/testsuite/gdb.base/hashline3.exp b/gdb/testsuite/gdb.base/hashline3.exp index 99e2a236b8..e471e51356 100644 --- a/gdb/testsuite/gdb.base/hashline3.exp +++ b/gdb/testsuite/gdb.base/hashline3.exp @@ -18,10 +18,6 @@ # Test loading of line number information with relative path in #line, # PR symtab/9465. -if $tracelevel then { - strace $tracelevel -} - # srcfile is in objdir because we need to machine generate it in order # to get the correct path in the #line directive. diff --git a/gdb/testsuite/gdb.base/huge.exp b/gdb/testsuite/gdb.base/huge.exp index 7196116c9d..78ae6cdbd8 100644 --- a/gdb/testsuite/gdb.base/huge.exp +++ b/gdb/testsuite/gdb.base/huge.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - # Define if you want to skip this test # (could be very time-consuming on remote targets with slow connection). diff --git a/gdb/testsuite/gdb.base/ifelse.exp b/gdb/testsuite/gdb.base/ifelse.exp index d452c5d00b..cb9f508ccb 100644 --- a/gdb/testsuite/gdb.base/ifelse.exp +++ b/gdb/testsuite/gdb.base/ifelse.exp @@ -16,10 +16,6 @@ # This test checks that the if .. else .. end construct works and may # contain empty bodies without crashing. -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.base/info-proc.exp b/gdb/testsuite/gdb.base/info-proc.exp index 4280abd9f2..fbd62f95e3 100644 --- a/gdb/testsuite/gdb.base/info-proc.exp +++ b/gdb/testsuite/gdb.base/info-proc.exp @@ -16,10 +16,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) # This is a test for the gdb command "info proc" -if $tracelevel then { - strace $tracelevel -} - if { [is_remote target] } then { continue } diff --git a/gdb/testsuite/gdb.base/info-target.exp b/gdb/testsuite/gdb.base/info-target.exp index 5817535f5f..84ac7e6aee 100644 --- a/gdb/testsuite/gdb.base/info-target.exp +++ b/gdb/testsuite/gdb.base/info-target.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile info-target if { [prepare_for_testing ${testfile}.exp $testfile start.c] } { diff --git a/gdb/testsuite/gdb.base/interp.exp b/gdb/testsuite/gdb.base/interp.exp index 6a7f7c8e0a..621cbd03ca 100644 --- a/gdb/testsuite/gdb.base/interp.exp +++ b/gdb/testsuite/gdb.base/interp.exp @@ -15,10 +15,6 @@ # interp.exp Test interpreter-exec command -if $tracelevel then { - strace $tracelevel -} - set testfile "interp" if { [prepare_for_testing ${testfile}.exp ${testfile} ${testfile}.c {debug}] } { diff --git a/gdb/testsuite/gdb.base/interrupt.exp b/gdb/testsuite/gdb.base/interrupt.exp index 6b3e0f594f..06846ec138 100644 --- a/gdb/testsuite/gdb.base/interrupt.exp +++ b/gdb/testsuite/gdb.base/interrupt.exp @@ -23,10 +23,6 @@ if [target_info exists gdb,noinferiorio] { return } -if $tracelevel then { - strace $tracelevel -} - set testfile interrupt set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/jit-so.exp b/gdb/testsuite/gdb.base/jit-so.exp index 8807a65dd8..b28f9037e7 100644 --- a/gdb/testsuite/gdb.base/jit-so.exp +++ b/gdb/testsuite/gdb.base/jit-so.exp @@ -16,10 +16,6 @@ # The same tests as in jit.exp, but loading JITer itself from a shared # library. -if $tracelevel { - strace $tracelevel -} - if {[skip_shlib_tests]} { untested jit-so.exp return -1 diff --git a/gdb/testsuite/gdb.base/jit.exp b/gdb/testsuite/gdb.base/jit.exp index eba8116b7e..a1aa351f5e 100644 --- a/gdb/testsuite/gdb.base/jit.exp +++ b/gdb/testsuite/gdb.base/jit.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - if {[skip_shlib_tests]} { untested jit.exp return -1 diff --git a/gdb/testsuite/gdb.base/jump.exp b/gdb/testsuite/gdb.base/jump.exp index 3ccc334e11..a5577e2ed0 100644 --- a/gdb/testsuite/gdb.base/jump.exp +++ b/gdb/testsuite/gdb.base/jump.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel - } - clear_xfail "*-*-*" diff --git a/gdb/testsuite/gdb.base/label.exp b/gdb/testsuite/gdb.base/label.exp index fa55c117b7..c511cb9454 100644 --- a/gdb/testsuite/gdb.base/label.exp +++ b/gdb/testsuite/gdb.base/label.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if [is_remote target] then { return 0 diff --git a/gdb/testsuite/gdb.base/langs.exp b/gdb/testsuite/gdb.base/langs.exp index 7c2498056e..e041b01606 100644 --- a/gdb/testsuite/gdb.base/langs.exp +++ b/gdb/testsuite/gdb.base/langs.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile langs set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/lineinc.exp b/gdb/testsuite/gdb.base/lineinc.exp index 0edbfe0b28..79f9091730 100644 --- a/gdb/testsuite/gdb.base/lineinc.exp +++ b/gdb/testsuite/gdb.base/lineinc.exp @@ -77,10 +77,6 @@ # sorted in ascending order; GDB would get an internal error trying to # read the above debugging info. -if $tracelevel then { - strace $tracelevel -} - set testfile "lineinc" set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/list.exp b/gdb/testsuite/gdb.base/list.exp index f87c17bac5..d1358c374e 100644 --- a/gdb/testsuite/gdb.base/list.exp +++ b/gdb/testsuite/gdb.base/list.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "list" set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/logical.exp b/gdb/testsuite/gdb.base/logical.exp index 1c5bcf365b..0df5555eff 100644 --- a/gdb/testsuite/gdb.base/logical.exp +++ b/gdb/testsuite/gdb.base/logical.exp @@ -21,10 +21,6 @@ # precedence with integer type variables -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/long_long.exp b/gdb/testsuite/gdb.base/long_long.exp index fd33bfd237..a699d0bda9 100644 --- a/gdb/testsuite/gdb.base/long_long.exp +++ b/gdb/testsuite/gdb.base/long_long.exp @@ -18,10 +18,6 @@ # long_long.exp Test printing of 64-bit things in 32-bit gdb. # Also test differnet kinds of formats. # -if $tracelevel then { - strace $tracelevel -} - if [target_info exists no_long_long] { return 0 } diff --git a/gdb/testsuite/gdb.base/longjmp.exp b/gdb/testsuite/gdb.base/longjmp.exp index 9b314ce150..d5af26ee87 100644 --- a/gdb/testsuite/gdb.base/longjmp.exp +++ b/gdb/testsuite/gdb.base/longjmp.exp @@ -17,10 +17,6 @@ # Test support for stepping over longjmp. # -if $tracelevel then { - strace $tracelevel -} - set testfile "longjmp" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/macscp.exp b/gdb/testsuite/gdb.base/macscp.exp index aed9b8d7d1..fa2173a417 100644 --- a/gdb/testsuite/gdb.base/macscp.exp +++ b/gdb/testsuite/gdb.base/macscp.exp @@ -14,10 +14,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set srcfile macscp1.c set testfile "macscp" diff --git a/gdb/testsuite/gdb.base/maint.exp b/gdb/testsuite/gdb.base/maint.exp index 1d0f4195f9..1c99150f56 100644 --- a/gdb/testsuite/gdb.base/maint.exp +++ b/gdb/testsuite/gdb.base/maint.exp @@ -47,10 +47,6 @@ -if $tracelevel then { - strace $tracelevel - } - set testfile "break" set srcfile ${testfile}.c set srcfile1 ${testfile}1.c diff --git a/gdb/testsuite/gdb.base/memattr.exp b/gdb/testsuite/gdb.base/memattr.exp index 42a20e8e83..4065808997 100644 --- a/gdb/testsuite/gdb.base/memattr.exp +++ b/gdb/testsuite/gdb.base/memattr.exp @@ -17,10 +17,6 @@ # Test the memory attribute commands. -if $tracelevel then { - strace $tracelevel -} - set testfile "memattr" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/mips_pro.exp b/gdb/testsuite/gdb.base/mips_pro.exp index e12ecae711..8e963c1a64 100644 --- a/gdb/testsuite/gdb.base/mips_pro.exp +++ b/gdb/testsuite/gdb.base/mips_pro.exp @@ -14,10 +14,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile mips_pro set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/miscexprs.exp b/gdb/testsuite/gdb.base/miscexprs.exp index 5eec2f60d1..caafe0525c 100644 --- a/gdb/testsuite/gdb.base/miscexprs.exp +++ b/gdb/testsuite/gdb.base/miscexprs.exp @@ -22,10 +22,6 @@ # with elementary types # -if $tracelevel then { - strace $tracelevel - } - # By default, the datastructures are allocated on the stack. For targets # with very small stack, that will not work. In that case, just set # storage to `-DSTORAGE=static' which changes the datastructures to be diff --git a/gdb/testsuite/gdb.base/multi-forks.exp b/gdb/testsuite/gdb.base/multi-forks.exp index fa98cf3f82..4b08b66c3d 100644 --- a/gdb/testsuite/gdb.base/multi-forks.exp +++ b/gdb/testsuite/gdb.base/multi-forks.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel - } - if { [is_remote target] || ![isnative] } then { continue } diff --git a/gdb/testsuite/gdb.base/nodebug.exp b/gdb/testsuite/gdb.base/nodebug.exp index 477c01b96f..344a804838 100644 --- a/gdb/testsuite/gdb.base/nodebug.exp +++ b/gdb/testsuite/gdb.base/nodebug.exp @@ -16,10 +16,6 @@ # Test that things still (sort of) work when compiled without -g. -if $tracelevel then { - strace $tracelevel -} - set testfile nodebug set srcfile $srcdir/$subdir/$testfile.c diff --git a/gdb/testsuite/gdb.base/nofield.exp b/gdb/testsuite/gdb.base/nofield.exp index 8602de99da..4c44f8e2a0 100644 --- a/gdb/testsuite/gdb.base/nofield.exp +++ b/gdb/testsuite/gdb.base/nofield.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - set testfile "nofield" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/opaque.exp b/gdb/testsuite/gdb.base/opaque.exp index 484f1a6457..b7ad2659bd 100644 --- a/gdb/testsuite/gdb.base/opaque.exp +++ b/gdb/testsuite/gdb.base/opaque.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "opaque" set binfile ${objdir}/${subdir}/opaque diff --git a/gdb/testsuite/gdb.base/overlays.exp b/gdb/testsuite/gdb.base/overlays.exp index d1405aca33..a017661628 100644 --- a/gdb/testsuite/gdb.base/overlays.exp +++ b/gdb/testsuite/gdb.base/overlays.exp @@ -16,10 +16,6 @@ # # This file was written by Michael Snyder (msnyder@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/page.exp b/gdb/testsuite/gdb.base/page.exp index 5e72126e73..06298077a0 100644 --- a/gdb/testsuite/gdb.base/page.exp +++ b/gdb/testsuite/gdb.base/page.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.base/pc-fp.exp b/gdb/testsuite/gdb.base/pc-fp.exp index 3a884312bb..9d74eef3b8 100644 --- a/gdb/testsuite/gdb.base/pc-fp.exp +++ b/gdb/testsuite/gdb.base/pc-fp.exp @@ -20,10 +20,6 @@ # aliases. If the ISA doesn't provide any equivalent registers, then # GDB will provide registers that map onto the frame's PC and FP. -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/pending.exp b/gdb/testsuite/gdb.base/pending.exp index 53184b03d0..7c0c5866c7 100644 --- a/gdb/testsuite/gdb.base/pending.exp +++ b/gdb/testsuite/gdb.base/pending.exp @@ -15,10 +15,6 @@ # This file was created by Jeff Johnston. (jjohnstn@redhat.com) -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/pointers.exp b/gdb/testsuite/gdb.base/pointers.exp index d5868c4006..bd29581d32 100644 --- a/gdb/testsuite/gdb.base/pointers.exp +++ b/gdb/testsuite/gdb.base/pointers.exp @@ -21,10 +21,6 @@ # with integer type variables and pointers to integers # -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/pr11022.exp b/gdb/testsuite/gdb.base/pr11022.exp index 8078eac647..c11857d944 100644 --- a/gdb/testsuite/gdb.base/pr11022.exp +++ b/gdb/testsuite/gdb.base/pr11022.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if {[skip_hw_watchpoint_tests]} { return 0 } diff --git a/gdb/testsuite/gdb.base/prelink.exp b/gdb/testsuite/gdb.base/prelink.exp index dbb9bbc315..71196bd7e1 100644 --- a/gdb/testsuite/gdb.base/prelink.exp +++ b/gdb/testsuite/gdb.base/prelink.exp @@ -18,10 +18,6 @@ # This file was written by Alexandre Oliva -if $tracelevel then { - strace $tracelevel - } - if { ![isnative] || [is_remote host] || [skip_shlib_tests]} { return diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp index d647ca82b9..c932f94e30 100644 --- a/gdb/testsuite/gdb.base/printcmds.exp +++ b/gdb/testsuite/gdb.base/printcmds.exp @@ -21,10 +21,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "printcmds" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/psymtab.exp b/gdb/testsuite/gdb.base/psymtab.exp index 2606dd22d7..06674b121c 100644 --- a/gdb/testsuite/gdb.base/psymtab.exp +++ b/gdb/testsuite/gdb.base/psymtab.exp @@ -19,10 +19,6 @@ # are working properly. If multiple tests are added, make sure that # you exit and restart GDB between tests. -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/ptr-typedef.exp b/gdb/testsuite/gdb.base/ptr-typedef.exp index c69dcf4d78..674ce45faf 100644 --- a/gdb/testsuite/gdb.base/ptr-typedef.exp +++ b/gdb/testsuite/gdb.base/ptr-typedef.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile ptr-typedef set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/ptype.exp b/gdb/testsuite/gdb.base/ptype.exp index ff711865c1..adb4cd4dd2 100644 --- a/gdb/testsuite/gdb.base/ptype.exp +++ b/gdb/testsuite/gdb.base/ptype.exp @@ -16,10 +16,6 @@ # This file was written by Rob Savoye. (rob@cygnus.com) -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/radix.exp b/gdb/testsuite/gdb.base/radix.exp index 39ac713f0d..758232dc5e 100644 --- a/gdb/testsuite/gdb.base/radix.exp +++ b/gdb/testsuite/gdb.base/radix.exp @@ -17,10 +17,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) # And rewritten by Michael Chastain (mec.gnu@mindspring.com) -if $tracelevel then { - strace $tracelevel -} - # Start with a fresh gdb. diff --git a/gdb/testsuite/gdb.base/readline.exp b/gdb/testsuite/gdb.base/readline.exp index e7538a40bb..2445aecfff 100644 --- a/gdb/testsuite/gdb.base/readline.exp +++ b/gdb/testsuite/gdb.base/readline.exp @@ -142,10 +142,6 @@ proc operate_and_get_next {name args} { } -if $tracelevel { - strace $tracelevel -} - gdb_start gdb_reinitialize_dir $srcdir/$subdir diff --git a/gdb/testsuite/gdb.base/recurse.exp b/gdb/testsuite/gdb.base/recurse.exp index 0dadc788cc..cbc9871085 100644 --- a/gdb/testsuite/gdb.base/recurse.exp +++ b/gdb/testsuite/gdb.base/recurse.exp @@ -16,10 +16,6 @@ # This file was written by Jeff Law. (law@cs.utah.edu) -if $tracelevel then { - strace $tracelevel -} - set testfile "recurse" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/regs.exp b/gdb/testsuite/gdb.base/regs.exp index 3f046bc25b..320b3a3492 100644 --- a/gdb/testsuite/gdb.base/regs.exp +++ b/gdb/testsuite/gdb.base/regs.exp @@ -22,10 +22,6 @@ # and writing of registers in a real program, although some care # would be required in the writing of the tests. -if $tracelevel then { - strace $tracelevel - } - # These tests exercise IDT-specific MIPS registers for several # different processor models. diff --git a/gdb/testsuite/gdb.base/relational.exp b/gdb/testsuite/gdb.base/relational.exp index 26b77d765f..c1ee625b16 100644 --- a/gdb/testsuite/gdb.base/relational.exp +++ b/gdb/testsuite/gdb.base/relational.exp @@ -21,10 +21,6 @@ # with integer type variables # -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/relativedebug.exp b/gdb/testsuite/gdb.base/relativedebug.exp index b37689e4da..4d570c0bcb 100644 --- a/gdb/testsuite/gdb.base/relativedebug.exp +++ b/gdb/testsuite/gdb.base/relativedebug.exp @@ -18,10 +18,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile relativedebug set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/relocate.exp b/gdb/testsuite/gdb.base/relocate.exp index 5cb07ce669..960597e8e0 100644 --- a/gdb/testsuite/gdb.base/relocate.exp +++ b/gdb/testsuite/gdb.base/relocate.exp @@ -16,10 +16,6 @@ # relocate.exp -- Expect script to test loading symbols from unrelocated # object files. -if $tracelevel then { - strace $tracelevel -} - set testfile relocate set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile}.o diff --git a/gdb/testsuite/gdb.base/remote.exp b/gdb/testsuite/gdb.base/remote.exp index c9fe99899b..8f5078757d 100644 --- a/gdb/testsuite/gdb.base/remote.exp +++ b/gdb/testsuite/gdb.base/remote.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - # test only on a remote target board diff --git a/gdb/testsuite/gdb.base/remotetimeout.exp b/gdb/testsuite/gdb.base/remotetimeout.exp index 9549dbd05d..d51f39b604 100644 --- a/gdb/testsuite/gdb.base/remotetimeout.exp +++ b/gdb/testsuite/gdb.base/remotetimeout.exp @@ -18,10 +18,6 @@ # This is a test for the gdb invocation option -l. -if $tracelevel then { - strace $tracelevel -} - global GDBFLAGS diff --git a/gdb/testsuite/gdb.base/reread.exp b/gdb/testsuite/gdb.base/reread.exp index 9b6bd11b1b..2a0929ffba 100644 --- a/gdb/testsuite/gdb.base/reread.exp +++ b/gdb/testsuite/gdb.base/reread.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set prototypes 1 # build the first test case diff --git a/gdb/testsuite/gdb.base/restore.exp b/gdb/testsuite/gdb.base/restore.exp index 68ba2fefc0..e9b950c0fa 100644 --- a/gdb/testsuite/gdb.base/restore.exp +++ b/gdb/testsuite/gdb.base/restore.exp @@ -21,10 +21,6 @@ # This file was written by Jim Blandy , with # fragments borrowed from return.exp. -if $tracelevel then { - strace $tracelevel -} - set testfile "restore" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/return2.exp b/gdb/testsuite/gdb.base/return2.exp index 22a0f574b8..8c7ea153b7 100644 --- a/gdb/testsuite/gdb.base/return2.exp +++ b/gdb/testsuite/gdb.base/return2.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "return2" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/savedregs.exp b/gdb/testsuite/gdb.base/savedregs.exp index 8837e1f1d2..394afc915b 100644 --- a/gdb/testsuite/gdb.base/savedregs.exp +++ b/gdb/testsuite/gdb.base/savedregs.exp @@ -29,10 +29,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile savedregs set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/scope.exp b/gdb/testsuite/gdb.base/scope.exp index 70592264be..a86e02d34a 100644 --- a/gdb/testsuite/gdb.base/scope.exp +++ b/gdb/testsuite/gdb.base/scope.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "scope" set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/sect-cmd.exp b/gdb/testsuite/gdb.base/sect-cmd.exp index bd84473941..8aeabe80d3 100644 --- a/gdb/testsuite/gdb.base/sect-cmd.exp +++ b/gdb/testsuite/gdb.base/sect-cmd.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/sep.exp b/gdb/testsuite/gdb.base/sep.exp index 7b8d203693..eb0ad2b670 100644 --- a/gdb/testsuite/gdb.base/sep.exp +++ b/gdb/testsuite/gdb.base/sep.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile "sep" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/sepdebug.exp b/gdb/testsuite/gdb.base/sepdebug.exp index 5ddf4aa4b5..5341bc9180 100644 --- a/gdb/testsuite/gdb.base/sepdebug.exp +++ b/gdb/testsuite/gdb.base/sepdebug.exp @@ -26,10 +26,6 @@ # ".debug-id/ab/cdef.debug" file. -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/sepsymtab.exp b/gdb/testsuite/gdb.base/sepsymtab.exp index 80bd438875..2104739334 100644 --- a/gdb/testsuite/gdb.base/sepsymtab.exp +++ b/gdb/testsuite/gdb.base/sepsymtab.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/set-lang-auto.exp b/gdb/testsuite/gdb.base/set-lang-auto.exp index 90f26457a5..79b97bb08a 100644 --- a/gdb/testsuite/gdb.base/set-lang-auto.exp +++ b/gdb/testsuite/gdb.base/set-lang-auto.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile start set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/setshow.exp b/gdb/testsuite/gdb.base/setshow.exp index 029de07d5d..a24fbba25f 100644 --- a/gdb/testsuite/gdb.base/setshow.exp +++ b/gdb/testsuite/gdb.base/setshow.exp @@ -16,10 +16,6 @@ # This file was written by Michael Snyder (msnyder@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "setshow" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/setvar.exp b/gdb/testsuite/gdb.base/setvar.exp index 5594d39adb..5b597edd06 100644 --- a/gdb/testsuite/gdb.base/setvar.exp +++ b/gdb/testsuite/gdb.base/setvar.exp @@ -21,10 +21,6 @@ # This file was written by Rob Savoye. (rob@cygnus.com) -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/shlib-call.exp b/gdb/testsuite/gdb.base/shlib-call.exp index c8a574582f..9b3e251ed4 100644 --- a/gdb/testsuite/gdb.base/shlib-call.exp +++ b/gdb/testsuite/gdb.base/shlib-call.exp @@ -28,10 +28,6 @@ #prop lib shr1.sl #prop lib shr2.sl -if $tracelevel then { - strace $tracelevel -} - if {[skip_shlib_tests]} { return 0 diff --git a/gdb/testsuite/gdb.base/shreloc.exp b/gdb/testsuite/gdb.base/shreloc.exp index 93f3c3d02b..559a0a2e85 100644 --- a/gdb/testsuite/gdb.base/shreloc.exp +++ b/gdb/testsuite/gdb.base/shreloc.exp @@ -23,10 +23,6 @@ if {[skip_shlib_tests]} { return 0 } -if $tracelevel then { - strace $tracelevel -} - # # This file uses shreloc.c, shreloc1.c and shreloc2.c # diff --git a/gdb/testsuite/gdb.base/sigall.exp b/gdb/testsuite/gdb.base/sigall.exp index e8d33d882b..1f2bab7e5f 100644 --- a/gdb/testsuite/gdb.base/sigall.exp +++ b/gdb/testsuite/gdb.base/sigall.exp @@ -18,10 +18,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.base/sigaltstack.exp b/gdb/testsuite/gdb.base/sigaltstack.exp index 75e4d9837b..854f151eb9 100644 --- a/gdb/testsuite/gdb.base/sigaltstack.exp +++ b/gdb/testsuite/gdb.base/sigaltstack.exp @@ -27,10 +27,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile sigaltstack set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/sigbpt.exp b/gdb/testsuite/gdb.base/sigbpt.exp index d79941ec8a..ebe0a1748a 100644 --- a/gdb/testsuite/gdb.base/sigbpt.exp +++ b/gdb/testsuite/gdb.base/sigbpt.exp @@ -33,10 +33,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel { - strace $tracelevel -} - set testfile "sigbpt" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/siginfo-addr.exp b/gdb/testsuite/gdb.base/siginfo-addr.exp index a56d136025..d68d310e4d 100644 --- a/gdb/testsuite/gdb.base/siginfo-addr.exp +++ b/gdb/testsuite/gdb.base/siginfo-addr.exp @@ -30,10 +30,6 @@ if [gdb_skip_stdio_test "siginfo-addr.exp"] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile siginfo-addr set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/siginfo-obj.exp b/gdb/testsuite/gdb.base/siginfo-obj.exp index 3747400f54..9ca649dae8 100644 --- a/gdb/testsuite/gdb.base/siginfo-obj.exp +++ b/gdb/testsuite/gdb.base/siginfo-obj.exp @@ -33,10 +33,6 @@ if { ! [istarget "i?86-*-linux*"] return } -if $tracelevel then { - strace $tracelevel -} - set testfile siginfo-obj set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/siginfo.exp b/gdb/testsuite/gdb.base/siginfo.exp index bb4f0a42fa..f9bdf32dc8 100644 --- a/gdb/testsuite/gdb.base/siginfo.exp +++ b/gdb/testsuite/gdb.base/siginfo.exp @@ -28,10 +28,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile siginfo set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/signals.exp b/gdb/testsuite/gdb.base/signals.exp index a9e60eebb3..334b80e8f1 100644 --- a/gdb/testsuite/gdb.base/signals.exp +++ b/gdb/testsuite/gdb.base/signals.exp @@ -19,10 +19,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile signals set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/signull.exp b/gdb/testsuite/gdb.base/signull.exp index c76e153eae..9a59fb4b2d 100644 --- a/gdb/testsuite/gdb.base/signull.exp +++ b/gdb/testsuite/gdb.base/signull.exp @@ -32,10 +32,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel { - strace $tracelevel -} - set testfile "signull" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/sigrepeat.exp b/gdb/testsuite/gdb.base/sigrepeat.exp index 77c51b3086..546d194cee 100644 --- a/gdb/testsuite/gdb.base/sigrepeat.exp +++ b/gdb/testsuite/gdb.base/sigrepeat.exp @@ -24,10 +24,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile sigrepeat set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/sigstep.exp b/gdb/testsuite/gdb.base/sigstep.exp index 3768c887dc..fb290cddb1 100644 --- a/gdb/testsuite/gdb.base/sigstep.exp +++ b/gdb/testsuite/gdb.base/sigstep.exp @@ -26,10 +26,6 @@ if [target_info exists gdb,nosignals] { continue } -if $tracelevel then { - strace $tracelevel -} - set testfile sigstep set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/sizeof.exp b/gdb/testsuite/gdb.base/sizeof.exp index dcd0f650c2..a8b29705c5 100644 --- a/gdb/testsuite/gdb.base/sizeof.exp +++ b/gdb/testsuite/gdb.base/sizeof.exp @@ -20,10 +20,6 @@ if [target_info exists gdb,noinferiorio] { continue } -if $tracelevel { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/so-impl-ld.exp b/gdb/testsuite/gdb.base/so-impl-ld.exp index d837508374..ab36a9e560 100644 --- a/gdb/testsuite/gdb.base/so-impl-ld.exp +++ b/gdb/testsuite/gdb.base/so-impl-ld.exp @@ -14,10 +14,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel - } - if {[skip_shlib_tests]} { return 0 diff --git a/gdb/testsuite/gdb.base/so-indr-cl.exp b/gdb/testsuite/gdb.base/so-indr-cl.exp index daf8ece287..464f1281bf 100644 --- a/gdb/testsuite/gdb.base/so-indr-cl.exp +++ b/gdb/testsuite/gdb.base/so-indr-cl.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel - } - # are we on a target board if ![isnative] then { diff --git a/gdb/testsuite/gdb.base/solib.exp b/gdb/testsuite/gdb.base/solib.exp index a73dea6689..78ad41c0fc 100644 --- a/gdb/testsuite/gdb.base/solib.exp +++ b/gdb/testsuite/gdb.base/solib.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel - } - # are we on a target board if ![isnative] then { diff --git a/gdb/testsuite/gdb.base/source.exp b/gdb/testsuite/gdb.base/source.exp index c8e80564c2..9e598d957f 100644 --- a/gdb/testsuite/gdb.base/source.exp +++ b/gdb/testsuite/gdb.base/source.exp @@ -18,10 +18,6 @@ # Test GDB's "source" command - reads in a GDB script. -if $tracelevel then { - strace $tracelevel -} - set testfile "structs" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/stack-checking.exp b/gdb/testsuite/gdb.base/stack-checking.exp index b09ba44805..df82bc8124 100644 --- a/gdb/testsuite/gdb.base/stack-checking.exp +++ b/gdb/testsuite/gdb.base/stack-checking.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile "stack-checking" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/start.exp b/gdb/testsuite/gdb.base/start.exp index 8781d585db..4d5a957f55 100644 --- a/gdb/testsuite/gdb.base/start.exp +++ b/gdb/testsuite/gdb.base/start.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile start set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/step-break.exp b/gdb/testsuite/gdb.base/step-break.exp index b24ad8e79e..c572f80f1a 100644 --- a/gdb/testsuite/gdb.base/step-break.exp +++ b/gdb/testsuite/gdb.base/step-break.exp @@ -15,10 +15,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile step-break set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/step-bt.exp b/gdb/testsuite/gdb.base/step-bt.exp index d849f03c9a..8e5e2482bf 100644 --- a/gdb/testsuite/gdb.base/step-bt.exp +++ b/gdb/testsuite/gdb.base/step-bt.exp @@ -16,10 +16,6 @@ # The intent of this testcase is to assure that backtrace works while # single-stepping the instructions that prepare to call a function. -if $tracelevel then { - strace $tracelevel -} - set testfile step-bt set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/step-line.exp b/gdb/testsuite/gdb.base/step-line.exp index 1e552014c7..1966f4e472 100644 --- a/gdb/testsuite/gdb.base/step-line.exp +++ b/gdb/testsuite/gdb.base/step-line.exp @@ -20,10 +20,6 @@ # step-line.exp -- Expect script to test stepping in files with # #line directives. -if $tracelevel then { - strace $tracelevel -} - set testfile step-line set srcfile ${testfile}.c set linefile ${testfile}.inp diff --git a/gdb/testsuite/gdb.base/step-test.exp b/gdb/testsuite/gdb.base/step-test.exp index abb4a0a964..e02174a24c 100644 --- a/gdb/testsuite/gdb.base/step-test.exp +++ b/gdb/testsuite/gdb.base/step-test.exp @@ -17,10 +17,6 @@ # along with this program. If not, see . */ # step-test.exp -- Expect script to test stepping in gdb -if $tracelevel then { - strace $tracelevel -} - set testfile step-test set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.base/store.exp b/gdb/testsuite/gdb.base/store.exp index ebb198a3ce..cf713041b8 100644 --- a/gdb/testsuite/gdb.base/store.exp +++ b/gdb/testsuite/gdb.base/store.exp @@ -15,10 +15,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/structs.exp b/gdb/testsuite/gdb.base/structs.exp index c24db83521..e68ab6c8bc 100644 --- a/gdb/testsuite/gdb.base/structs.exp +++ b/gdb/testsuite/gdb.base/structs.exp @@ -16,10 +16,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - # Some targets can't call functions, so don't even bother with this # test. diff --git a/gdb/testsuite/gdb.base/structs2.exp b/gdb/testsuite/gdb.base/structs2.exp index fb377bfeb2..2d505d3fdb 100644 --- a/gdb/testsuite/gdb.base/structs2.exp +++ b/gdb/testsuite/gdb.base/structs2.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set prototypes 1 set testfile "structs2" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/subst.exp b/gdb/testsuite/gdb.base/subst.exp index 525be9a8ff..b604b674be 100644 --- a/gdb/testsuite/gdb.base/subst.exp +++ b/gdb/testsuite/gdb.base/subst.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir diff --git a/gdb/testsuite/gdb.base/term.exp b/gdb/testsuite/gdb.base/term.exp index fbadc08e92..769716077a 100644 --- a/gdb/testsuite/gdb.base/term.exp +++ b/gdb/testsuite/gdb.base/term.exp @@ -16,10 +16,6 @@ # This file was written by Rob Savoye. (rob@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # Don't try this for remote targets. if [is_remote target] then { continue diff --git a/gdb/testsuite/gdb.base/testenv.exp b/gdb/testsuite/gdb.base/testenv.exp index ff337fe11c..55e30887c8 100644 --- a/gdb/testsuite/gdb.base/testenv.exp +++ b/gdb/testsuite/gdb.base/testenv.exp @@ -18,10 +18,6 @@ # Check if environment variables are correctly passed to inferiors # -if $tracelevel then { - strace $tracelevel -} - # There's no support for passing environment variables in the remote protocol. if { [is_remote target] } { return 0 diff --git a/gdb/testsuite/gdb.base/trace-commands.exp b/gdb/testsuite/gdb.base/trace-commands.exp index 02f610ae1f..b21db1766e 100644 --- a/gdb/testsuite/gdb.base/trace-commands.exp +++ b/gdb/testsuite/gdb.base/trace-commands.exp @@ -16,10 +16,6 @@ # Test that the source command's verbose mode works, the 'set trace-commands' # command works, and that the nest depth is correct in various circumstances. -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.base/twice.exp b/gdb/testsuite/gdb.base/twice.exp index dd92bad2f4..41f9bdc6b5 100644 --- a/gdb/testsuite/gdb.base/twice.exp +++ b/gdb/testsuite/gdb.base/twice.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile twice-tmp set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/type-opaque.exp b/gdb/testsuite/gdb.base/type-opaque.exp index 5e1e14a7e7..999fb1d3d2 100644 --- a/gdb/testsuite/gdb.base/type-opaque.exp +++ b/gdb/testsuite/gdb.base/type-opaque.exp @@ -15,10 +15,6 @@ # Test resolving of an opaque type from the loaded shared library. -if $tracelevel then { - strace $tracelevel -} - set testfile type-opaque-main set libfile type-opaque-lib set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/unload.exp b/gdb/testsuite/gdb.base/unload.exp index 03d6635cca..5ab0fcda18 100644 --- a/gdb/testsuite/gdb.base/unload.exp +++ b/gdb/testsuite/gdb.base/unload.exp @@ -15,10 +15,6 @@ # This file was created by Jeff Johnston. (jjohnstn@redhat.com) -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/until.exp b/gdb/testsuite/gdb.base/until.exp index cbaccaf1a4..6b647cdd5b 100644 --- a/gdb/testsuite/gdb.base/until.exp +++ b/gdb/testsuite/gdb.base/until.exp @@ -15,10 +15,6 @@ # until.exp -- Expect script to test 'until' in gdb -if $tracelevel then { - strace $tracelevel -} - set srcfile break.c if { [prepare_for_testing until.exp "until" {break.c break1.c} {debug nowarnings}] } { return -1 diff --git a/gdb/testsuite/gdb.base/unwindonsignal.exp b/gdb/testsuite/gdb.base/unwindonsignal.exp index ab7d4f0c66..3e22679d90 100644 --- a/gdb/testsuite/gdb.base/unwindonsignal.exp +++ b/gdb/testsuite/gdb.base/unwindonsignal.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if [target_info exists gdb,noinferiorio] { verbose "Skipping unwindonsignal.exp because of no fileio capabilities." continue diff --git a/gdb/testsuite/gdb.base/varargs.exp b/gdb/testsuite/gdb.base/varargs.exp index 16a517efd2..7a3e121cac 100644 --- a/gdb/testsuite/gdb.base/varargs.exp +++ b/gdb/testsuite/gdb.base/varargs.exp @@ -28,10 +28,6 @@ #quit -if $tracelevel then { - strace $tracelevel -} - set prototypes 0 set testfile "varargs" diff --git a/gdb/testsuite/gdb.base/volatile.exp b/gdb/testsuite/gdb.base/volatile.exp index b876f0f74f..827c28f5d8 100644 --- a/gdb/testsuite/gdb.base/volatile.exp +++ b/gdb/testsuite/gdb.base/volatile.exp @@ -30,10 +30,6 @@ # ... etc. (you get the idea) # Mostly with char and unsigned char. -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/watch_thread_num.exp b/gdb/testsuite/gdb.base/watch_thread_num.exp index dbf37582f7..630763b20a 100644 --- a/gdb/testsuite/gdb.base/watch_thread_num.exp +++ b/gdb/testsuite/gdb.base/watch_thread_num.exp @@ -19,10 +19,6 @@ # watch commands. # -if $tracelevel then { - strace $tracelevel -} - # This test verifies that a watchpoint is detected in the proper thread # so the test is only meaningful on a system with hardware watchpoints. if {[skip_hw_watchpoint_tests]} { diff --git a/gdb/testsuite/gdb.base/watchpoint-solib.exp b/gdb/testsuite/gdb.base/watchpoint-solib.exp index b9433ceff9..107c77c633 100644 --- a/gdb/testsuite/gdb.base/watchpoint-solib.exp +++ b/gdb/testsuite/gdb.base/watchpoint-solib.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/watchpoint.exp b/gdb/testsuite/gdb.base/watchpoint.exp index 1860368b51..ba13a0cc10 100644 --- a/gdb/testsuite/gdb.base/watchpoint.exp +++ b/gdb/testsuite/gdb.base/watchpoint.exp @@ -15,10 +15,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "watchpoint" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/watchpoints.exp b/gdb/testsuite/gdb.base/watchpoints.exp index b8b27dc514..8edd62c240 100644 --- a/gdb/testsuite/gdb.base/watchpoints.exp +++ b/gdb/testsuite/gdb.base/watchpoints.exp @@ -15,10 +15,6 @@ # This file was written by Pierre Muller. (muller@ics.u-strasbg.fr) -if $tracelevel then { - strace $tracelevel -} - set testfile "watchpoints" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.base/whatis-exp.exp b/gdb/testsuite/gdb.base/whatis-exp.exp index 7ca9896c2c..2c50854c9e 100644 --- a/gdb/testsuite/gdb.base/whatis-exp.exp +++ b/gdb/testsuite/gdb.base/whatis-exp.exp @@ -25,10 +25,6 @@ # with the EVAL_AVOID_SIDE_EFFECTS flag rather than EVAL_NORMAL # -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.base/whatis.exp b/gdb/testsuite/gdb.base/whatis.exp index 825eb7fe50..9198ef28af 100644 --- a/gdb/testsuite/gdb.base/whatis.exp +++ b/gdb/testsuite/gdb.base/whatis.exp @@ -16,10 +16,6 @@ # This file was written by Rob Savoye. (rob@cygnus.com) -if $tracelevel { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/ambiguous.exp b/gdb/testsuite/gdb.cp/ambiguous.exp index b03eb8cad1..539b32de09 100644 --- a/gdb/testsuite/gdb.cp/ambiguous.exp +++ b/gdb/testsuite/gdb.cp/ambiguous.exp @@ -21,10 +21,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/annota2.exp b/gdb/testsuite/gdb.cp/annota2.exp index 99e396dac4..41e1cc5285 100644 --- a/gdb/testsuite/gdb.cp/annota2.exp +++ b/gdb/testsuite/gdb.cp/annota2.exp @@ -15,10 +15,6 @@ # This file was written by Elena Zannoni (ezannoni@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # # test running programs diff --git a/gdb/testsuite/gdb.cp/annota3.exp b/gdb/testsuite/gdb.cp/annota3.exp index 40036292d4..112fb85f31 100644 --- a/gdb/testsuite/gdb.cp/annota3.exp +++ b/gdb/testsuite/gdb.cp/annota3.exp @@ -15,10 +15,6 @@ # This file was written by Elena Zannoni (ezannoni@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # # test running programs diff --git a/gdb/testsuite/gdb.cp/anon-union.exp b/gdb/testsuite/gdb.cp/anon-union.exp index a8db27576d..fe30ef1f19 100644 --- a/gdb/testsuite/gdb.cp/anon-union.exp +++ b/gdb/testsuite/gdb.cp/anon-union.exp @@ -19,10 +19,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/arg-reference.exp b/gdb/testsuite/gdb.cp/arg-reference.exp index 6c59cdc650..9eb39856ff 100644 --- a/gdb/testsuite/gdb.cp/arg-reference.exp +++ b/gdb/testsuite/gdb.cp/arg-reference.exp @@ -21,10 +21,6 @@ # Test G++ has compiled debuginfo without a C++ '&' reference where it should # not be. GCC Bug 33537. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/bool.exp b/gdb/testsuite/gdb.cp/bool.exp index e33ebe9b2f..9bf1810192 100644 --- a/gdb/testsuite/gdb.cp/bool.exp +++ b/gdb/testsuite/gdb.cp/bool.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel then { - strace $tracelevel -} - # Test returning bool. if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/breakpoint.exp b/gdb/testsuite/gdb.cp/breakpoint.exp index 1072ff0287..53b29c3553 100644 --- a/gdb/testsuite/gdb.cp/breakpoint.exp +++ b/gdb/testsuite/gdb.cp/breakpoint.exp @@ -17,10 +17,6 @@ # This contains tests for breakpoints in C++. -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/bs15503.exp b/gdb/testsuite/gdb.cp/bs15503.exp index 23df2427f0..95b4b4e619 100644 --- a/gdb/testsuite/gdb.cp/bs15503.exp +++ b/gdb/testsuite/gdb.cp/bs15503.exp @@ -17,10 +17,6 @@ # This file was written by Sue Kimura (sue_kimura@hp.com) # Rewritten by Michael Chastain (mec.gnu@mindspring.com) -if $tracelevel { - strace $tracelevel -} - if { [skip_stl_tests] } { continue } # On SPU this test fails because the executable exceeds local storage size. diff --git a/gdb/testsuite/gdb.cp/call-c.exp b/gdb/testsuite/gdb.cp/call-c.exp index c0fc79db27..a4327e80fc 100644 --- a/gdb/testsuite/gdb.cp/call-c.exp +++ b/gdb/testsuite/gdb.cp/call-c.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/casts.exp b/gdb/testsuite/gdb.cp/casts.exp index 93fab9465d..84569ab58a 100644 --- a/gdb/testsuite/gdb.cp/casts.exp +++ b/gdb/testsuite/gdb.cp/casts.exp @@ -20,10 +20,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/class2.exp b/gdb/testsuite/gdb.cp/class2.exp index 7c2e63ed41..6a952454f1 100644 --- a/gdb/testsuite/gdb.cp/class2.exp +++ b/gdb/testsuite/gdb.cp/class2.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/classes.exp b/gdb/testsuite/gdb.cp/classes.exp index 3793f91e23..ae43630a1c 100644 --- a/gdb/testsuite/gdb.cp/classes.exp +++ b/gdb/testsuite/gdb.cp/classes.exp @@ -18,10 +18,6 @@ set nl "\[\r\n\]+" -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } load_lib "cp-support.exp" diff --git a/gdb/testsuite/gdb.cp/cpcompletion.exp b/gdb/testsuite/gdb.cp/cpcompletion.exp index 48dcca14bc..9161351a41 100644 --- a/gdb/testsuite/gdb.cp/cpcompletion.exp +++ b/gdb/testsuite/gdb.cp/cpcompletion.exp @@ -49,10 +49,6 @@ proc test_class_complete {class expr name matches} { } } -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } set testfile pr9594 diff --git a/gdb/testsuite/gdb.cp/cpexprs.exp b/gdb/testsuite/gdb.cp/cpexprs.exp index 6b5e14e120..13af2656ce 100644 --- a/gdb/testsuite/gdb.cp/cpexprs.exp +++ b/gdb/testsuite/gdb.cp/cpexprs.exp @@ -663,10 +663,6 @@ add {policyd5::function} \ {operation_1::function} # Start the test -if {$tracelevel} { - strace $tracelevel -} - if {[skip_cplus_tests]} { continue } # On SPU this test fails because the executable exceeds local storage size. diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.exp b/gdb/testsuite/gdb.cp/cplusfuncs.exp index 6aa5445ac1..5bca25e97f 100644 --- a/gdb/testsuite/gdb.cp/cplusfuncs.exp +++ b/gdb/testsuite/gdb.cp/cplusfuncs.exp @@ -17,10 +17,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) # Adapted for g++ 3.0 ABI by Michael Chastain. (chastain@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } set testfile "cplusfuncs" diff --git a/gdb/testsuite/gdb.cp/ctti.exp b/gdb/testsuite/gdb.cp/ctti.exp index 46c3a1f352..17a76d3e9c 100644 --- a/gdb/testsuite/gdb.cp/ctti.exp +++ b/gdb/testsuite/gdb.cp/ctti.exp @@ -22,10 +22,6 @@ # Call to template instantiations. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } set testfile "cttiadd" diff --git a/gdb/testsuite/gdb.cp/demangle.exp b/gdb/testsuite/gdb.cp/demangle.exp index 14ce0b0bd8..c6e94914dc 100644 --- a/gdb/testsuite/gdb.cp/demangle.exp +++ b/gdb/testsuite/gdb.cp/demangle.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } ### The demangling style we last sent to GDB. diff --git a/gdb/testsuite/gdb.cp/derivation.exp b/gdb/testsuite/gdb.cp/derivation.exp index 57bf416100..eafaad6e40 100644 --- a/gdb/testsuite/gdb.cp/derivation.exp +++ b/gdb/testsuite/gdb.cp/derivation.exp @@ -25,10 +25,6 @@ set ws "\[\r\n\t \]+" set nl "\[\r\n\]+" -if $tracelevel then { - strace $tracelevel -} - # Start program. diff --git a/gdb/testsuite/gdb.cp/exception.exp b/gdb/testsuite/gdb.cp/exception.exp index 5cff73ba22..04dd6de2d2 100644 --- a/gdb/testsuite/gdb.cp/exception.exp +++ b/gdb/testsuite/gdb.cp/exception.exp @@ -34,10 +34,6 @@ set ws "\[\r\n\t \]+" set nl "\[\r\n\]+" -if $tracelevel then { - strace $tracelevel -} - if { [skip_stl_tests] } { continue } # On SPU this test fails because the executable exceeds local storage size. diff --git a/gdb/testsuite/gdb.cp/formatted-ref.exp b/gdb/testsuite/gdb.cp/formatted-ref.exp index 34cb7c5e5d..ff27439292 100644 --- a/gdb/testsuite/gdb.cp/formatted-ref.exp +++ b/gdb/testsuite/gdb.cp/formatted-ref.exp @@ -27,10 +27,6 @@ # work properly: condition expression using a reference object as one of its # operand. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/gdb1355.exp b/gdb/testsuite/gdb.cp/gdb1355.exp index f58427970a..140260c61d 100644 --- a/gdb/testsuite/gdb.cp/gdb1355.exp +++ b/gdb/testsuite/gdb.cp/gdb1355.exp @@ -21,10 +21,6 @@ set ws "\[\r\n\t \]*" set nl "\[\r\n\]+" -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/gdb2384.exp b/gdb/testsuite/gdb.cp/gdb2384.exp index 0ee27c4eae..ee78acd700 100644 --- a/gdb/testsuite/gdb.cp/gdb2384.exp +++ b/gdb/testsuite/gdb.cp/gdb2384.exp @@ -21,10 +21,6 @@ # # PR c++/9489. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } if { [skip_shlib_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/gdb2495.exp b/gdb/testsuite/gdb.cp/gdb2495.exp index 5dbc226640..1f76ffa91a 100644 --- a/gdb/testsuite/gdb.cp/gdb2495.exp +++ b/gdb/testsuite/gdb.cp/gdb2495.exp @@ -31,10 +31,6 @@ # This test is largely based of gdb.base/callfuncs.exp. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } if [target_info exists gdb,nosignals] { diff --git a/gdb/testsuite/gdb.cp/hang.exp b/gdb/testsuite/gdb.cp/hang.exp index 2025a2014c..0b83ced972 100644 --- a/gdb/testsuite/gdb.cp/hang.exp +++ b/gdb/testsuite/gdb.cp/hang.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/inherit.exp b/gdb/testsuite/gdb.cp/inherit.exp index c970d03bcb..74e758b830 100644 --- a/gdb/testsuite/gdb.cp/inherit.exp +++ b/gdb/testsuite/gdb.cp/inherit.exp @@ -21,10 +21,6 @@ set ws "\[\r\n\t \]+" set nl "\[\r\n\]+" set vhn "\\$\[0-9\]+" -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } load_lib "cp-support.exp" diff --git a/gdb/testsuite/gdb.cp/local.exp b/gdb/testsuite/gdb.cp/local.exp index ce28283899..e720583609 100644 --- a/gdb/testsuite/gdb.cp/local.exp +++ b/gdb/testsuite/gdb.cp/local.exp @@ -23,10 +23,6 @@ set ws "\[\r\n\t \]+" set nl "\[\r\n\]+" -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/m-data.exp b/gdb/testsuite/gdb.cp/m-data.exp index 71620a2506..1ef956eeff 100644 --- a/gdb/testsuite/gdb.cp/m-data.exp +++ b/gdb/testsuite/gdb.cp/m-data.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/m-static.exp b/gdb/testsuite/gdb.cp/m-static.exp index 0b8f29032b..563d70108e 100644 --- a/gdb/testsuite/gdb.cp/m-static.exp +++ b/gdb/testsuite/gdb.cp/m-static.exp @@ -19,10 +19,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/maint.exp b/gdb/testsuite/gdb.cp/maint.exp index f576b310f6..768664a1a3 100644 --- a/gdb/testsuite/gdb.cp/maint.exp +++ b/gdb/testsuite/gdb.cp/maint.exp @@ -18,10 +18,6 @@ # Currently, no source file is used. -if $tracelevel then { - strace $tracelevel - } - # Test the help messages. proc test_help {} { diff --git a/gdb/testsuite/gdb.cp/mb-ctor.exp b/gdb/testsuite/gdb.cp/mb-ctor.exp index bff7ac5ba3..c13b62c70e 100644 --- a/gdb/testsuite/gdb.cp/mb-ctor.exp +++ b/gdb/testsuite/gdb.cp/mb-ctor.exp @@ -16,10 +16,6 @@ # Test that breakpoints on C++ constructors work, despite the # fact that gcc generates several versions of constructor function. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/mb-inline.exp b/gdb/testsuite/gdb.cp/mb-inline.exp index 1a29d35da3..bf00c26bbc 100644 --- a/gdb/testsuite/gdb.cp/mb-inline.exp +++ b/gdb/testsuite/gdb.cp/mb-inline.exp @@ -18,10 +18,6 @@ # This test verifies that setting breakpoint on line in inline # function will fire in all instantiations of that function. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/mb-templates.exp b/gdb/testsuite/gdb.cp/mb-templates.exp index dfb25cc141..128f9f7796 100644 --- a/gdb/testsuite/gdb.cp/mb-templates.exp +++ b/gdb/testsuite/gdb.cp/mb-templates.exp @@ -16,10 +16,6 @@ # This test verifies that setting breakpoint on line in template # function will fire in all instantiations of that template. -if $tracelevel then { - strace $tracelevel -} - if { [skip_stl_tests] } { continue } # On SPU this test fails because the executable exceeds local storage size. diff --git a/gdb/testsuite/gdb.cp/member-ptr.exp b/gdb/testsuite/gdb.cp/member-ptr.exp index 4b9a37dafa..7eb237d755 100644 --- a/gdb/testsuite/gdb.cp/member-ptr.exp +++ b/gdb/testsuite/gdb.cp/member-ptr.exp @@ -22,10 +22,6 @@ set vhn "\\$\[0-9\]+" -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/method.exp b/gdb/testsuite/gdb.cp/method.exp index 3fe24c3ac4..b862bc6a3b 100644 --- a/gdb/testsuite/gdb.cp/method.exp +++ b/gdb/testsuite/gdb.cp/method.exp @@ -29,10 +29,6 @@ # integrate FPARAM symbols in HP debug info into the local var list # for the function or method's block.) -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/misc.exp b/gdb/testsuite/gdb.cp/misc.exp index 6e7bf1181c..a3ea820b59 100644 --- a/gdb/testsuite/gdb.cp/misc.exp +++ b/gdb/testsuite/gdb.cp/misc.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } set testfile "misc" diff --git a/gdb/testsuite/gdb.cp/namespace-nested-import.exp b/gdb/testsuite/gdb.cp/namespace-nested-import.exp index f0a934b772..15506ae33c 100644 --- a/gdb/testsuite/gdb.cp/namespace-nested-import.exp +++ b/gdb/testsuite/gdb.cp/namespace-nested-import.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile namespace-nested-import set srcfile ${testfile}.cc diff --git a/gdb/testsuite/gdb.cp/namespace.exp b/gdb/testsuite/gdb.cp/namespace.exp index e0789de7db..ccbd97f913 100644 --- a/gdb/testsuite/gdb.cp/namespace.exp +++ b/gdb/testsuite/gdb.cp/namespace.exp @@ -25,10 +25,6 @@ # Note: As of 2000-06-03, they passed under g++ - djb -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } diff --git a/gdb/testsuite/gdb.cp/nextoverthrow.exp b/gdb/testsuite/gdb.cp/nextoverthrow.exp index 2224628f97..7d4a0c5717 100644 --- a/gdb/testsuite/gdb.cp/nextoverthrow.exp +++ b/gdb/testsuite/gdb.cp/nextoverthrow.exp @@ -14,10 +14,6 @@ # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } set testfile "nextoverthrow" diff --git a/gdb/testsuite/gdb.cp/nsdecl.exp b/gdb/testsuite/gdb.cp/nsdecl.exp index f8617d120f..5da4a0c525 100644 --- a/gdb/testsuite/gdb.cp/nsdecl.exp +++ b/gdb/testsuite/gdb.cp/nsdecl.exp @@ -15,10 +15,6 @@ # Stress test the lookup of declarations -if $tracelevel then { - strace $tracelevel -} - set testfile nsdecl set srcfile ${testfile}.cc diff --git a/gdb/testsuite/gdb.cp/nsimport.exp b/gdb/testsuite/gdb.cp/nsimport.exp index deeca46074..6f937a7f29 100644 --- a/gdb/testsuite/gdb.cp/nsimport.exp +++ b/gdb/testsuite/gdb.cp/nsimport.exp @@ -16,10 +16,6 @@ # Test printing from multiple namespace # imported into the same scope. -if $tracelevel then { - strace $tracelevel -} - set testfile nsimport set srcfile ${testfile}.cc diff --git a/gdb/testsuite/gdb.cp/nsrecurs.exp b/gdb/testsuite/gdb.cp/nsrecurs.exp index fa80eb4f32..49affaa3c7 100644 --- a/gdb/testsuite/gdb.cp/nsrecurs.exp +++ b/gdb/testsuite/gdb.cp/nsrecurs.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile nsrecurs set srcfile ${testfile}.cc diff --git a/gdb/testsuite/gdb.cp/nsstress.exp b/gdb/testsuite/gdb.cp/nsstress.exp index 93f310c686..dbc1a04292 100644 --- a/gdb/testsuite/gdb.cp/nsstress.exp +++ b/gdb/testsuite/gdb.cp/nsstress.exp @@ -15,10 +15,6 @@ # Stress test namespace lookup -if $tracelevel then { - strace $tracelevel -} - set testfile nsstress set srcfile ${testfile}.cc diff --git a/gdb/testsuite/gdb.cp/nsusing.exp b/gdb/testsuite/gdb.cp/nsusing.exp index fd8caec43c..fecb882b17 100644 --- a/gdb/testsuite/gdb.cp/nsusing.exp +++ b/gdb/testsuite/gdb.cp/nsusing.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - set testfile nsusing set srcfile ${testfile}.cc diff --git a/gdb/testsuite/gdb.cp/overload.exp b/gdb/testsuite/gdb.cp/overload.exp index 10bd4de3f4..5116e5f1eb 100644 --- a/gdb/testsuite/gdb.cp/overload.exp +++ b/gdb/testsuite/gdb.cp/overload.exp @@ -20,10 +20,6 @@ # Tests for overloaded member functions. -if $tracelevel then { - strace $tracelevel -} - set ws "\[\r\n\t \]+" set nl "\[\r\n\]+" diff --git a/gdb/testsuite/gdb.cp/ovldbreak.exp b/gdb/testsuite/gdb.cp/ovldbreak.exp index ddc4117a01..b719224df8 100644 --- a/gdb/testsuite/gdb.cp/ovldbreak.exp +++ b/gdb/testsuite/gdb.cp/ovldbreak.exp @@ -25,10 +25,6 @@ global timeout set timeout 15 -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/pr-1023.exp b/gdb/testsuite/gdb.cp/pr-1023.exp index 8e41e04f73..0eec05ce55 100644 --- a/gdb/testsuite/gdb.cp/pr-1023.exp +++ b/gdb/testsuite/gdb.cp/pr-1023.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/pr-1210.exp b/gdb/testsuite/gdb.cp/pr-1210.exp index b0fc3c9e29..90da5bc55d 100644 --- a/gdb/testsuite/gdb.cp/pr-1210.exp +++ b/gdb/testsuite/gdb.cp/pr-1210.exp @@ -17,10 +17,6 @@ # This file is part of the gdb testsuite. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/pr-574.exp b/gdb/testsuite/gdb.cp/pr-574.exp index abc38d16a1..b8333f84f4 100644 --- a/gdb/testsuite/gdb.cp/pr-574.exp +++ b/gdb/testsuite/gdb.cp/pr-574.exp @@ -20,10 +20,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/printmethod.exp b/gdb/testsuite/gdb.cp/printmethod.exp index 998fffccd5..5362b80d03 100644 --- a/gdb/testsuite/gdb.cp/printmethod.exp +++ b/gdb/testsuite/gdb.cp/printmethod.exp @@ -19,10 +19,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/psmang.exp b/gdb/testsuite/gdb.cp/psmang.exp index 743f8829c7..605f8ebf66 100644 --- a/gdb/testsuite/gdb.cp/psmang.exp +++ b/gdb/testsuite/gdb.cp/psmang.exp @@ -171,10 +171,6 @@ # other ways this test could fail to do its job. If you need to make # revisions, please be very careful. -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/punctuator.exp b/gdb/testsuite/gdb.cp/punctuator.exp index 9af22ada73..27ef37cf1c 100644 --- a/gdb/testsuite/gdb.cp/punctuator.exp +++ b/gdb/testsuite/gdb.cp/punctuator.exp @@ -17,10 +17,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } gdb_exit diff --git a/gdb/testsuite/gdb.cp/ref-params.exp b/gdb/testsuite/gdb.cp/ref-params.exp index 23f9de868a..f133a894db 100644 --- a/gdb/testsuite/gdb.cp/ref-params.exp +++ b/gdb/testsuite/gdb.cp/ref-params.exp @@ -16,10 +16,6 @@ # written by Paul N. Hilfinger (Hilfinger@adacore.com) -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/ref-types.exp b/gdb/testsuite/gdb.cp/ref-types.exp index 3e63b6b45f..346aac4078 100644 --- a/gdb/testsuite/gdb.cp/ref-types.exp +++ b/gdb/testsuite/gdb.cp/ref-types.exp @@ -16,10 +16,6 @@ # written by Elena Zannoni (ezannoni@cygnus.com) -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.cp/rtti.exp b/gdb/testsuite/gdb.cp/rtti.exp index 35e37b0d37..d9e413f4aa 100644 --- a/gdb/testsuite/gdb.cp/rtti.exp +++ b/gdb/testsuite/gdb.cp/rtti.exp @@ -26,10 +26,6 @@ # (involving templates, in particular) where this problem triggers # because GDB and GCC have different ideas what a class is called. -if $tracelevel then { - strace $tracelevel - } - if { [skip_cplus_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/shadow.exp b/gdb/testsuite/gdb.cp/shadow.exp index a6b40d1c58..47d6207d76 100644 --- a/gdb/testsuite/gdb.cp/shadow.exp +++ b/gdb/testsuite/gdb.cp/shadow.exp @@ -16,10 +16,6 @@ # Test that when multiple variables have the same # name the one from the correct scope is printed. -if $tracelevel then { - strace $tracelevel -} - set testfile shadow set srcfile ${testfile}.cc diff --git a/gdb/testsuite/gdb.cp/temargs.exp b/gdb/testsuite/gdb.cp/temargs.exp index bb4fc94fb5..24541a4560 100644 --- a/gdb/testsuite/gdb.cp/temargs.exp +++ b/gdb/testsuite/gdb.cp/temargs.exp @@ -17,10 +17,6 @@ # This file is part of the gdb testsuite. -if {$tracelevel} { - strace $tracelevel -} - if {[skip_cplus_tests]} { continue } diff --git a/gdb/testsuite/gdb.cp/templates.exp b/gdb/testsuite/gdb.cp/templates.exp index 4fdcabfd92..72b65ae415 100644 --- a/gdb/testsuite/gdb.cp/templates.exp +++ b/gdb/testsuite/gdb.cp/templates.exp @@ -18,10 +18,6 @@ set ws "\[\r\n\t \]+" -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } set testfile "templates" diff --git a/gdb/testsuite/gdb.cp/try_catch.exp b/gdb/testsuite/gdb.cp/try_catch.exp index 474d674bc3..846d8f9b8a 100644 --- a/gdb/testsuite/gdb.cp/try_catch.exp +++ b/gdb/testsuite/gdb.cp/try_catch.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite -if $tracelevel then { - strace $tracelevel - } - if { [skip_stl_tests] } { continue } # diff --git a/gdb/testsuite/gdb.cp/userdef.exp b/gdb/testsuite/gdb.cp/userdef.exp index 98bd10517e..9c7cb57f45 100644 --- a/gdb/testsuite/gdb.cp/userdef.exp +++ b/gdb/testsuite/gdb.cp/userdef.exp @@ -19,10 +19,6 @@ # source file "userdef.cc" # -if $tracelevel then { - strace $tracelevel -} - if { [skip_stl_tests] } { continue } # On SPU this test fails because the executable exceeds local storage size. diff --git a/gdb/testsuite/gdb.cp/virtfunc.exp b/gdb/testsuite/gdb.cp/virtfunc.exp index ab8ecebad7..dd41c6dd98 100644 --- a/gdb/testsuite/gdb.cp/virtfunc.exp +++ b/gdb/testsuite/gdb.cp/virtfunc.exp @@ -19,10 +19,6 @@ set nl "\[\r\n\]+" -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } load_lib "cp-support.exp" diff --git a/gdb/testsuite/gdb.disasm/am33.exp b/gdb/testsuite/gdb.disasm/am33.exp index 34866678a7..c06f00bf4d 100644 --- a/gdb/testsuite/gdb.disasm/am33.exp +++ b/gdb/testsuite/gdb.disasm/am33.exp @@ -16,10 +16,6 @@ # This file was written by Jeff Law. (law@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "mn10300*-*-*"] { verbose "Tests ignored for all but mn10300 based targets." return diff --git a/gdb/testsuite/gdb.disasm/h8300s.exp b/gdb/testsuite/gdb.disasm/h8300s.exp index b1a55243da..4a00f5df89 100644 --- a/gdb/testsuite/gdb.disasm/h8300s.exp +++ b/gdb/testsuite/gdb.disasm/h8300s.exp @@ -15,10 +15,6 @@ # This file was written by Kazu Hirata. (kazu@hxi.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/hppa.exp b/gdb/testsuite/gdb.disasm/hppa.exp index 99c02a2c06..39ff779116 100644 --- a/gdb/testsuite/gdb.disasm/hppa.exp +++ b/gdb/testsuite/gdb.disasm/hppa.exp @@ -16,10 +16,6 @@ # This file was written by Jeff Law. (law@cs.utah.edu) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "hppa*-*-*"] { verbose "Tests ignored for all but hppa based targets." return diff --git a/gdb/testsuite/gdb.disasm/mn10300.exp b/gdb/testsuite/gdb.disasm/mn10300.exp index f001c23a0f..1fc3ff0dcb 100644 --- a/gdb/testsuite/gdb.disasm/mn10300.exp +++ b/gdb/testsuite/gdb.disasm/mn10300.exp @@ -16,10 +16,6 @@ # This file was written by Jeff Law. (law@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "mn10300*-*-*"] { verbose "Tests ignored for all but mn10300 based targets." return diff --git a/gdb/testsuite/gdb.disasm/sh3.exp b/gdb/testsuite/gdb.disasm/sh3.exp index c4fb7e722d..0e702f5ae6 100644 --- a/gdb/testsuite/gdb.disasm/sh3.exp +++ b/gdb/testsuite/gdb.disasm/sh3.exp @@ -15,10 +15,6 @@ # This file was written by Jeff Law. (law@cs.utah.edu) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "sh3*-*-*"] { verbose "Tests ignored for all but sh3 based targets." return diff --git a/gdb/testsuite/gdb.disasm/t01_mov.exp b/gdb/testsuite/gdb.disasm/t01_mov.exp index 110fa74090..3f4c037b3f 100644 --- a/gdb/testsuite/gdb.disasm/t01_mov.exp +++ b/gdb/testsuite/gdb.disasm/t01_mov.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t02_mova.exp b/gdb/testsuite/gdb.disasm/t02_mova.exp index b3dbcb7481..c6d4740ecb 100644 --- a/gdb/testsuite/gdb.disasm/t02_mova.exp +++ b/gdb/testsuite/gdb.disasm/t02_mova.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t03_add.exp b/gdb/testsuite/gdb.disasm/t03_add.exp index 175f2a172c..7880778d96 100644 --- a/gdb/testsuite/gdb.disasm/t03_add.exp +++ b/gdb/testsuite/gdb.disasm/t03_add.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t04_sub.exp b/gdb/testsuite/gdb.disasm/t04_sub.exp index d1bc71e6e0..3e8bfea73e 100644 --- a/gdb/testsuite/gdb.disasm/t04_sub.exp +++ b/gdb/testsuite/gdb.disasm/t04_sub.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t05_cmp.exp b/gdb/testsuite/gdb.disasm/t05_cmp.exp index a0ea60bd34..ecf031bf74 100644 --- a/gdb/testsuite/gdb.disasm/t05_cmp.exp +++ b/gdb/testsuite/gdb.disasm/t05_cmp.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t06_ari2.exp b/gdb/testsuite/gdb.disasm/t06_ari2.exp index 4cd4188da4..c013b5af7e 100644 --- a/gdb/testsuite/gdb.disasm/t06_ari2.exp +++ b/gdb/testsuite/gdb.disasm/t06_ari2.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t07_ari3.exp b/gdb/testsuite/gdb.disasm/t07_ari3.exp index 6a2a0fe45c..a58513493c 100644 --- a/gdb/testsuite/gdb.disasm/t07_ari3.exp +++ b/gdb/testsuite/gdb.disasm/t07_ari3.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t08_or.exp b/gdb/testsuite/gdb.disasm/t08_or.exp index 1c27b19d00..9b89f71a1e 100644 --- a/gdb/testsuite/gdb.disasm/t08_or.exp +++ b/gdb/testsuite/gdb.disasm/t08_or.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t09_xor.exp b/gdb/testsuite/gdb.disasm/t09_xor.exp index f5794fe440..63b98873dd 100644 --- a/gdb/testsuite/gdb.disasm/t09_xor.exp +++ b/gdb/testsuite/gdb.disasm/t09_xor.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t10_and.exp b/gdb/testsuite/gdb.disasm/t10_and.exp index 97ea0a5a2c..516cc85fcb 100644 --- a/gdb/testsuite/gdb.disasm/t10_and.exp +++ b/gdb/testsuite/gdb.disasm/t10_and.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t11_logs.exp b/gdb/testsuite/gdb.disasm/t11_logs.exp index 75fd7f7db7..3baa28e4da 100644 --- a/gdb/testsuite/gdb.disasm/t11_logs.exp +++ b/gdb/testsuite/gdb.disasm/t11_logs.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t12_bit.exp b/gdb/testsuite/gdb.disasm/t12_bit.exp index a03b5d6ac2..8ff157bb07 100644 --- a/gdb/testsuite/gdb.disasm/t12_bit.exp +++ b/gdb/testsuite/gdb.disasm/t12_bit.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.disasm/t13_otr.exp b/gdb/testsuite/gdb.disasm/t13_otr.exp index 21904d8a7a..ece053f52e 100644 --- a/gdb/testsuite/gdb.disasm/t13_otr.exp +++ b/gdb/testsuite/gdb.disasm/t13_otr.exp @@ -15,10 +15,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) -if $tracelevel then { - strace $tracelevel -} - if ![istarget "h8300*-*-*"] { verbose "Tests ignored for all but h8300s based targets." return diff --git a/gdb/testsuite/gdb.fortran/array-element.exp b/gdb/testsuite/gdb.fortran/array-element.exp index 412e3ea180..9150a459ac 100644 --- a/gdb/testsuite/gdb.fortran/array-element.exp +++ b/gdb/testsuite/gdb.fortran/array-element.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. It contains test for printing # the elements of an array which is passed as pointer to a subroutine. -if $tracelevel then { - strace $tracelevel -} - if { [skip_fortran_tests] } { return -1 } set testfile "array-element" diff --git a/gdb/testsuite/gdb.fortran/derived-type.exp b/gdb/testsuite/gdb.fortran/derived-type.exp index c026742fd6..b131da52da 100644 --- a/gdb/testsuite/gdb.fortran/derived-type.exp +++ b/gdb/testsuite/gdb.fortran/derived-type.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. It contains tests for type-printing # and value-printing Fortran derived types. -if $tracelevel then { - strace $tracelevel -} - if { [skip_fortran_tests] } { return -1 } set testfile "derived-type" diff --git a/gdb/testsuite/gdb.fortran/exprs.exp b/gdb/testsuite/gdb.fortran/exprs.exp index 2a1c157f77..20eb0eae32 100644 --- a/gdb/testsuite/gdb.fortran/exprs.exp +++ b/gdb/testsuite/gdb.fortran/exprs.exp @@ -17,10 +17,6 @@ # This file was adapted from old Chill tests by Stan Shebs # (shebs@cygnus.com). -if $tracelevel then { - strace $tracelevel -} - load_lib "fortran.exp" if { [skip_fortran_tests] } { continue } diff --git a/gdb/testsuite/gdb.fortran/subarray.exp b/gdb/testsuite/gdb.fortran/subarray.exp index 46151265c7..d43c85a67b 100644 --- a/gdb/testsuite/gdb.fortran/subarray.exp +++ b/gdb/testsuite/gdb.fortran/subarray.exp @@ -18,10 +18,6 @@ # This file is part of the gdb testsuite. It contains tests for evaluating # Fortran subarray expression. -if $tracelevel then { - strace $tracelevel -} - if { [skip_fortran_tests] } { return -1 } set testfile "subarray" diff --git a/gdb/testsuite/gdb.fortran/types.exp b/gdb/testsuite/gdb.fortran/types.exp index 99f9fc85fe..cbfb122401 100644 --- a/gdb/testsuite/gdb.fortran/types.exp +++ b/gdb/testsuite/gdb.fortran/types.exp @@ -17,10 +17,6 @@ # This file was adapted from old Chill tests by Stan Shebs # (shebs@cygnus.com). -if $tracelevel then { - strace $tracelevel -} - load_lib "fortran.exp" if { [skip_fortran_tests] } { continue } diff --git a/gdb/testsuite/gdb.gdb/complaints.exp b/gdb/testsuite/gdb.gdb/complaints.exp index adaa47d972..5ec02ffea6 100644 --- a/gdb/testsuite/gdb.gdb/complaints.exp +++ b/gdb/testsuite/gdb.gdb/complaints.exp @@ -17,10 +17,6 @@ # derived from xfullpath.exp (written by Joel Brobecker), derived from # selftest.exp (written by Rob Savoye). -if $tracelevel then { - strace $tracelevel -} - # are we on a target board if { [is_remote target] || ![isnative] } then { diff --git a/gdb/testsuite/gdb.gdb/observer.exp b/gdb/testsuite/gdb.gdb/observer.exp index bf6741c496..47a4a113cd 100644 --- a/gdb/testsuite/gdb.gdb/observer.exp +++ b/gdb/testsuite/gdb.gdb/observer.exp @@ -16,10 +16,6 @@ # This file was written by Joel Brobecker (brobecker@gnat.com), derived # from xfullpath.exp. -if $tracelevel then { - strace $tracelevel -} - # are we on a target board if { [is_remote target] || ![isnative] } then { diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp index 91c2ee4e9a..21798bcb25 100644 --- a/gdb/testsuite/gdb.gdb/selftest.exp +++ b/gdb/testsuite/gdb.gdb/selftest.exp @@ -16,10 +16,6 @@ # This file was written by Rob Savoye. (rob@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - # are we on a target board if { [is_remote target] || ![isnative] } then { diff --git a/gdb/testsuite/gdb.gdb/xfullpath.exp b/gdb/testsuite/gdb.gdb/xfullpath.exp index 137780268d..0ebf824687 100644 --- a/gdb/testsuite/gdb.gdb/xfullpath.exp +++ b/gdb/testsuite/gdb.gdb/xfullpath.exp @@ -16,10 +16,6 @@ # This file was written by Joel Brobecker. (brobecker@gnat.com), derived # from selftest.exp, written by Rob Savoye. -if $tracelevel then { - strace $tracelevel -} - # are we on a target board if { [is_remote target] || ![isnative] } then { diff --git a/gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp b/gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp index 592b3b5b65..803c5ca084 100644 --- a/gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp +++ b/gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp @@ -24,10 +24,6 @@ global timeout # #log_user 1 -if $tracelevel then { - strace $tracelevel -} - if { [skip_hp_tests] } then { continue } set testfile optimize diff --git a/gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp b/gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp index 7ae2de6782..5ad4a3beee 100644 --- a/gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp +++ b/gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - # # test special commands # diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp index c0f08775ac..a9011ea816 100644 --- a/gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp +++ b/gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp @@ -81,10 +81,6 @@ # inferior function calls to evaluate array literals. But many people # jump to other, incorrect conclusions about this. -if $tracelevel then { - strace $tracelevel -} - if { [skip_hp_tests] } then { continue } diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp index e212905a62..253e7dc17a 100644 --- a/gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp +++ b/gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp @@ -24,10 +24,6 @@ # This file was written by Satish Pai # 1997-09-24 -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp index 4dc851666b..a4a765b758 100644 --- a/gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp +++ b/gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel - } - if { [skip_hp_tests] } then { continue } diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp index aad9aec092..00eebe86a2 100644 --- a/gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp +++ b/gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp @@ -20,10 +20,6 @@ # pxdb.exp Test that gdb calls pxdb on an application # built without it. # -if $tracelevel then { - strace $tracelevel -} - if { [skip_hp_tests] } then { continue } diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp index 39aa44a5c5..3ff4f4b4fe 100644 --- a/gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp +++ b/gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp @@ -17,10 +17,6 @@ # use this to debug: #log_user 1 -if $tracelevel { - strace $tracelevel -} - if { [skip_hp_tests] } { continue } if ![istarget "hppa*-*-*"] { diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp index edb24f62f2..15c947fd87 100644 --- a/gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp +++ b/gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp @@ -20,10 +20,6 @@ # use this to debug: #log_user 1 -if $tracelevel then { - strace $tracelevel - } - if { [skip_hp_tests] } then { continue } set testfile "reg" diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp index 8893d46ba2..082e32b519 100644 --- a/gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp +++ b/gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp @@ -22,10 +22,6 @@ # This file was written by Satish Pai # 1997-09-24 -if $tracelevel then { - strace $tracelevel - } - # # test running programs # diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp index b7e4d061d4..10a9a7a099 100644 --- a/gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp +++ b/gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel - } - if { [skip_hp_tests] } then { continue } diff --git a/gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp b/gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp index 4d266cb7b5..ca3f51f879 100644 --- a/gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp +++ b/gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel - } - if { [skip_hp_tests] } then { continue } # diff --git a/gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp b/gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp index a0789e3cdf..821641ae7f 100644 --- a/gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp +++ b/gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel - } - if { [skip_hp_tests] } then { continue } global message diff --git a/gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp b/gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp index c331c3718f..61c459df00 100644 --- a/gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp +++ b/gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp @@ -14,10 +14,6 @@ # along with this program. If not, see . */ -if $tracelevel then { - strace $tracelevel -} - if { [skip_hp_tests] } then { continue } set testfile1 "average" diff --git a/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp b/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp index abd4e6f1b6..27985ff75d 100644 --- a/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp +++ b/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp @@ -4,10 +4,6 @@ # # Source file: bs14602.c -if $tracelevel { - strace $tracelevel -} - if { [skip_hp_tests] } { continue } # diff --git a/gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp b/gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp index 4b65d67649..30d08380f8 100644 --- a/gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp +++ b/gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp @@ -44,10 +44,6 @@ # # -if $tracelevel { - strace $tracelevel -} - if { [skip_hp_tests] } { continue } diff --git a/gdb/testsuite/gdb.java/jmain.exp b/gdb/testsuite/gdb.java/jmain.exp index 8e9d7c62ad..8bb82b15e3 100644 --- a/gdb/testsuite/gdb.java/jmain.exp +++ b/gdb/testsuite/gdb.java/jmain.exp @@ -16,10 +16,6 @@ # This file was based on jmisc.exp which in turn was written by # Anthony Green. (green@redhat.com) -if $tracelevel then { - strace $tracelevel -} - load_lib "java.exp" if { [skip_java_tests] } { continue } diff --git a/gdb/testsuite/gdb.java/jmisc.exp b/gdb/testsuite/gdb.java/jmisc.exp index 050ea56108..9ca35b8f35 100644 --- a/gdb/testsuite/gdb.java/jmisc.exp +++ b/gdb/testsuite/gdb.java/jmisc.exp @@ -16,10 +16,6 @@ # This file was written by Anthony Green. (green@redhat.com) # -if $tracelevel then { - strace $tracelevel -} - load_lib "java.exp" if { [skip_java_tests] } { continue } diff --git a/gdb/testsuite/gdb.java/jnpe.exp b/gdb/testsuite/gdb.java/jnpe.exp index 85daf9d66b..dc76bc82c1 100644 --- a/gdb/testsuite/gdb.java/jnpe.exp +++ b/gdb/testsuite/gdb.java/jnpe.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "java.exp" set testfile "jnpe" diff --git a/gdb/testsuite/gdb.java/jprint.exp b/gdb/testsuite/gdb.java/jprint.exp index c11be67498..97660e604e 100644 --- a/gdb/testsuite/gdb.java/jprint.exp +++ b/gdb/testsuite/gdb.java/jprint.exp @@ -16,10 +16,6 @@ # This file was written by Jeff Johnston. (jjohnstn@redhat.com) # -if $tracelevel then { - strace $tracelevel -} - load_lib "java.exp" if { [skip_java_tests] } { continue } diff --git a/gdb/testsuite/gdb.java/jv-exp.exp b/gdb/testsuite/gdb.java/jv-exp.exp index d3c7c0e517..bea701b489 100644 --- a/gdb/testsuite/gdb.java/jv-exp.exp +++ b/gdb/testsuite/gdb.java/jv-exp.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "java.exp" proc test_comparisons {} { diff --git a/gdb/testsuite/gdb.java/jv-print.exp b/gdb/testsuite/gdb.java/jv-print.exp index 206e582800..8d868412ad 100644 --- a/gdb/testsuite/gdb.java/jv-print.exp +++ b/gdb/testsuite/gdb.java/jv-print.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "java.exp" if { [skip_java_tests] } { continue } diff --git a/gdb/testsuite/gdb.mi/mi-pending.exp b/gdb/testsuite/gdb.mi/mi-pending.exp index 91372381a8..137e289c27 100644 --- a/gdb/testsuite/gdb.mi/mi-pending.exp +++ b/gdb/testsuite/gdb.mi/mi-pending.exp @@ -16,10 +16,6 @@ load_lib mi-support.exp set MIFLAGS "-i=mi" -if $tracelevel then { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.modula2/unbounded-array.exp b/gdb/testsuite/gdb.modula2/unbounded-array.exp index 485de0bbc4..3ab17f6a85 100644 --- a/gdb/testsuite/gdb.modula2/unbounded-array.exp +++ b/gdb/testsuite/gdb.modula2/unbounded-array.exp @@ -17,10 +17,6 @@ # the elements of an unbounded array using the Modula-2 language mode of # gdb. -if $tracelevel then { - strace $tracelevel -} - set testfile "unbounded1" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.objc/basicclass.exp b/gdb/testsuite/gdb.objc/basicclass.exp index 18c373b846..c1892cafea 100644 --- a/gdb/testsuite/gdb.objc/basicclass.exp +++ b/gdb/testsuite/gdb.objc/basicclass.exp @@ -15,10 +15,6 @@ # This file was written by Adam Fedor (fedor@gnu.org) -if $tracelevel then { - strace $tracelevel -} - set testfile "basicclass" set srcfile ${testfile}.m set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.objc/nondebug.exp b/gdb/testsuite/gdb.objc/nondebug.exp index d901b81b66..ea775fc79a 100644 --- a/gdb/testsuite/gdb.objc/nondebug.exp +++ b/gdb/testsuite/gdb.objc/nondebug.exp @@ -17,10 +17,6 @@ # This file was written by Adam Fedor (fedor@gnu.org) -if $tracelevel then { - strace $tracelevel -} - set testfile "nondebug" set srcfile ${testfile}.m set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.objc/objcdecode.exp b/gdb/testsuite/gdb.objc/objcdecode.exp index e3bbb5165f..ba2085a7e8 100644 --- a/gdb/testsuite/gdb.objc/objcdecode.exp +++ b/gdb/testsuite/gdb.objc/objcdecode.exp @@ -17,10 +17,6 @@ # This file was written by Adam Fedor (fedor@gnu.org) -if $tracelevel then { - strace $tracelevel -} - set testfile "objcdecode" set srcfile ${testfile}.m set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.objc/print.exp b/gdb/testsuite/gdb.objc/print.exp index 56725e1df6..96fb759c1e 100644 --- a/gdb/testsuite/gdb.objc/print.exp +++ b/gdb/testsuite/gdb.objc/print.exp @@ -21,10 +21,6 @@ # Test printing of various values. # NOTE: The tests here intentionally do not require an objc compiler. -if $tracelevel { - strace $tracelevel -} - load_lib "objc.exp" proc test_float_accepted {} { diff --git a/gdb/testsuite/gdb.opencl/callfuncs.exp b/gdb/testsuite/gdb.opencl/callfuncs.exp index a311953170..1ea11ebd24 100644 --- a/gdb/testsuite/gdb.opencl/callfuncs.exp +++ b/gdb/testsuite/gdb.opencl/callfuncs.exp @@ -17,10 +17,6 @@ # # Tests OpenCL function calling conventions. -if $tracelevel { - strace $tracelevel -} - load_lib opencl.exp if { [skip_opencl_tests] } { diff --git a/gdb/testsuite/gdb.opencl/convs_casts.exp b/gdb/testsuite/gdb.opencl/convs_casts.exp index d10d887913..a230392e15 100644 --- a/gdb/testsuite/gdb.opencl/convs_casts.exp +++ b/gdb/testsuite/gdb.opencl/convs_casts.exp @@ -17,10 +17,6 @@ # # Tests GDBs support for OpenCL type conversions and casts. -if $tracelevel { - strace $tracelevel -} - load_lib opencl.exp if { [skip_opencl_tests] } { diff --git a/gdb/testsuite/gdb.opencl/datatypes.exp b/gdb/testsuite/gdb.opencl/datatypes.exp index a50018da23..2993539606 100644 --- a/gdb/testsuite/gdb.opencl/datatypes.exp +++ b/gdb/testsuite/gdb.opencl/datatypes.exp @@ -17,10 +17,6 @@ # # Tests OpenCL data types. -if $tracelevel { - strace $tracelevel -} - load_lib opencl.exp if { [skip_opencl_tests] } { diff --git a/gdb/testsuite/gdb.opencl/operators.exp b/gdb/testsuite/gdb.opencl/operators.exp index 910d4f12dd..6a698f3837 100644 --- a/gdb/testsuite/gdb.opencl/operators.exp +++ b/gdb/testsuite/gdb.opencl/operators.exp @@ -17,10 +17,6 @@ # # Tests GDBs support for OpenCL operators. -if $tracelevel { - strace $tracelevel -} - load_lib opencl.exp if { [skip_opencl_tests] } { diff --git a/gdb/testsuite/gdb.opencl/vec_comps.exp b/gdb/testsuite/gdb.opencl/vec_comps.exp index eb26db437d..0e699a1ff7 100644 --- a/gdb/testsuite/gdb.opencl/vec_comps.exp +++ b/gdb/testsuite/gdb.opencl/vec_comps.exp @@ -17,10 +17,6 @@ # # Tests component access of OpenCL vectors. -if $tracelevel { - strace $tracelevel -} - load_lib opencl.exp if { [skip_opencl_tests] } { diff --git a/gdb/testsuite/gdb.opt/clobbered-registers-O2.exp b/gdb/testsuite/gdb.opt/clobbered-registers-O2.exp index b90c16469d..2559b3d0f2 100644 --- a/gdb/testsuite/gdb.opt/clobbered-registers-O2.exp +++ b/gdb/testsuite/gdb.opt/clobbered-registers-O2.exp @@ -15,10 +15,6 @@ # # This file is part of the gdb testsuite. -if $tracelevel then { - strace $tracelevel -} - # Test displaying call clobbered registers in optimized binaries. # GDB should not show incorrect values. diff --git a/gdb/testsuite/gdb.pascal/floats.exp b/gdb/testsuite/gdb.pascal/floats.exp index 6668666fde..e7122e7d0f 100644 --- a/gdb/testsuite/gdb.pascal/floats.exp +++ b/gdb/testsuite/gdb.pascal/floats.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "pascal.exp" set testfile "floats" diff --git a/gdb/testsuite/gdb.pascal/gdb11492.exp b/gdb/testsuite/gdb.pascal/gdb11492.exp index 0d03522e4b..48f7b47db3 100644 --- a/gdb/testsuite/gdb.pascal/gdb11492.exp +++ b/gdb/testsuite/gdb.pascal/gdb11492.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "pascal.exp" set testfile "gdb11492" diff --git a/gdb/testsuite/gdb.pascal/hello.exp b/gdb/testsuite/gdb.pascal/hello.exp index ce3091985e..0329acbb1c 100644 --- a/gdb/testsuite/gdb.pascal/hello.exp +++ b/gdb/testsuite/gdb.pascal/hello.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "pascal.exp" set testfile "hello" diff --git a/gdb/testsuite/gdb.pascal/integers.exp b/gdb/testsuite/gdb.pascal/integers.exp index 8cdc00ca21..68b978b16b 100644 --- a/gdb/testsuite/gdb.pascal/integers.exp +++ b/gdb/testsuite/gdb.pascal/integers.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - load_lib "pascal.exp" set testfile "integers" diff --git a/gdb/testsuite/gdb.pascal/print.exp b/gdb/testsuite/gdb.pascal/print.exp index ba6351b95b..c390a7c4ca 100644 --- a/gdb/testsuite/gdb.pascal/print.exp +++ b/gdb/testsuite/gdb.pascal/print.exp @@ -21,10 +21,6 @@ # Test printing of various values. # NOTE: The tests here intentionally do not require a pascal compiler. -if $tracelevel { - strace $tracelevel -} - load_lib "pascal.exp" proc test_float_accepted {} { diff --git a/gdb/testsuite/gdb.pascal/types.exp b/gdb/testsuite/gdb.pascal/types.exp index f9f17364d4..a5db6316ca 100644 --- a/gdb/testsuite/gdb.pascal/types.exp +++ b/gdb/testsuite/gdb.pascal/types.exp @@ -19,10 +19,6 @@ # (shebs@cygnus.com). # Adapted to pascal by Pierre Muller -if $tracelevel then { - strace $tracelevel -} - load_lib "pascal.exp" proc test_integer_literal_types_accepted {} { diff --git a/gdb/testsuite/gdb.python/lib-types.exp b/gdb/testsuite/gdb.python/lib-types.exp index ff14421349..6be49e1a9f 100644 --- a/gdb/testsuite/gdb.python/lib-types.exp +++ b/gdb/testsuite/gdb.python/lib-types.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. # It tests the types.py module. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "lib-types" diff --git a/gdb/testsuite/gdb.python/py-block.exp b/gdb/testsuite/gdb.python/py-block.exp index 4b995da170..413e2e25b5 100644 --- a/gdb/testsuite/gdb.python/py-block.exp +++ b/gdb/testsuite/gdb.python/py-block.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-block" diff --git a/gdb/testsuite/gdb.python/py-breakpoint.exp b/gdb/testsuite/gdb.python/py-breakpoint.exp index 8ed374272b..f3d409ecf6 100644 --- a/gdb/testsuite/gdb.python/py-breakpoint.exp +++ b/gdb/testsuite/gdb.python/py-breakpoint.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-breakpoint" diff --git a/gdb/testsuite/gdb.python/py-cmd.exp b/gdb/testsuite/gdb.python/py-cmd.exp index 976adf67ba..fc7cac0d74 100644 --- a/gdb/testsuite/gdb.python/py-cmd.exp +++ b/gdb/testsuite/gdb.python/py-cmd.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # for defining new GDB commands in Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp # Start with a fresh gdb. diff --git a/gdb/testsuite/gdb.python/py-events.exp b/gdb/testsuite/gdb.python/py-events.exp index 0715d3ccfa..18d3380efb 100644 --- a/gdb/testsuite/gdb.python/py-events.exp +++ b/gdb/testsuite/gdb.python/py-events.exp @@ -17,10 +17,6 @@ if [target_info exists use_gdb_stub] { return 0 } -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set libfile "py-events-shlib" diff --git a/gdb/testsuite/gdb.python/py-evsignal.exp b/gdb/testsuite/gdb.python/py-evsignal.exp index 35abddceef..d3f819a105 100644 --- a/gdb/testsuite/gdb.python/py-evsignal.exp +++ b/gdb/testsuite/gdb.python/py-evsignal.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if {[is_remote target]} { # RuntimeError: Could not find event thread kfail "python/12966" "Signal Thread 3" diff --git a/gdb/testsuite/gdb.python/py-evthreads.exp b/gdb/testsuite/gdb.python/py-evthreads.exp index 2139c9a6bb..8b540bd0d9 100644 --- a/gdb/testsuite/gdb.python/py-evthreads.exp +++ b/gdb/testsuite/gdb.python/py-evthreads.exp @@ -13,10 +13,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel then { - strace $tracelevel -} - if {[is_remote target]} { # RuntimeError: Could not find event thread kfail "python/12966" "Run to breakpoint 1" diff --git a/gdb/testsuite/gdb.python/py-finish-breakpoint.exp b/gdb/testsuite/gdb.python/py-finish-breakpoint.exp index 96ff971597..c601e85377 100644 --- a/gdb/testsuite/gdb.python/py-finish-breakpoint.exp +++ b/gdb/testsuite/gdb.python/py-finish-breakpoint.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - if {[skip_shlib_tests]} { untested py-finish-breakpoint.exp return 0 diff --git a/gdb/testsuite/gdb.python/py-finish-breakpoint2.exp b/gdb/testsuite/gdb.python/py-finish-breakpoint2.exp index 9e65d6c13e..3174be1916 100644 --- a/gdb/testsuite/gdb.python/py-finish-breakpoint2.exp +++ b/gdb/testsuite/gdb.python/py-finish-breakpoint2.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-finish-breakpoint2" diff --git a/gdb/testsuite/gdb.python/py-frame.exp b/gdb/testsuite/gdb.python/py-frame.exp index f3cb069f5f..83ff8fe78b 100644 --- a/gdb/testsuite/gdb.python/py-frame.exp +++ b/gdb/testsuite/gdb.python/py-frame.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-frame" diff --git a/gdb/testsuite/gdb.python/py-function.exp b/gdb/testsuite/gdb.python/py-function.exp index f813254ac0..b0b35b7485 100644 --- a/gdb/testsuite/gdb.python/py-function.exp +++ b/gdb/testsuite/gdb.python/py-function.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing convenience functions to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp # Start with a fresh gdb. diff --git a/gdb/testsuite/gdb.python/py-inferior.exp b/gdb/testsuite/gdb.python/py-inferior.exp index 68381381f9..ef737a4bdd 100644 --- a/gdb/testsuite/gdb.python/py-inferior.exp +++ b/gdb/testsuite/gdb.python/py-inferior.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing inferiors to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-inferior" diff --git a/gdb/testsuite/gdb.python/py-infthread.exp b/gdb/testsuite/gdb.python/py-infthread.exp index 756a7d3aa6..5fa508f0a6 100644 --- a/gdb/testsuite/gdb.python/py-infthread.exp +++ b/gdb/testsuite/gdb.python/py-infthread.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing inferior threads to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-infthread" diff --git a/gdb/testsuite/gdb.python/py-objfile-script.exp b/gdb/testsuite/gdb.python/py-objfile-script.exp index 2d6260cdd6..49632065a1 100644 --- a/gdb/testsuite/gdb.python/py-objfile-script.exp +++ b/gdb/testsuite/gdb.python/py-objfile-script.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests automagic loading of # -gdb.py scripts. -if $tracelevel then { - strace $tracelevel -} - set testfile "py-objfile-script" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.python/py-objfile.exp b/gdb/testsuite/gdb.python/py-objfile.exp index ca7471862b..c277c5947f 100644 --- a/gdb/testsuite/gdb.python/py-objfile.exp +++ b/gdb/testsuite/gdb.python/py-objfile.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the program space # support in Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-objfile" diff --git a/gdb/testsuite/gdb.python/py-parameter.exp b/gdb/testsuite/gdb.python/py-parameter.exp index 2985d68763..08538ead46 100644 --- a/gdb/testsuite/gdb.python/py-parameter.exp +++ b/gdb/testsuite/gdb.python/py-parameter.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. # It tests gdb.parameter and gdb.Parameter. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp # Start with a fresh gdb. diff --git a/gdb/testsuite/gdb.python/py-pp-maint.exp b/gdb/testsuite/gdb.python/py-pp-maint.exp index 1a2b2133bc..3115b56e80 100644 --- a/gdb/testsuite/gdb.python/py-pp-maint.exp +++ b/gdb/testsuite/gdb.python/py-pp-maint.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests Python-based # pretty-printing for the CLI. -if $tracelevel then { - strace $tracelevel -} - if [is_remote host] { untested "py-pp-maint.exp can only be run locally" return -1 diff --git a/gdb/testsuite/gdb.python/py-prettyprint.exp b/gdb/testsuite/gdb.python/py-prettyprint.exp index dc4116be29..e61422a3a6 100644 --- a/gdb/testsuite/gdb.python/py-prettyprint.exp +++ b/gdb/testsuite/gdb.python/py-prettyprint.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests Python-based # pretty-printing for the CLI. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-prettyprint" diff --git a/gdb/testsuite/gdb.python/py-progspace.exp b/gdb/testsuite/gdb.python/py-progspace.exp index 1d08325f2b..c53cf37c0f 100644 --- a/gdb/testsuite/gdb.python/py-progspace.exp +++ b/gdb/testsuite/gdb.python/py-progspace.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the program space # support in Python. -if $tracelevel then { - strace $tracelevel -} - set testfile "py-progspace" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.python/py-prompt.exp b/gdb/testsuite/gdb.python/py-prompt.exp index 4d710905bf..eacb074d2f 100644 --- a/gdb/testsuite/gdb.python/py-prompt.exp +++ b/gdb/testsuite/gdb.python/py-prompt.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # for defining the prompt in Python. -if $tracelevel then { - strace $tracelevel -} - set testfile "py-prompt" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.python/py-section-script.exp b/gdb/testsuite/gdb.python/py-section-script.exp index 56fd792cc9..9846ce861e 100644 --- a/gdb/testsuite/gdb.python/py-section-script.exp +++ b/gdb/testsuite/gdb.python/py-section-script.exp @@ -29,10 +29,6 @@ if {![istarget *-*-linux*] return } -if $tracelevel then { - strace $tracelevel -} - set testfile "py-section-script" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.python/py-symbol.exp b/gdb/testsuite/gdb.python/py-symbol.exp index aa952fb45b..b0e73c37b3 100644 --- a/gdb/testsuite/gdb.python/py-symbol.exp +++ b/gdb/testsuite/gdb.python/py-symbol.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-symbol" diff --git a/gdb/testsuite/gdb.python/py-symtab.exp b/gdb/testsuite/gdb.python/py-symtab.exp index 1e55fd3d94..f64cb57b3d 100644 --- a/gdb/testsuite/gdb.python/py-symtab.exp +++ b/gdb/testsuite/gdb.python/py-symtab.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-symbol" diff --git a/gdb/testsuite/gdb.python/py-template.exp b/gdb/testsuite/gdb.python/py-template.exp index 5fc8234347..8805611da5 100644 --- a/gdb/testsuite/gdb.python/py-template.exp +++ b/gdb/testsuite/gdb.python/py-template.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - if { [skip_cplus_tests] } { continue } set testfile "py-template" diff --git a/gdb/testsuite/gdb.python/py-type.exp b/gdb/testsuite/gdb.python/py-type.exp index 93990a9ed3..e4729ad134 100644 --- a/gdb/testsuite/gdb.python/py-type.exp +++ b/gdb/testsuite/gdb.python/py-type.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # of exposing types to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-type" diff --git a/gdb/testsuite/gdb.python/py-value.exp b/gdb/testsuite/gdb.python/py-value.exp index 038361eb02..c9d8c97f5c 100644 --- a/gdb/testsuite/gdb.python/py-value.exp +++ b/gdb/testsuite/gdb.python/py-value.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "py-value" diff --git a/gdb/testsuite/gdb.python/python.exp b/gdb/testsuite/gdb.python/python.exp index 42036dfa69..2708dcc663 100644 --- a/gdb/testsuite/gdb.python/python.exp +++ b/gdb/testsuite/gdb.python/python.exp @@ -16,10 +16,6 @@ # This file is part of the GDB testsuite. It tests the mechanism # exposing values to Python. -if $tracelevel then { - strace $tracelevel -} - load_lib gdb-python.exp set testfile "python" diff --git a/gdb/testsuite/gdb.reverse/i386-precsave.exp b/gdb/testsuite/gdb.reverse/i386-precsave.exp index a627223548..760225fdd5 100644 --- a/gdb/testsuite/gdb.reverse/i386-precsave.exp +++ b/gdb/testsuite/gdb.reverse/i386-precsave.exp @@ -24,10 +24,6 @@ if ![supports_process_record] { return } -if $tracelevel { - strace $tracelevel -} - if ![istarget "i?86-*linux*"] then { verbose "Skipping i386 reverse tests." diff --git a/gdb/testsuite/gdb.reverse/i386-reverse.exp b/gdb/testsuite/gdb.reverse/i386-reverse.exp index e85905dd02..8a4e9b3572 100644 --- a/gdb/testsuite/gdb.reverse/i386-reverse.exp +++ b/gdb/testsuite/gdb.reverse/i386-reverse.exp @@ -23,10 +23,6 @@ if ![supports_reverse] { return } -if $tracelevel { - strace $tracelevel -} - if ![istarget "i?86-*linux*"] then { verbose "Skipping i386 reverse tests." diff --git a/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp b/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp index 530b2aa4bb..0b0f7ccb02 100644 --- a/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp +++ b/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp @@ -23,10 +23,6 @@ if ![supports_reverse] { return } -if $tracelevel { - strace $tracelevel -} - if ![istarget "*86*-*linux*"] then { verbose "Skipping i386 reverse tests." diff --git a/gdb/testsuite/gdb.reverse/i387-env-reverse.exp b/gdb/testsuite/gdb.reverse/i387-env-reverse.exp index 097df644bf..0a105fd123 100644 --- a/gdb/testsuite/gdb.reverse/i387-env-reverse.exp +++ b/gdb/testsuite/gdb.reverse/i387-env-reverse.exp @@ -15,10 +15,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if ![istarget "i?86-*linux*"] then { verbose "Skipping i387 reverse float tests." diff --git a/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp b/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp index 8660ac9abc..98bc7125a8 100644 --- a/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp +++ b/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp @@ -15,10 +15,6 @@ # This file is part of the gdb testsuite. -if $tracelevel { - strace $tracelevel -} - if ![istarget "i?86-*linux*"] then { verbose "Skipping i387 reverse float tests." diff --git a/gdb/testsuite/gdb.reverse/sigall-precsave.exp b/gdb/testsuite/gdb.reverse/sigall-precsave.exp index 6916278f19..8145da2d98 100644 --- a/gdb/testsuite/gdb.reverse/sigall-precsave.exp +++ b/gdb/testsuite/gdb.reverse/sigall-precsave.exp @@ -22,10 +22,6 @@ if ![supports_reverse] { return } -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.reverse/sigall-reverse.exp b/gdb/testsuite/gdb.reverse/sigall-reverse.exp index 12362def91..791233db1b 100644 --- a/gdb/testsuite/gdb.reverse/sigall-reverse.exp +++ b/gdb/testsuite/gdb.reverse/sigall-reverse.exp @@ -22,10 +22,6 @@ if ![supports_reverse] { return } -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.stabs/exclfwd.exp b/gdb/testsuite/gdb.stabs/exclfwd.exp index 92df6f9608..8e81440afb 100644 --- a/gdb/testsuite/gdb.stabs/exclfwd.exp +++ b/gdb/testsuite/gdb.stabs/exclfwd.exp @@ -16,10 +16,6 @@ # Please email any bugs, comments, and/or additions to this file to: # bug-gdb@gnu.org -if $tracelevel { - strace $tracelevel -} - # If the test directory was not created by configure then skip # this test. if ![file isdirectory ${objdir}/${subdir}] then { diff --git a/gdb/testsuite/gdb.stabs/gdb11479.exp b/gdb/testsuite/gdb.stabs/gdb11479.exp index 1dd70d7b1e..f24d054af6 100644 --- a/gdb/testsuite/gdb.stabs/gdb11479.exp +++ b/gdb/testsuite/gdb.stabs/gdb11479.exp @@ -17,10 +17,6 @@ # Test GDB stabs problem with qualified parameter of forward types. -if $tracelevel then { - strace $tracelevel -} - set testfile "gdb11479" diff --git a/gdb/testsuite/gdb.stabs/weird.exp b/gdb/testsuite/gdb.stabs/weird.exp index 1569cdb529..80bc2841c8 100644 --- a/gdb/testsuite/gdb.stabs/weird.exp +++ b/gdb/testsuite/gdb.stabs/weird.exp @@ -17,10 +17,6 @@ # Test that GDB properly ignores invalid stabs. # Also test that GDB can debug a .o file, and that it doesn't mind # a file that's more minimal than what a compiler normally puts out. -if $tracelevel then { - strace $tracelevel -} - # If the test directory was not created by configure then skip # this test. if ![file isdirectory ${objdir}/${subdir}] then { diff --git a/gdb/testsuite/gdb.threads/bp_in_thread.exp b/gdb/testsuite/gdb.threads/bp_in_thread.exp index ef8cc3f7ad..0ec7054eee 100644 --- a/gdb/testsuite/gdb.threads/bp_in_thread.exp +++ b/gdb/testsuite/gdb.threads/bp_in_thread.exp @@ -18,10 +18,6 @@ # GDB reported a SIGTRAP signal in a random thread when hitting # a breakpoint. -if $tracelevel then { - strace $tracelevel -} - set testfile "bp_in_thread" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.threads/gcore-thread.exp b/gdb/testsuite/gdb.threads/gcore-thread.exp index 62d6af1c2e..dfb231477a 100644 --- a/gdb/testsuite/gdb.threads/gcore-thread.exp +++ b/gdb/testsuite/gdb.threads/gcore-thread.exp @@ -16,10 +16,6 @@ # This file was written by Michael Snyder (msnyder@redhat.com) # This is a test for the gdb command "generate-core-file". -if $tracelevel then { - strace $tracelevel -} - # Single-threaded test case set testfile "gcore-thread" set srcfile pthreads.c diff --git a/gdb/testsuite/gdb.threads/hand-call-in-threads.exp b/gdb/testsuite/gdb.threads/hand-call-in-threads.exp index 707fb4466f..ba0e74b98d 100644 --- a/gdb/testsuite/gdb.threads/hand-call-in-threads.exp +++ b/gdb/testsuite/gdb.threads/hand-call-in-threads.exp @@ -18,10 +18,6 @@ set NR_THREADS 4 -if $tracelevel then { - strace $tracelevel -} - set testfile "hand-call-in-threads" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.threads/interrupted-hand-call.exp b/gdb/testsuite/gdb.threads/interrupted-hand-call.exp index 8c22bd3c85..926c612a73 100644 --- a/gdb/testsuite/gdb.threads/interrupted-hand-call.exp +++ b/gdb/testsuite/gdb.threads/interrupted-hand-call.exp @@ -19,10 +19,6 @@ set NR_THREADS 4 -if $tracelevel then { - strace $tracelevel -} - set testfile "interrupted-hand-call" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.threads/killed.exp b/gdb/testsuite/gdb.threads/killed.exp index c9c6397039..fa99e6e9c1 100644 --- a/gdb/testsuite/gdb.threads/killed.exp +++ b/gdb/testsuite/gdb.threads/killed.exp @@ -54,10 +54,6 @@ # [7]+ Killed $D6/gdb/gdb -nw killed # $ -if $tracelevel then { - strace $tracelevel -} - set testfile "killed" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/linux-dp.exp b/gdb/testsuite/gdb.threads/linux-dp.exp index b211aa242b..d7fa1259d5 100644 --- a/gdb/testsuite/gdb.threads/linux-dp.exp +++ b/gdb/testsuite/gdb.threads/linux-dp.exp @@ -33,10 +33,6 @@ ### killing and restarting ### quitting gracefully -if $tracelevel then { - strace $tracelevel -} - # This only works with Linux configurations. if ![istarget *-*-linux-gnu*] then { diff --git a/gdb/testsuite/gdb.threads/manythreads.exp b/gdb/testsuite/gdb.threads/manythreads.exp index 1c13b427a1..42333e6b7f 100644 --- a/gdb/testsuite/gdb.threads/manythreads.exp +++ b/gdb/testsuite/gdb.threads/manythreads.exp @@ -16,10 +16,6 @@ # This file was written by Jeff Johnston. (jjohnstn@redhat.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "manythreads" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/print-threads.exp b/gdb/testsuite/gdb.threads/print-threads.exp index 97c8cf6e9f..b5a99fee0c 100644 --- a/gdb/testsuite/gdb.threads/print-threads.exp +++ b/gdb/testsuite/gdb.threads/print-threads.exp @@ -20,10 +20,6 @@ # It tests miscellaneous actions with multiple threads, including # handling for thread exit. -if $tracelevel then { - strace $tracelevel -} - set testfile "print-threads" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/pthread_cond_wait.exp b/gdb/testsuite/gdb.threads/pthread_cond_wait.exp index 283545af44..fc2942e07a 100644 --- a/gdb/testsuite/gdb.threads/pthread_cond_wait.exp +++ b/gdb/testsuite/gdb.threads/pthread_cond_wait.exp @@ -19,10 +19,6 @@ # This file verifies that GDB is able to compute a backtrace for a thread # being blocked on a call to pthread_cond_wait(). -if $tracelevel then { - strace $tracelevel -} - set testfile "pthread_cond_wait" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.threads/pthreads.exp b/gdb/testsuite/gdb.threads/pthreads.exp index 31008ca136..e216993cd5 100644 --- a/gdb/testsuite/gdb.threads/pthreads.exp +++ b/gdb/testsuite/gdb.threads/pthreads.exp @@ -16,10 +16,6 @@ # This file was written by Fred Fish. (fnf@cygnus.com) -if $tracelevel then { - strace $tracelevel -} - set testfile "pthreads" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/schedlock.exp b/gdb/testsuite/gdb.threads/schedlock.exp index 2c34a89f11..522559c1b2 100644 --- a/gdb/testsuite/gdb.threads/schedlock.exp +++ b/gdb/testsuite/gdb.threads/schedlock.exp @@ -19,10 +19,6 @@ # # This test covers the various forms of "set scheduler-locking". -if $tracelevel then { - strace $tracelevel -} - set testfile "schedlock" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/staticthreads.exp b/gdb/testsuite/gdb.threads/staticthreads.exp index bb65156b3a..a073d556fd 100644 --- a/gdb/testsuite/gdb.threads/staticthreads.exp +++ b/gdb/testsuite/gdb.threads/staticthreads.exp @@ -18,10 +18,6 @@ # Based on manythreads written by Jeff Johnston, contributed by Red # Hat. -if $tracelevel then { - strace $tracelevel -} - set testfile "staticthreads" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/step.exp b/gdb/testsuite/gdb.threads/step.exp index 6b6d2ccd44..1f370f0684 100644 --- a/gdb/testsuite/gdb.threads/step.exp +++ b/gdb/testsuite/gdb.threads/step.exp @@ -33,10 +33,6 @@ # catch the fact it continued rather than stepped) -if $tracelevel then { - strace $tracelevel -} - set program_exited 0 proc set_bp { where } { diff --git a/gdb/testsuite/gdb.threads/step2.exp b/gdb/testsuite/gdb.threads/step2.exp index 42a279b0e5..811f95a38e 100644 --- a/gdb/testsuite/gdb.threads/step2.exp +++ b/gdb/testsuite/gdb.threads/step2.exp @@ -18,10 +18,6 @@ # -if $tracelevel then { - strace $tracelevel -} - set program_exited 0 # A simple and crude test to see that we can step two threads independently diff --git a/gdb/testsuite/gdb.threads/switch-threads.exp b/gdb/testsuite/gdb.threads/switch-threads.exp index 7a0e261695..1561e5b0fe 100644 --- a/gdb/testsuite/gdb.threads/switch-threads.exp +++ b/gdb/testsuite/gdb.threads/switch-threads.exp @@ -23,10 +23,6 @@ # TODO: we should also test explicitly changing threads with the "thread" # command. -if $tracelevel then { - strace $tracelevel -} - set testfile "switch-threads" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.threads/thread-find.exp b/gdb/testsuite/gdb.threads/thread-find.exp index cce83fc416..f39886c001 100644 --- a/gdb/testsuite/gdb.threads/thread-find.exp +++ b/gdb/testsuite/gdb.threads/thread-find.exp @@ -16,10 +16,6 @@ # Please email any bugs, comments, and/or additions to this file to: # bug-gdb@gnu.org -if $tracelevel then { - strace $tracelevel -} - set testfile "linux-dp" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.threads/thread-specific.exp b/gdb/testsuite/gdb.threads/thread-specific.exp index d914fe22fe..6e22dded0a 100644 --- a/gdb/testsuite/gdb.threads/thread-specific.exp +++ b/gdb/testsuite/gdb.threads/thread-specific.exp @@ -17,10 +17,6 @@ # It tests that the correct breakpoint is reported when we hit a # thread-specific breakpoint inserted for several threads. -if $tracelevel then { - strace $tracelevel -} - set testfile "thread-specific" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/thread-unwindonsignal.exp b/gdb/testsuite/gdb.threads/thread-unwindonsignal.exp index 302a9d1e2e..bacbe4c0f7 100644 --- a/gdb/testsuite/gdb.threads/thread-unwindonsignal.exp +++ b/gdb/testsuite/gdb.threads/thread-unwindonsignal.exp @@ -18,10 +18,6 @@ set NR_THREADS 4 -if $tracelevel then { - strace $tracelevel -} - set testfile "interrupted-hand-call" set srcfile ${testfile}.c set binfile ${objdir}/${subdir}/${testfile} diff --git a/gdb/testsuite/gdb.threads/thread_check.exp b/gdb/testsuite/gdb.threads/thread_check.exp index 18446ca945..1a4526d8e2 100644 --- a/gdb/testsuite/gdb.threads/thread_check.exp +++ b/gdb/testsuite/gdb.threads/thread_check.exp @@ -31,10 +31,6 @@ # - delete all breakpoints # - exit gdb. -if $tracelevel then { - strace $tracelevel -} - set testfile "thread_check" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/thread_events.exp b/gdb/testsuite/gdb.threads/thread_events.exp index 176c90ba50..2b69eb8449 100644 --- a/gdb/testsuite/gdb.threads/thread_events.exp +++ b/gdb/testsuite/gdb.threads/thread_events.exp @@ -33,10 +33,6 @@ if [is_remote target] then { return } -if $tracelevel then { - strace $tracelevel -} - set testfile "thread_events" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/threadapply.exp b/gdb/testsuite/gdb.threads/threadapply.exp index 7ec3f6765d..a46ceebc1d 100644 --- a/gdb/testsuite/gdb.threads/threadapply.exp +++ b/gdb/testsuite/gdb.threads/threadapply.exp @@ -15,10 +15,6 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if $tracelevel { - strace $tracelevel -} - # This test verifies that a macro using backtrace can be applied to all threads # and will continue for each thread even though an error may occur in diff --git a/gdb/testsuite/gdb.threads/tls-shared.exp b/gdb/testsuite/gdb.threads/tls-shared.exp index ac3c4c5152..f6457292b5 100644 --- a/gdb/testsuite/gdb.threads/tls-shared.exp +++ b/gdb/testsuite/gdb.threads/tls-shared.exp @@ -16,10 +16,6 @@ # tls-shared.exp -- Expect script to test thread local storage in gdb, with # shared libraries. -if $tracelevel then { - strace $tracelevel -} - set testfile tls-main set libfile tls-shared set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.threads/watchthreads.exp b/gdb/testsuite/gdb.threads/watchthreads.exp index d9fc87c2ab..c18505e394 100644 --- a/gdb/testsuite/gdb.threads/watchthreads.exp +++ b/gdb/testsuite/gdb.threads/watchthreads.exp @@ -17,10 +17,6 @@ # Check that GDB can support multiple watchpoints across threads. -if $tracelevel { - strace $tracelevel -} - # This test verifies that a watchpoint is detected in the proper thread # so the test is only meaningful on a system with hardware watchpoints. diff --git a/gdb/testsuite/gdb.threads/watchthreads2.exp b/gdb/testsuite/gdb.threads/watchthreads2.exp index ef4fa29233..aaa3430715 100644 --- a/gdb/testsuite/gdb.threads/watchthreads2.exp +++ b/gdb/testsuite/gdb.threads/watchthreads2.exp @@ -21,10 +21,6 @@ set NR_THREADS 4 set X_INCR_COUNT 10 -if $tracelevel { - strace $tracelevel -} - # This test verifies that a watchpoint is detected in the proper thread # so the test is only meaningful on a system with hardware watchpoints. diff --git a/gdb/testsuite/gdb.trace/actions.exp b/gdb/testsuite/gdb.trace/actions.exp index e337fb3eb2..18c778a83f 100644 --- a/gdb/testsuite/gdb.trace/actions.exp +++ b/gdb/testsuite/gdb.trace/actions.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/ax.exp b/gdb/testsuite/gdb.trace/ax.exp index 2b2a1cd6af..aa25f6cd41 100644 --- a/gdb/testsuite/gdb.trace/ax.exp +++ b/gdb/testsuite/gdb.trace/ax.exp @@ -20,10 +20,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/backtrace.exp b/gdb/testsuite/gdb.trace/backtrace.exp index 07aed30b1f..f68344283c 100644 --- a/gdb/testsuite/gdb.trace/backtrace.exp +++ b/gdb/testsuite/gdb.trace/backtrace.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/change-loc.exp b/gdb/testsuite/gdb.trace/change-loc.exp index ec3c555a1f..451a0e1c67 100644 --- a/gdb/testsuite/gdb.trace/change-loc.exp +++ b/gdb/testsuite/gdb.trace/change-loc.exp @@ -14,10 +14,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - if {[skip_shlib_tests]} { return 0 } diff --git a/gdb/testsuite/gdb.trace/circ.exp b/gdb/testsuite/gdb.trace/circ.exp index a0c8e8d232..61a523560b 100644 --- a/gdb/testsuite/gdb.trace/circ.exp +++ b/gdb/testsuite/gdb.trace/circ.exp @@ -15,10 +15,6 @@ load_lib "trace-support.exp" -if $tracelevel then { - strace $tracelevel -} - set testfile "circ" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.trace/collection.exp b/gdb/testsuite/gdb.trace/collection.exp index c80334b47e..9398248cc2 100644 --- a/gdb/testsuite/gdb.trace/collection.exp +++ b/gdb/testsuite/gdb.trace/collection.exp @@ -15,10 +15,6 @@ load_lib "trace-support.exp" -if $tracelevel then { - strace $tracelevel -} - set testfile "collection" set srcfile ${testfile}.c diff --git a/gdb/testsuite/gdb.trace/deltrace.exp b/gdb/testsuite/gdb.trace/deltrace.exp index 3664d7a2a2..6baf1d2ab9 100644 --- a/gdb/testsuite/gdb.trace/deltrace.exp +++ b/gdb/testsuite/gdb.trace/deltrace.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/infotrace.exp b/gdb/testsuite/gdb.trace/infotrace.exp index f8237e75c6..5a99d16e28 100644 --- a/gdb/testsuite/gdb.trace/infotrace.exp +++ b/gdb/testsuite/gdb.trace/infotrace.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/packetlen.exp b/gdb/testsuite/gdb.trace/packetlen.exp index e9e42b8349..ccc43841b9 100644 --- a/gdb/testsuite/gdb.trace/packetlen.exp +++ b/gdb/testsuite/gdb.trace/packetlen.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp" -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/passc-dyn.exp b/gdb/testsuite/gdb.trace/passc-dyn.exp index b8d3a14e61..1ec120e11f 100644 --- a/gdb/testsuite/gdb.trace/passc-dyn.exp +++ b/gdb/testsuite/gdb.trace/passc-dyn.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/passcount.exp b/gdb/testsuite/gdb.trace/passcount.exp index b91cdbdf4c..a56c84662d 100644 --- a/gdb/testsuite/gdb.trace/passcount.exp +++ b/gdb/testsuite/gdb.trace/passcount.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/pending.exp b/gdb/testsuite/gdb.trace/pending.exp index 3b246c9e9a..9dc8706acb 100644 --- a/gdb/testsuite/gdb.trace/pending.exp +++ b/gdb/testsuite/gdb.trace/pending.exp @@ -14,10 +14,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - if {[skip_shlib_tests]} { return 0 } diff --git a/gdb/testsuite/gdb.trace/report.exp b/gdb/testsuite/gdb.trace/report.exp index 2d9d7855f1..2f2962a3a0 100644 --- a/gdb/testsuite/gdb.trace/report.exp +++ b/gdb/testsuite/gdb.trace/report.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/save-trace.exp b/gdb/testsuite/gdb.trace/save-trace.exp index d0db3a694e..e5cada7b12 100644 --- a/gdb/testsuite/gdb.trace/save-trace.exp +++ b/gdb/testsuite/gdb.trace/save-trace.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/strace.exp b/gdb/testsuite/gdb.trace/strace.exp index 5348432ada..4d6ea10137 100644 --- a/gdb/testsuite/gdb.trace/strace.exp +++ b/gdb/testsuite/gdb.trace/strace.exp @@ -14,10 +14,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - if {[skip_shlib_tests]} { return 0 } diff --git a/gdb/testsuite/gdb.trace/tfile.exp b/gdb/testsuite/gdb.trace/tfile.exp index 7e996a4d97..391dfbb965 100644 --- a/gdb/testsuite/gdb.trace/tfile.exp +++ b/gdb/testsuite/gdb.trace/tfile.exp @@ -27,10 +27,6 @@ if [target_info exists gdb,nofileio] { continue } -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/tfind.exp b/gdb/testsuite/gdb.trace/tfind.exp index 8e9d066e52..ec0ba11e69 100644 --- a/gdb/testsuite/gdb.trace/tfind.exp +++ b/gdb/testsuite/gdb.trace/tfind.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/tracecmd.exp b/gdb/testsuite/gdb.trace/tracecmd.exp index 10cf27fed9..15811664f6 100644 --- a/gdb/testsuite/gdb.trace/tracecmd.exp +++ b/gdb/testsuite/gdb.trace/tracecmd.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/tsv.exp b/gdb/testsuite/gdb.trace/tsv.exp index 4fc180d2c4..373bc420d0 100644 --- a/gdb/testsuite/gdb.trace/tsv.exp +++ b/gdb/testsuite/gdb.trace/tsv.exp @@ -15,10 +15,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/while-dyn.exp b/gdb/testsuite/gdb.trace/while-dyn.exp index 547f0b8a01..f71f3a417e 100644 --- a/gdb/testsuite/gdb.trace/while-dyn.exp +++ b/gdb/testsuite/gdb.trace/while-dyn.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp" -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.trace/while-stepping.exp b/gdb/testsuite/gdb.trace/while-stepping.exp index 0ee27fd2d9..0e53815347 100644 --- a/gdb/testsuite/gdb.trace/while-stepping.exp +++ b/gdb/testsuite/gdb.trace/while-stepping.exp @@ -17,10 +17,6 @@ load_lib "trace-support.exp"; -if $tracelevel then { - strace $tracelevel -} - gdb_exit gdb_start