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 /gdb/testsuite/gdb.base | |
| 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.
Diffstat (limited to 'gdb/testsuite/gdb.base')
176 files changed, 0 insertions, 704 deletions
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 # |