From: Pedro Alves Date: Mon, 16 Jan 2012 16:21:53 +0000 (+0000) Subject: 2012-01-16 Pedro Alves X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=97ccebe869a69550b5a89a59b99955fb783f2b81;p=binutils-gdb.git 2012-01-16 Pedro Alves Remove all calls to strace. --- diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 9adc9874cfd..63506504b85 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 b47ef3acc9f..a726e71d5b4 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 f5f1d68a38d..c72f8cfbc02 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 cfad5a06cb4..aa10b272656 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 0373cc315f2..f8c087d6971 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 5c6ae000dbb..d1549df2719 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 d80ee8e08ce..192feb12f15 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 1aa49e8e7e8..c27e6d02366 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 2acbfca1151..e0ac2146f5e 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 e79c5c1f5c8..52a68236dae 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 9243e86a11d..1b99252e80b 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 033690384ee..f132355721b 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 53ac32df16e..e43772116db 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 1b65efabd09..4a0f2b4859c 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 6f5f1e8a8ea..b2aed95567b 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 bc40dad262f..1f7b9c2ca99 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 7597877b774..4a3792b80e0 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 ef9a56b8e50..764cd57fc18 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 2c85526152b..1d0f9605ebb 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 e5bf2e1f260..d86a00b1181 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 a7ad0677c71..8341dca43c6 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 c83f63a738e..98c1a440ced 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 1c76a1e6b7e..6dabf34dea1 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 09f15bcb12a..b73c74a9c65 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 8321eb622bd..ac0da83ee15 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 d535ca23a74..a81135ac022 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 d8d2f201720..51705bc6a2f 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 fd348385a67..ae21a5374ca 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 e3beec5ef9c..9e1468751aa 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 38a9bb962f4..fe972451f79 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 be8deceb2d6..079577bf87c 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 d449e3cbea9..4de3a269ef0 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 ab0ef3a4022..97508b23efc 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 80dd44f033f..678639cba42 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 e671d73a04d..3cf8a2895ad 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 e51356c0f0b..35dfcc6b85d 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 aff00e86344..371dd513cf8 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 944d90b3822..75d381291f3 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 2fb63e60a9e..03f8d8f3da6 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 c56d82fee02..d7107297b95 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 e291d11e366..06fe4e63464 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 8f860830f11..82fcc6163f6 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 7d157ce46fa..8036723ec2e 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 c36db3f02ea..6ba180d0bca 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 850be591792..b0db6aacc27 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 9e868a42047..7a8765a7b7d 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 8102c1e7981..b934ccc6c6b 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 780667d6208..6cc316eb43e 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 59b6396f08a..46a77ffbf0f 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 3d1f07c0b20..ce6782f7ef1 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 3e57d8bf655..32b4136633d 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 54a18058a61..0ce240e470d 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 2e5f93d614e..34bd3de789c 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 7961117f7b8..1cb9ecaf494 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 53631ef0619..3008b116f92 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 994b23cb09f..9bbe33f1f46 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 53cba8e67b8..6ed61079a1c 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 c966f6343d6..87f6332356f 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 a890f35c2a8..e7bb167304b 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 d2ac584138f..ed427162248 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 47d5ba04df2..4eaa4214f86 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 5e04f05542c..d09885d4d9f 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 72f90af9678..d2b13abade9 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 7210756bf6d..a5e673d4413 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 5a0212d301e..02c085c528e 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 99a5b304d3f..2142bfbe858 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 4fa41b57416..7446cce2d52 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 67f4332f938..87b9f671e5d 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 e66af42ef67..0ef25d17383 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 50c81fa89a1..026f956df9f 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 d13fad87384..c4b212fc2dd 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 b4e3db450f5..8a51be5f219 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 7f48514f3bc..d7b41cc3155 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 414abb7c17f..df3b3738f9b 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 21a701eede9..2e724aa77e0 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 59d359f457a..23cbabc862e 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 c46cd099be6..241d939fade 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 1a4e4088c50..1a868bd9f5a 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 a8be6f70e5f..4ae59434853 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 701e42843c0..317b9f7d99e 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 77e7ca75d12..e3223d98000 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 241dd4fd099..860e68eec02 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 18d780112e7..5e952d8e9be 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 a44a5ac204a..d08424b0a4e 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 41a4865646e..2eff7fb7dcf 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 b96b136b148..53998d3acb0 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 c5e67244b97..ab97f6969e5 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 7a0bf577a98..82201a3f33b 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 18f9a7bc49b..9c2435ba355 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 c069851ee35..4e3b54bd899 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 c4fc63f9cbd..456268d18ae 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 94ec1d11562..0ac81857130 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 8639bb1c7a3..66f96e7b373 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 c20d6413419..82abc0a1dde 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 d9473a57192..4b812de0985 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 6037e0dd5bb..b8a3856ab9c 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 ed8e17a5379..cba0024e4a0 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 db639eb67a2..8fb87d9d972 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 8aaf3d30c4f..4acd153a7cf 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 f28a537b2af..87a22deab07 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 e0f4cb4ff5d..da10f058a46 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 1d7365a0808..77b10d6e7d3 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 72c9643c634..26ac7ffa4d9 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 a2ef54abeac..2e05da5dd7e 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 6734ea10bd9..3098ffdb4af 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 3da53b92b0f..137090b5fe0 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 dab4fd0e046..bfb3a12f6e9 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 4f139999275..fc71a5fdd6c 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 d0a0e861bfe..50ca37c1f51 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 078369a1738..a53118870f2 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 fda75f22d95..135010cf120 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 9c67941bfb3..1c4517def35 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 6d96fcf9915..43d7ef67c81 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 50c50ead8f0..c4d1ec56a00 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 765be20eba6..c48fa60725d 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 651633b4e47..47cf9548172 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 2aec4249aac..fabe39d53ec 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 dac300886c7..ec5b4c83063 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 9c91de158df..fe95305236f 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 7369a9c113d..b8ef629a035 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 0be5c45aa18..e26dac06074 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 06ccfd67355..35fb537ef28 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 1de9a93998d..ff403b5a150 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 e9d61bac5e1..9b51034ae30 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 b8067291d70..fb82e561e78 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 03d4bd11e2b..c3edaf6461f 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 e5d64bdf748..7764d0402f2 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 a91efd1fa08..027eb2c6437 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 808f6beaeff..ce7736364d7 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 b9c4f53d998..d836d4a5c3e 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 cfd63301922..843d637d7ad 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 a0b5377e0de..889eca828cf 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 ddeb78c412c..1a37330f69e 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 9bfb828b458..11fe3f4dfea 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 b27e727f72c..58f71568baf 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 d0628e05eb6..a59065a3212 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 b4843466cee..4136cc1b6fc 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 a59c71b790a..44cccbf5292 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 e50ef988b16..f704396450a 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 3e549c0ea9a..2e5cdb1717e 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 60536fb82ad..2466c81be1a 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 8b703398da0..8e296d37a5b 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 c6413f15bc1..150b58ea936 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 93ea864abe7..25f3bda55d3 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 67c89f09eac..f46a8e6dcca 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 6ce3e01e2c2..e8760da8d52 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 2f33973a91e..664481c6df9 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 dc96af54dc0..c782ffcc4ad 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 59f51c51cc7..c4aee67eafe 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 4e7508839f6..448102bde82 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 d349f93a0b2..14e58724926 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 f1236cf0a91..0b5534a3542 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 a8c565a9aee..7736bb8b578 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 8b220d68958..faa8fa7f520 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 fce0d876944..5c46ed629d7 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 59b36b921ab..f9a2b2625f5 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 705b4f43624..ba222c2078b 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 ab3a77b86ed..4f5b89c5183 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 0d36b6e1252..ef1e0677681 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 be3aa759116..11bed5ddd02 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 72935d8de67..0499f6ce9f3 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 d052b58e1a5..a1c12538343 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 36ca8b20be7..d07f6043421 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 1042fd44abf..2edde4099ee 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 99e2a236b86..e471e513567 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 7196116c9d5..78ae6cdbd86 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 d452c5d00bf..cb9f508ccb8 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 4280abd9f23..fbd62f95e37 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 5817535f5fe..84ac7e6aeef 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 6a7f7c8e0a8..621cbd03ca3 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 6b3e0f594ff..06846ec1389 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 8807a65dd8c..b28f9037e7e 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 eba8116b7ea..a1aa351f5ed 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 3ccc334e11e..a5577e2ed05 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 fa55c117b73..c511cb9454c 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 7c2498056ec..e041b016061 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 0edbfe0b289..79f9091730f 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 f87c17bac52..d1358c374e0 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 1c5bcf365ba..0df5555effe 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 fd33bfd2371..a699d0bda97 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 9b314ce1503..d5af26ee875 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 aed9b8d7d16..fa2173a417e 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 1d0f4195f91..1c99150f56f 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 42a20e8e837..40658089977 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 e12ecae711a..8e963c1a64a 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 5eec2f60d1b..caafe0525c8 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 fa98cf3f821..4b08b66c3dd 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 477c01b96f1..344a8048389 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 8602de99da6..4c44f8e2a00 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 484f1a64570..b7ad2659bd7 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 d1405aca33e..a0176616285 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 5e72126e73d..06298077a03 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 3a884312bba..9d74eef3b86 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 53184b03d0d..7c0c5866c78 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 d5868c40061..bd29581d325 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 8078eac6471..c11857d9440 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 dbb9bbc315d..71196bd7e19 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 d647ca82b95..c932f94e30f 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 2606dd22d7e..06674b121cf 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 c69dcf4d781..674ce45faf4 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 ff711865c19..adb4cd4dd2c 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 39ac713f0d7..758232dc5ea 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 e7538a40bbd..2445aecfff7 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 0dadc788cce..cbc98710857 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 3f046bc25b9..320b3a3492b 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 26b77d765fc..c1ee625b166 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 b37689e4da7..4d570c0bcbf 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 5cb07ce6698..960597e8e01 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 c9fe99899b3..8f5078757d7 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 9549dbd05d4..d51f39b6040 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 9b6bd11b1b6..2a0929ffba5 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 68ba2fefc0a..e9b950c0faf 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 22a0f574b85..8c7ea153b74 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 8837e1f1d2e..394afc915b3 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 70592264be5..a86e02d34a9 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 bd84473941a..8aeabe80d31 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 7b8d2036936..eb0ad2b670e 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 5ddf4aa4b59..5341bc9180b 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 80bd438875f..2104739334f 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 90f26457a50..79b97bb08a4 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 029de07d5d7..a24fbba25fb 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 5594d39adbf..5b597edd06c 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 c8a574582fb..9b3e251ed4d 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 93f3c3d02b8..559a0a2e854 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 e8d33d882b2..1f2bab7e5f0 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 75e4d9837ba..854f151eb91 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 d79941ec8a9..ebe0a1748a0 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 a56d136025f..d68d310e4d6 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 3747400f548..9ca649dae87 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 bb4f0a42fa2..f9bdf32dc8c 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 a9e60eebb32..334b80e8f16 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 c76e153eae0..9a59fb4b2da 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 77c51b3086b..546d194cee0 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 3768c887dc1..fb290cddb17 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 dcd0f650c2c..a8b29705c5b 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 d837508374f..ab36a9e5601 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 daf8ece2878..464f1281bf5 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 a73dea6689e..78ad41c0fca 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 c8e80564c29..9e598d957f7 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 b09ba448055..df82bc8124a 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 8781d585dbe..4d5a957f55d 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 b24ad8e79ea..c572f80f1a7 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 d849f03c9aa..8e5e2482bf1 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 1e552014c7f..1966f4e472e 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 abb4a0a9647..e02174a24c6 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 ebb198a3ceb..cf713041b83 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 c24db83521e..e68ab6c8bcd 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 fb377bfeb21..2d505d3fdba 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 525be9a8ff3..b604b674be6 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 fbadc08e927..769716077a9 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 ff337fe11c4..55e30887c8a 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 02f610ae1f3..b21db1766ec 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 dd92bad2f43..41f9bdc6b55 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 5e1e14a7e72..999fb1d3d27 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 03d6635cca0..5ab0fcda180 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 cbaccaf1a40..6b647cdd5b9 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 ab7d4f0c66b..3e22679d907 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 16a517efd23..7a3e121cac1 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 b876f0f74ff..827c28f5d8c 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 dbf37582f7c..630763b20a9 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 b9433ceff9b..107c77c6336 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 1860368b513..ba13a0cc10a 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 b8b27dc5144..8edd62c240a 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 7ca9896c2c6..2c50854c9ef 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 825eb7fe503..9198ef28aff 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 b03eb8cad14..539b32de09b 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 99e396dac4d..41e1cc52857 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 40036292d4d..112fb85f31c 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 a8db27576db..fe30ef1f193 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 6c59cdc650e..9eb39856ffe 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 e33ebe9b2f3..9bf1810192b 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 1072ff02871..53b29c35539 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 23df2427f0e..95b4b4e619c 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 c0fc79db27d..a4327e80fcd 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 93fab9465de..84569ab58a1 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 7c2e63ed410..6a952454f17 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 3793f91e233..ae43630a1c2 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 48dcca14bcd..9161351a416 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 6b5e14e1205..13af2656ce6 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 6aa5445ac17..5bca25e97f2 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 46c3a1f3521..17a76d3e9ca 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 14ce0b0bd85..c6e94914dc9 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 57bf4161005..eafaad6e404 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 5cff73ba221..04dd6de2d2e 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 34cb7c5e5d7..ff274392921 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 f58427970ad..140260c61d8 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 0ee27c4eae3..ee78acd7004 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 5dbc2266402..1f76ffa91af 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 2025a2014cd..0b83ced9722 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 c970d03bcbc..74e758b830c 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 ce282838998..e720583609f 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 71620a25067..1ef956eeff0 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 0b8f29032b4..563d70108e9 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 f576b310f69..768664a1a3b 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 bff7ac5ba30..c13b62c70e8 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 1a29d35da31..bf00c26bbc2 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 dfb25cc1410..128f9f77961 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 4b9a37dafaa..7eb237d7555 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 3fe24c3ac44..b862bc6a3b7 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 6e7bf1181c8..a3ea820b59b 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 f0a934b772e..15506ae33c4 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 e0789de7db8..ccbd97f9135 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 2224628f977..7d4a0c57178 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 f8617d120ff..5da4a0c5256 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 deeca460748..6f937a7f29d 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 fa80eb4f32f..49affaa3c71 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 93f310c6868..dbc1a042924 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 fd8caec43c8..fecb882b179 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 10bd4de3f4a..5116e5f1eb2 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 ddc4117a01c..b719224df8a 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 8e41e04f733..0eec05ce553 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 b0fc3c9e29e..90da5bc55d8 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 abc38d16a1c..b8333f84f4c 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 998fffccd57..5362b80d038 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 743f8829c7b..605f8ebf66a 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 9af22ada73a..27ef37cf1ce 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 23f9de868ab..f133a894dbe 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 3e63b6b45ff..346aac40788 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 35e37b0d376..d9e413f4aae 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 a6b40d1c586..47d6207d765 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 bb4fc94fb50..24541a45605 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 4fdcabfd92e..72b65ae4155 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 474d674bc31..846d8f9b8a1 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 98bd10517ef..9c7cb57f45f 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 ab8ecebad78..dd41c6dd982 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 34866678a75..c06f00bf4dc 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 b1a55243da4..4a00f5df89f 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 99c02a2c061..39ff7791161 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 f001c23a0f2..1fc3ff0dcba 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 c4fb7e722d9..0e702f5ae63 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 110fa740901..3f4c037b3f4 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 b3dbcb7481c..c6d4740ecbf 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 175f2a172c8..7880778d963 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 d1bc71e6e05..3e8bfea73eb 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 a0ea60bd34d..ecf031bf740 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 4cd4188da4c..c013b5af7e2 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 6a2a0fe45c6..a58513493c7 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 1c27b19d00c..9b89f71a1e7 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 f5794fe4402..63b98873dd0 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 97ea0a5a2c8..516cc85fcb6 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 75fd7f7db71..3baa28e4dad 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 a03b5d6ac2f..8ff157bb072 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 21904d8a7a8..ece053f52e2 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 412e3ea1804..9150a459ac0 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 c026742fd6b..b131da52da4 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 2a1c157f770..20eb0eae32e 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 46151265c7e..d43c85a67be 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 99f9fc85fe3..cbfb1224016 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 adaa47d9729..5ec02ffea68 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 bf6741c4961..47a4a113cd8 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 91c2ee4e9a5..21798bcb251 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 137780268d5..0ebf824687b 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 592b3b5b65e..803c5ca084e 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 7ae2de67825..5ad4a3beeea 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 c0f08775ac4..a9011ea816c 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 e212905a62d..253e7dc17ad 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 4dc851666b2..a4a765b758b 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 aad9aec0926..00eebe86a2b 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 39aa44a5c5f..3ff4f4b4fe8 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 edb24f62f2a..15c947fd87f 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 8893d46ba25..082e32b5197 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 b7e4d061d47..10a9a7a099b 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 4d266cb7b5e..ca3f51f8795 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 a0789e3cdfa..821641ae7fe 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 c331c3718f7..61c459df002 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 abd4e6f1b69..27985ff75d3 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 4b65d676497..30d08380f84 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 8e9d7c62ad0..8bb82b15e30 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 050ea56108c..9ca35b8f350 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 85daf9d66b4..dc76bc82c18 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 c11be674980..97660e604eb 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 d3c7c0e5178..bea701b489c 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 206e5828000..8d868412ad0 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 91372381a89..137e289c27a 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 485de0bbc49..3ab17f6a855 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 18c373b8462..c1892cafea1 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 d901b81b66a..ea775fc79a8 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 e3bbb5165f8..ba2085a7e87 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 56725e1df6d..96fb759c1ee 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 a3119531709..1ea11ebd249 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 d10d8879135..a230392e153 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 a50018da237..29935396063 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 910d4f12dd4..6a698f38376 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 eb26db437d2..0e699a1ff73 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 b90c16469d5..2559b3d0f21 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 6668666fde5..e7122e7d0f9 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 0d03522e4b7..48f7b47db3d 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 ce3091985e3..0329acbb1c6 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 8cdc00ca21f..68b978b16bf 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 ba6351b95b2..c390a7c4ca3 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 f9f17364d45..a5db6316ca6 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 ff14421349c..6be49e1a9f8 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 4b995da1709..413e2e25b5c 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 8ed374272b9..f3d409ecf66 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 976adf67ba2..fc7cac0d743 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 0715d3ccfac..18d3380efb6 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 35abddceef6..d3f819a1054 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 2139c9a6bb8..8b540bd0d9b 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 96ff9715975..c601e85377a 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 9e65d6c13ee..3174be1916f 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 f3cb069f5f7..83ff8fe78bc 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 f813254ac05..b0b35b74852 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 68381381f98..ef737a4bddb 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 756a7d3aa6e..5fa508f0a6c 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 2d6260cdd6e..49632065a1a 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 ca7471862bb..c277c5947f0 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 2985d687638..08538ead464 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 1a2b2133bcc..3115b56e801 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 dc4116be297..e61422a3a64 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 1d08325f2b6..c53cf37c0fe 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 4d710905bf8..eacb074d2f2 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 56fd792cc9c..9846ce861e3 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 aa952fb45b7..b0e73c37b36 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 1e55fd3d944..f64cb57b3dd 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 5fc82343470..8805611da53 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 93990a9ed33..e4729ad1342 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 038361eb02d..c9d8c97f5c3 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 42036dfa693..2708dcc663c 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 a6272235483..760225fdd57 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 e85905dd02a..8a4e9b35724 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 530b2aa4bb1..0b0f7ccb02d 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 097df644bf0..0a105fd123b 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 8660ac9abc1..98bc7125a8b 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 6916278f19e..8145da2d987 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 12362def91a..791233db1bb 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 92df6f96089..8e81440afbf 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 1dd70d7b1e2..f24d054af65 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 1569cdb5295..80bc2841c8b 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 ef8cc3f7ad4..0ec7054eee0 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 62d6af1c2ea..dfb231477ae 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 707fb4466ff..ba0e74b98da 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 8c22bd3c851..926c612a73b 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 c9c63970396..fa99e6e9c1b 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 b211aa242b5..d7fa1259d5a 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 1c13b427a18..42333e6b7f0 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 97c8cf6e9f3..b5a99fee0c2 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 283545af449..fc2942e07a0 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 31008ca1368..e216993cd5f 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 2c34a89f117..522559c1b29 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 bb65156b3a9..a073d556fd2 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 6b6d2ccd447..1f370f06843 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 42a279b0e5c..811f95a38e1 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 7a0e2616959..1561e5b0fef 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 cce83fc4164..f39886c0018 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 d914fe22fe7..6e22dded0aa 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 302a9d1e2e3..bacbe4c0f7c 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 18446ca9452..1a4526d8e24 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 176c90ba503..2b69eb8449d 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 7ec3f6765d3..a46ceebc1d2 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 ac3c4c51528..f6457292b5e 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 d9fc87c2abe..c18505e394a 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 ef4fa29233d..aaa3430715d 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 e337fb3eb26..18c778a83f7 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 2b2a1cd6af7..aa25f6cd419 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 07aed30b1f6..f68344283ca 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 ec3c555a1f4..451a0e1c67b 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 a0c8e8d2325..61a523560b4 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 c80334b47e4..9398248cc2b 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 3664d7a2a29..6baf1d2ab95 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 f8237e75c6f..5a99d16e28e 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 e9e42b83490..ccc43841b99 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 b8d3a14e611..1ec120e11f9 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 b91cdbdf4cc..a56c84662dd 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 3b246c9e9a6..9dc8706acb7 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 2d9d7855f19..2f2962a3a05 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 d0db3a694e3..e5cada7b125 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 5348432ada9..4d6ea101376 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 7e996a4d979..391dfbb965f 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 8e9d066e52b..ec0ba11e697 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 10cf27fed94..15811664f6a 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 4fc180d2c42..373bc420d0f 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 547f0b8a012..f71f3a417e8 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 0ee27fd2d94..0e53815347c 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