2012-01-16 Pedro Alves <palves@redhat.com>

Remove all calls to strace.

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.

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"

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 }

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"

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 }

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"

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"

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

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"

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

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"

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"

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"

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"

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"

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"

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 }

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"

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"

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 }

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"

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"

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"

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"

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"

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"

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"

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"

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"

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"

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"

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"

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 }

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 }

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"

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"

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"

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

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"

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"

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"

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"

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"

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 }

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"

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"

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"

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"

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"

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"

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"

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"

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"

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 }

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."

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.
 #

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.

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."

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."

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."

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."

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

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.
 #

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.
 
 

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.

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)
 
 

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.
 
 

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."

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."

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 {

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."

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."

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.
 
 

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 {

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.
 
 

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 {

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 {

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."

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.
 
 

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."

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.
 

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.
 
 

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

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

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

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.

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."

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.
 #

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.

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
 #

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}

gdb/testsuite/gdb.base/all-bin.exp

@@ -23,10 +23,6 @@
 
 
 
-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #

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

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

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
 

gdb/testsuite/gdb.base/arithmet.exp

@@ -22,10 +22,6 @@
 # with integer type variables
 # 
 
-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #

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}

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
 #

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
 #

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