diff options
| author | Pedro Alves <palves@redhat.com> | 2012-01-16 16:21:53 +0000 |
|---|---|---|
| committer | Pedro Alves <palves@redhat.com> | 2012-01-16 16:21:53 +0000 |
| commit | 97ccebe869a69550b5a89a59b99955fb783f2b81 (patch) | |
| tree | b6780c16d8bbdde33d189466aa17d37c699ce4a1 | |
| parent | ddb1377cc0daa352458911e38a536c9ce33dec85 (diff) | |
| download | gdb-97ccebe869a69550b5a89a59b99955fb783f2b81.zip gdb-97ccebe869a69550b5a89a59b99955fb783f2b81.tar.gz gdb-97ccebe869a69550b5a89a59b99955fb783f2b81.tar.bz2 | |
2012-01-16 Pedro Alves <palves@redhat.com>
Remove all calls to strace.
473 files changed, 4 insertions, 1888 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 9adc987..6350650 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2012-01-16 Pedro Alves <palves@redhat.com> + + Remove all calls to strace. + 2012-01-14 Jan Kratochvil <jan.kratochvil@redhat.com> * 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 b47ef3a..a726e71 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 <http://www.gnu.org/licenses/>. -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 f5f1d68..c72f8cf 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 <http://www.gnu.org/licenses/>. -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 cfad5a0..aa10b27 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 <http://www.gnu.org/licenses/>. -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 0373cc3..f8c087d 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 <http://www.gnu.org/licenses/>. -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 5c6ae00..d1549df 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 <http://www.gnu.org/licenses/>. -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 d80ee8e..192feb1 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 <http://www.gnu.org/licenses/>. -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 1aa49e8..c27e6d0 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 <http://www.gnu.org/licenses/>. -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 2acbfca..e0ac214 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 <http://www.gnu.org/licenses/>. -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 e79c5c1..52a6823 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 <http://www.gnu.org/licenses/>. -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 9243e86..1b99252 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 <http://www.gnu.org/licenses/>. -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 0336903..f132355 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 <http://www.gnu.org/licenses/>. -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 53ac32d..e437721 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 <http://www.gnu.org/licenses/>. -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 1b65efa..4a0f2b4 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 <http://www.gnu.org/licenses/>. -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 6f5f1e8..b2aed95 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 <http://www.gnu.org/licenses/>. -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 bc40dad..1f7b9c2 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 <http://www.gnu.org/licenses/>. -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 7597877..4a3792b 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 <http://www.gnu.org/licenses/>. -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 ef9a56b..764cd57 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 <http://www.gnu.org/licenses/>. -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 2c85526..1d0f960 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 <http://www.gnu.org/licenses/>. -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 e5bf2e1..d86a00b 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 <http://www.gnu.org/licenses/>. -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 a7ad067..8341dca 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 c83f63a..98c1a44 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 <http://www.gnu.org/licenses/>. -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 1c76a1e..6dabf34 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 <http://www.gnu.org/licenses/>. -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 09f15bc..b73c74a 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 <http://www.gnu.org/licenses/>. -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 8321eb6..ac0da83 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 <http://www.gnu.org/licenses/>. -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 d535ca2..a81135a 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 <http://www.gnu.org/licenses/>. -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 d8d2f20..51705bc 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 <http://www.gnu.org/licenses/>. -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 fd34838..ae21a53 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 <http://www.gnu.org/licenses/>. -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 e3beec5..9e14687 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 <http://www.gnu.org/licenses/>. -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 38a9bb9..fe97245 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 <http://www.gnu.org/licenses/>. -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 be8dece..079577b 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 <http://www.gnu.org/licenses/>. -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 d449e3c..4de3a26 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 <http://www.gnu.org/licenses/>. -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 ab0ef3a..97508b2 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 <http://www.gnu.org/licenses/>. -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 80dd44f..678639c 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 <http://www.gnu.org/licenses/>. -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 e671d73..3cf8a28 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 <http://www.gnu.org/licenses/>. -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 e51356c..35dfcc6 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 <http://www.gnu.org/licenses/>. -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 aff00e8..371dd51 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 <http://www.gnu.org/licenses/>. -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 944d90b..75d3812 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 <http://www.gnu.org/licenses/>. -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 2fb63e6..03f8d8f 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 <http://www.gnu.org/licenses/>. -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 c56d82f..d710729 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 <http://www.gnu.org/licenses/>. -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 e291d11..06fe4e6 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 <http://www.gnu.org/licenses/>. -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 8f86083..82fcc61 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 <http://www.gnu.org/licenses/>. -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 7d157ce..8036723 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 <http://www.gnu.org/licenses/>. -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 c36db3f..6ba180d 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 <http://www.gnu.org/licenses/>. -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 850be59..b0db6aa 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 <http://www.gnu.org/licenses/>. -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 9e868a4..7a8765a 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 <http://www.gnu.org/licenses/>. -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 8102c1e..b934ccc 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 <http://www.gnu.org/licenses/>. -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 780667d..6cc316e 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 <http://www.gnu.org/licenses/>. -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 59b6396..46a77ff 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 <http://www.gnu.org/licenses/>. -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 3d1f07c..ce6782f 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 <http://www.gnu.org/licenses/>. -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 3e57d8b..32b4136 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 <http://www.gnu.org/licenses/>. -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 54a1805..0ce240e 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 2e5f93d..34bd3de 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 <http://www.gnu.org/licenses/>. -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 7961117..1cb9eca 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 <http://www.gnu.org/licenses/>. -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 53631ef..3008b11 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 <http://www.gnu.org/licenses/>. -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 994b23c..9bbe33f 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 53cba8e..6ed6107 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 c966f63..87f6332 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 a890f35..e7bb167 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 d2ac584..ed42716 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 47d5ba0..4eaa421 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 5e04f05..d09885d 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 72f90af..d2b13ab 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 7210756..a5e673d 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 5a0212d..02c085c 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 99a5b30..2142bfb 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 4fa41b5..7446cce 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 67f4332..87b9f67 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 e66af42..0ef25d1 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 50c81fa..026f956 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 d13fad8..c4b212f 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 b4e3db4..8a51be5 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 7f48514..d7b41cc 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 414abb7..df3b373 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 21a701e..2e724aa 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 59d359f..23cbabc 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 c46cd09..241d939 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 1a4e408..1a868bd 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 a8be6f7..4ae5943 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 701e428..317b9f7 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 77e7ca7..e3223d9 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 241dd4f..860e68e 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 18d7801..5e952d8 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 a44a5ac..d08424b 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 41a4865..2eff7fb 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 b96b136..53998d3 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 c5e6724..ab97f69 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 <http://www.gnu.org/licenses/>. -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 7a0bf57..82201a3 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 <http://www.gnu.org/licenses/>. # -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 18f9a7b..9c2435b 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 c069851..4e3b54b 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 c4fc63f..456268d 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 94ec1d1..0ac8185 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 8639bb1..66f96e7 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 c20d641..82abc0a 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 d9473a5..4b812de 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 6037e0d..b8a3856 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 ed8e17a..cba0024 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 db639eb..8fb87d9 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 8aaf3d3..4acd153 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 <http://www.gnu.org/licenses/>. -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 f28a537..87a22de 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 <http://www.gnu.org/licenses/>. */ -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 e0f4cb4..da10f05 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 1d7365a..77b10d6 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 72c9643..26ac7ff 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 a2ef54a..2e05da5 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 6734ea1..3098ffd 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 3da53b9..137090b 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 dab4fd0..bfb3a12 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 4f13999..fc71a5f 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 d0a0e86..50ca37c 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 078369a..a531188 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 fda75f2..135010c 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 9c67941..1c4517d 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 6d96fcf..43d7ef6 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 50c50ea..c4d1ec5 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 <http://www.gnu.org/licenses/>. -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 765be20..c48fa60 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 651633b..47cf954 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 2aec424..fabe39d 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 <http://www.gnu.org/licenses/>. */ -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 dac3008..ec5b4c8 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 9c91de1..fe95305 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 7369a9c..b8ef629 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 0be5c45..e26dac0 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 <http://www.gnu.org/licenses/>. -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 06ccfd6..35fb537 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 1de9a93..ff403b5 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 <http://www.gnu.org/licenses/>. -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 e9d61ba..9b51034 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 b806729..fb82e56 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 03d4bd1..c3edaf6 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 e5d64bd..7764d04 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 a91efd1..027eb2c 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 808f6be..ce77363 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 <http://www.gnu.org/licenses/>. -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 b9c4f53..d836d4a 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 cfd6330..843d637 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 <http://www.gnu.org/licenses/>. */ -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 a0b5377..889eca8 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 ddeb78c..1a37330 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 9bfb828..11fe3f4 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 b27e727..58f7156 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 d0628e0..a59065a 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 b484346..4136cc1 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 a59c71b..44cccbf 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 e50ef98..f704396 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 3e549c0..2e5cdb1 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 <http://www.gnu.org/licenses/>. -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 60536fb..2466c81 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 <http://www.gnu.org/licenses/>. */ -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 8b70339..8e296d3 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 c6413f1..150b58e 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 <http://www.gnu.org/licenses/>. -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 93ea864..25f3bda 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 67c89f0..f46a8e6 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 6ce3e01..e8760da 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 2f33973..664481c 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 dc96af5..c782ffc 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 59f51c5..c4aee67 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 <http://www.gnu.org/licenses/>. -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 4e75088..448102b 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 d349f93..14e5872 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 <http://www.gnu.org/licenses/>. -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 f1236cf..0b5534a 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 a8c565a..7736bb8 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 8b220d6..faa8fa7 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 fce0d87..5c46ed6 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 <mec@shout.net> -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 59b36b9..f9a2b26 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 705b4f4..ba222c2 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 ab3a77b..4f5b89c 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 0d36b6e..ef1e067 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 be3aa75..11bed5d 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 72935d8..0499f6c 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 d052b58..a1c1253 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 36ca8b2..d07f604 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 1042fd4..2edde40 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 99e2a23..e471e51 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 7196116..78ae6cd 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 d452c5d..cb9f508 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 4280abd..fbd62f9 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 5817535..84ac7e6 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 <http://www.gnu.org/licenses/>. -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 6a7f7c8..621cbd0 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 6b3e0f5..06846ec 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 8807a65..b28f903 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 eba8116..a1aa351 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 <http://www.gnu.org/licenses/>. -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 3ccc334..a5577e2 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 <http://www.gnu.org/licenses/>. */ -if $tracelevel then { - strace $tracelevel - } - clear_xfail "*-*-*" diff --git a/gdb/testsuite/gdb.base/label.exp b/gdb/testsuite/gdb.base/label.exp index fa55c11..c511cb9 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 <http://www.gnu.org/licenses/>. -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 7c24980..e041b01 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 <http://www.gnu.org/licenses/>. -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 0edbfe0..79f9091 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 f87c17b..d1358c3 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 1c5bcf3..0df5555 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 fd33bfd..a699d0b 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 9b314ce..d5af26e 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 aed9b8d..fa2173a 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 <http://www.gnu.org/licenses/>. -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 1d0f419..1c99150 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 42a20e8..4065808 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 e12ecae..8e963c1 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 <http://www.gnu.org/licenses/>. -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 5eec2f6..caafe05 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 fa98cf3..4b08b66 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 <http://www.gnu.org/licenses/>. -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 477c01b..344a804 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 8602de9..4c44f8e 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 <http://www.gnu.org/licenses/>. -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 484f1a6..b7ad265 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 d1405ac..a017661 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 5e72126..0629807 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 3a88431..9d74eef 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 53184b0..7c0c586 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 d5868c4..bd29581 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 8078eac..c11857d 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 <http://www.gnu.org/licenses/>. -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 dbb9bbc..71196bd 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 <aoliva@redhat.com> -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 d647ca8..c932f94 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 2606dd2..06674b1 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 c69dcf4..674ce45 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 <http://www.gnu.org/licenses/>. -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 ff71186..adb4cd4 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 39ac713..758232d 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 e7538a4..2445aec 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 0dadc78..cbc9871 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 3f046bc..320b3a3 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 26b77d7..c1ee625 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 b37689e..4d570c0 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 5cb07ce..960597e 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 c9fe998..8f50787 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 <http://www.gnu.org/licenses/>. -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 9549dbd..d51f39b 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 9b6bd11..2a0929f 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 <http://www.gnu.org/licenses/>. -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 68ba2fe..e9b950c 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 <jimb@cygnus.com>, 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 22a0f57..8c7ea15 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 8837e1f..394afc9 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 7059226..a86e02d 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 bd84473..8aeabe80 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 <http://www.gnu.org/licenses/>. */ -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 7b8d203..eb0ad2b 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 <http://www.gnu.org/licenses/>. -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 5ddf4aa..5341bc9 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 80bd438..2104739 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 <http://www.gnu.org/licenses/>. -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 90f2645..79b97bb 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 <http://www.gnu.org/licenses/>. -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 029de07..a24fbba 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 5594d39..5b597ed 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 c8a5745..9b3e251 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 93f3c3d..559a0a2 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 e8d33d8..1f2bab7 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 75e4d98..854f151 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 d79941e..ebe0a17 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 a56d136..d68d310 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 3747400..9ca649d 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 bb4f0a4..f9bdf32 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 a9e60ee..334b80e 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 c76e153..9a59fb4 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 77c51b3..546d194 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 3768c88..fb290cd 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 dcd0f65..a8b2970 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 d837508..ab36a9e 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 <http://www.gnu.org/licenses/>. -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 daf8ece..464f128 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 <http://www.gnu.org/licenses/>. */ -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 a73dea6..78ad41c 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 <http://www.gnu.org/licenses/>. */ -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 c8e8056..9e598d9 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 b09ba44..df82bc8 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 <http://www.gnu.org/licenses/>. -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 8781d58..4d5a957 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 <http://www.gnu.org/licenses/>. -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 b24ad8e..c572f80 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 <http://www.gnu.org/licenses/>. -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 d849f03..8e5e248 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 1e55201..1966f4e 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 abb4a0a..e02174a 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 <http://www.gnu.org/licenses/>. */ # 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 ebb198a..cf71304 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 <http://www.gnu.org/licenses/>. -if $tracelevel { - strace $tracelevel -} - # # test running programs # diff --git a/gdb/testsuite/gdb.base/structs.exp b/gdb/testsuite/gdb.base/structs.exp index c24db83..e68ab6c 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 <http://www.gnu.org/licenses/>. -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 fb377bf..2d505d3 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 <http://www.gnu.org/licenses/>. -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 525be9a..b604b67 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 <http://www.gnu.org/licenses/>. -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 fbadc08..7697160 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 ff337fe..55e3088 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 02f610a..b21db17 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 dd92bad..41f9bdc 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 <http://www.gnu.org/licenses/>. -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 5e1e14a..999fb1d 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 03d6635..5ab0fcd 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 cbaccaf..6b647cd 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 ab7d4f0..3e22679 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 <http://www.gnu.org/licenses/>. -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 16a517e..7a3e121 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 b876f0f..827c28f 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 dbf3758..630763b 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 b9433ce..107c77c 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 <http://www.gnu.org/licenses/>. -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 1860368..ba13a0c 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 b8b27dc..8edd62c 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 7ca9896..2c50854 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 825eb7f..9198ef2 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 b03eb8c..539b32d 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 99e396d..41e1cc5 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 4003629..112fb85 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 a8db275..fe30ef1 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 6c59cdc..9eb3985 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 e33ebe9..9bf1810 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 1072ff0..53b29c3 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 23df242..95b4b4e 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 c0fc79d..a4327e8 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 <http://www.gnu.org/licenses/>. -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 93fab94..84569ab 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 7c2e63e..6a95245 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 <http://www.gnu.org/licenses/>. -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 3793f91..ae43630 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 48dcca1..9161351 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 6b5e14e..13af265 100644 --- a/gdb/testsuite/gdb.cp/cpexprs.exp +++ b/gdb/testsuite/gdb.cp/cpexprs.exp @@ -663,10 +663,6 @@ add {policyd5::function} \ {operation_1<T>::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 6aa5445..5bca25e 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 46c3a1f..17a76d3 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 14ce0b0..c6e9491 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 57bf416..eafaad6 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 5cff73b..04dd6de 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 34cb7c5..ff27439 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 f584279..140260c 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 0ee27c4..ee78acd 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 5dbc226..1f76ffa 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 2025a20..0b83ced 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 <http://www.gnu.org/licenses/>. -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 c970d03..74e758b 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 ce28283..e720583 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 71620a2..1ef956e 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 0b8f290..563d701 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 f576b31..768664a 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 bff7ac5..c13b62c 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 1a29d35..bf00c26 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 dfb25cc..128f9f7 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 4b9a37d..7eb237d 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 3fe24c3..b862bc6 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 6e7bf11..a3ea820 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 f0a934b..15506ae 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 <http://www.gnu.org/licenses/>. -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 e0789de..ccbd97f 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 2224628..7d4a0c5 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 <http://www.gnu.org/licenses/>. -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 f8617d1..5da4a0c 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 deeca46..6f937a7 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 fa80eb4..49affaa 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 <http://www.gnu.org/licenses/>. -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 93f310c..dbc1a04 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 fd8caec..fecb882 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 <http://www.gnu.org/licenses/>. -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 10bd4de..5116e5f 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 ddc4117..b719224 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 8e41e04..0eec05c 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 b0fc3c9..90da5bc 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 abc38d1..b8333f8 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 998fffc..5362b80 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 743f882..605f8eb 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 9af22ad..27ef37c 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 23f9de8..f133a89 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 3e63b6b..346aac4 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 35e37b0..d9e413f 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 a6b40d1..47d6207 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 bb4fc94..24541a4 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 4fdcabf..72b65ae 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 474d674..846d8f9 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 98bd105..9c7cb57 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 ab8eceb..dd41c6d 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 3486667..c06f00b 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 b1a5524..4a00f5d 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 99c02a2..39ff779 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 f001c23..1fc3ff0 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 c4fb7e7..0e702f5 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 110fa74..3f4c037 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 b3dbcb7..c6d4740 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 175f2a1..7880778 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 d1bc71e..3e8bfea 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 a0ea60b..ecf031b 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 4cd4188..c013b5a 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 6a2a0fe..a585134 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 1c27b19..9b89f71 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 f5794fe..63b9887 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 97ea0a5..516cc85 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 75fd7f7..3baa28e 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 a03b5d6..8ff157b 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 21904d8..ece053f 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 412e3ea..9150a45 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 c026742..b131da5 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 2a1c157..20eb0ea 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 4615126..d43c85a 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 99f9fc8..cbfb122 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 adaa47d..5ec02ff 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 bf6741c..47a4a11 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 91c2ee4..21798bc 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 1377802..0ebf824 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 592b3b5..803c5ca 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 7ae2de6..5ad4a3b 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 <http://www.gnu.org/licenses/>. -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 c0f0877..a9011ea 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 e212905..253e7dc 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 <pai@apollo.hp.com> # 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 4dc8516..a4a765b 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 <http://www.gnu.org/licenses/>. */ -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 aad9aec..00eebe8 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 39aa44a..3ff4f4b 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 edb24f6..15c947f 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 8893d46..082e32b 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 <pai@apollo.hp.com> # 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 b7e4d06..10a9a7a 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 <http://www.gnu.org/licenses/>. */ -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 4d266cb..ca3f51f 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 a0789e3..821641a 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 c331c37..61c459d 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 <http://www.gnu.org/licenses/>. */ -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 abd4e6f..27985ff 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 4b65d67..30d0838 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 8e9d7c6..8bb82b1 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 050ea56..9ca35b8 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 85daf9d..dc76bc8 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 <http://www.gnu.org/licenses/>. -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 c11be67..97660e6 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 d3c7c0e..bea701b 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 <http://www.gnu.org/licenses/>. -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 206e582..8d86841 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 <http://www.gnu.org/licenses/>. -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 9137238..137e289 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 485de0b..3ab17f6 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 18c373b..c1892ca 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 d901b81..ea775fc 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 e3bbb51..ba2085a 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 56725e1..96fb759 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 a311953..1ea11eb 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 d10d887..a230392 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 a50018d..2993539 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 910d4f1..6a698f3 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 eb26db4..0e699a1 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 b90c164..2559b3d 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 6668666..e7122e7 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 <http://www.gnu.org/licenses/>. -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 0d03522..48f7b47 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 <http://www.gnu.org/licenses/>. -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 ce30919..0329acb 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 <http://www.gnu.org/licenses/>. -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 8cdc00c..68b978b 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 <http://www.gnu.org/licenses/>. -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 ba6351b..c390a7c4 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 f9f1736..a5db631 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 ff14421..6be49e1 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 4b995da..413e2e2 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 8ed3742..f3d409e 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 976adf6..fc7cac0 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 0715d3c..18d3380 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 35abddc..d3f819a 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 <http://www.gnu.org/licenses/>. -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 2139c9a..8b540bd 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 <http://www.gnu.org/licenses/>. -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 96ff971..c601e85 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 9e65d6c..3174be1 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 f3cb069..83ff8fe 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 f813254..b0b35b7 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 6838138..ef737a4 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 756a7d3..5fa508f 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 2d6260c..4963206 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 ca74718..c277c59 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 2985d68..08538ea 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 1a2b213..3115b56 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 dc4116b..e61422a 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 1d08325..c53cf37 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 4d71090..eacb074 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 56fd792..9846ce8 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 aa952fb..b0e73c3 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 1e55fd3..f64cb57 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 5fc8234..8805611 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 93990a9..e4729ad 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 038361e..c9d8c97 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 42036df..2708dcc 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 a627223..760225f 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 e85905d..8a4e9b3 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 530b2aa..0b0f7cc 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 097df64..0a105fd 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 8660ac9..98bc712 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 6916278..8145da2 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 12362de..791233d 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 92df6f9..8e81440 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 1dd70d7..f24d054 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 1569cdb..80bc284 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 ef8cc3f..0ec7054e 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 62d6af1..dfb2314 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 707fb44..ba0e74b 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 8c22bd3..926c612 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 c9c6397..fa99e6e 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 b211aa2..d7fa125 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 1c13b42..42333e6 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 97c8cf6..b5a99fe 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 283545a..fc2942e 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 31008ca..e216993 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 2c34a89..522559c 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 bb65156..a073d55 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 6b6d2cc..1f370f0 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 42a279b..811f95a 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 7a0e261..1561e5b 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 cce83fc..f39886c 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 d914fe2..6e22dde 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 302a9d1..bacbe4c 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 18446ca..1a4526d 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 176c90b..2b69eb8 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 7ec3f67..a46ceeb 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 <http://www.gnu.org/licenses/>. -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 ac3c4c5..f645729 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 d9fc87c..c18505e 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 ef4fa29..aaa3430 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 e337fb3..18c778a 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 2b2a1cd..aa25f6c 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 07aed30..f683442 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 ec3c555..451a0e1 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 a0c8e8d..61a5235 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 c80334b..9398248 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 3664d7a..6baf1d2 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 f8237e7..5a99d16 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 e9e42b8..ccc4384 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 b8d3a14..1ec120e 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 b91cdbd..a56c846 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 3b246c9..9dc8706 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 2d9d785..2f2962a 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 d0db3a6..e5cada7 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 5348432..4d6ea10 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 7e996a4..391dfbb 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 8e9d066..ec0ba11 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 10cf27f..1581166 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 4fc180d..373bc42 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 547f0b8..f71f3a4 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 0ee27fd..0e53815 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 |