This is the mail archive of the gdb-patches@sourceware.org mailing list for the GDB project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Remove all "strace" calls from the testsuite.


This patch removes all strace calls from the testsuite.

This was actually discussed before:

 http://www.sourceware.org/ml/gdb-patches/2011-02/msg00638.html

There should be no need to do this, as all tests run under the same expect,
and runtest.exp already takes care of calling strace for us.

Anyone know of any reason not to apply this?

From: Pedro Alves <palves@redhat.com>
Date: 2012-01-12 11:45:59 +0000

gdb/testsuite/
2012-01-12  Pedro Alves  <palves@redhat.com>

	Remove all calls to strace.

---

 gdb/testsuite/gdb.ada/array_bounds.exp             |    4 ----
 gdb/testsuite/gdb.ada/array_return.exp             |    4 ----
 gdb/testsuite/gdb.ada/array_subscript_addr.exp     |    4 ----
 gdb/testsuite/gdb.ada/arrayidx.exp                 |    4 ----
 gdb/testsuite/gdb.ada/arrayparam.exp               |    4 ----
 gdb/testsuite/gdb.ada/arrayptr.exp                 |    4 ----
 gdb/testsuite/gdb.ada/assign_1.exp                 |    4 ----
 gdb/testsuite/gdb.ada/atomic_enum.exp              |    4 ----
 gdb/testsuite/gdb.ada/boolean_expr.exp             |    4 ----
 gdb/testsuite/gdb.ada/call_pn.exp                  |    4 ----
 gdb/testsuite/gdb.ada/catch_ex.exp                 |    4 ----
 gdb/testsuite/gdb.ada/char_param.exp               |    4 ----
 gdb/testsuite/gdb.ada/complete.exp                 |    4 ----
 gdb/testsuite/gdb.ada/cond_lang.exp                |    4 ----
 gdb/testsuite/gdb.ada/dyn_loc.exp                  |    4 ----
 gdb/testsuite/gdb.ada/exec_changed.exp             |    4 ----
 gdb/testsuite/gdb.ada/exprs.exp                    |    4 ----
 gdb/testsuite/gdb.ada/fixed_cmp.exp                |    4 ----
 gdb/testsuite/gdb.ada/fixed_points.exp             |    4 ----
 gdb/testsuite/gdb.ada/formatted_ref.exp            |    4 ----
 gdb/testsuite/gdb.ada/frame_args.exp               |    4 ----
 gdb/testsuite/gdb.ada/fun_addr.exp                 |    4 ----
 gdb/testsuite/gdb.ada/fun_in_declare.exp           |    4 ----
 gdb/testsuite/gdb.ada/funcall_param.exp            |    4 ----
 gdb/testsuite/gdb.ada/homonym.exp                  |    4 ----
 gdb/testsuite/gdb.ada/int_deref.exp                |    4 ----
 gdb/testsuite/gdb.ada/interface.exp                |    4 ----
 gdb/testsuite/gdb.ada/lang_switch.exp              |    4 ----
 gdb/testsuite/gdb.ada/mod_from_name.exp            |    4 ----
 gdb/testsuite/gdb.ada/nested.exp                   |    4 ----
 gdb/testsuite/gdb.ada/null_array.exp               |    4 ----
 gdb/testsuite/gdb.ada/null_record.exp              |    4 ----
 gdb/testsuite/gdb.ada/packed_array.exp             |    4 ----
 gdb/testsuite/gdb.ada/packed_tagged.exp            |    4 ----
 gdb/testsuite/gdb.ada/print_chars.exp              |    4 ----
 gdb/testsuite/gdb.ada/print_pc.exp                 |    4 ----
 gdb/testsuite/gdb.ada/ptype_arith_binop.exp        |    4 ----
 gdb/testsuite/gdb.ada/ptype_field.exp              |    4 ----
 gdb/testsuite/gdb.ada/ptype_tagged_param.exp       |    4 ----
 gdb/testsuite/gdb.ada/rec_return.exp               |    4 ----
 gdb/testsuite/gdb.ada/ref_param.exp                |    4 ----
 gdb/testsuite/gdb.ada/ref_tick_size.exp            |    4 ----
 gdb/testsuite/gdb.ada/start.exp                    |    4 ----
 gdb/testsuite/gdb.ada/str_ref_cmp.exp              |    4 ----
 gdb/testsuite/gdb.ada/sym_print_name.exp           |    4 ----
 gdb/testsuite/gdb.ada/taft_type.exp                |    4 ----
 gdb/testsuite/gdb.ada/tagged.exp                   |    4 ----
 gdb/testsuite/gdb.ada/tasks.exp                    |    4 ----
 gdb/testsuite/gdb.ada/tick_last_segv.exp           |    4 ----
 gdb/testsuite/gdb.ada/type_coercion.exp            |    4 ----
 gdb/testsuite/gdb.ada/uninitialized_vars.exp       |    4 ----
 .../gdb.ada/variant_record_packed_array.exp        |    4 ----
 gdb/testsuite/gdb.ada/watch_arg.exp                |    4 ----
 gdb/testsuite/gdb.arch/alpha-step.exp              |    4 ----
 gdb/testsuite/gdb.arch/altivec-abi.exp             |    4 ----
 gdb/testsuite/gdb.arch/altivec-regs.exp            |    4 ----
 gdb/testsuite/gdb.arch/amd64-byte.exp              |    4 ----
 gdb/testsuite/gdb.arch/amd64-disp-step.exp         |    4 ----
 gdb/testsuite/gdb.arch/amd64-dword.exp             |    4 ----
 gdb/testsuite/gdb.arch/amd64-word.exp              |    4 ----
 gdb/testsuite/gdb.arch/arm-disp-step.exp           |    4 ----
 gdb/testsuite/gdb.arch/e500-abi.exp                |    4 ----
 gdb/testsuite/gdb.arch/e500-prologue.exp           |    4 ----
 gdb/testsuite/gdb.arch/e500-regs.exp               |    4 ----
 gdb/testsuite/gdb.arch/gdb1291.exp                 |    4 ----
 gdb/testsuite/gdb.arch/gdb1431.exp                 |    4 ----
 gdb/testsuite/gdb.arch/gdb1558.exp                 |    4 ----
 gdb/testsuite/gdb.arch/i386-avx.exp                |    4 ----
 gdb/testsuite/gdb.arch/i386-bp_permanent.exp       |    4 ----
 gdb/testsuite/gdb.arch/i386-byte.exp               |    4 ----
 gdb/testsuite/gdb.arch/i386-disp-step.exp          |    4 ----
 gdb/testsuite/gdb.arch/i386-gnu-cfi.exp            |    4 ----
 gdb/testsuite/gdb.arch/i386-permbkpt.exp           |    4 ----
 gdb/testsuite/gdb.arch/i386-prologue.exp           |    4 ----
 gdb/testsuite/gdb.arch/i386-size-overlap.exp       |    4 ----
 gdb/testsuite/gdb.arch/i386-size.exp               |    4 ----
 gdb/testsuite/gdb.arch/i386-sse.exp                |    4 ----
 gdb/testsuite/gdb.arch/i386-unwind.exp             |    4 ----
 gdb/testsuite/gdb.arch/i386-word.exp               |    4 ----
 gdb/testsuite/gdb.arch/pa-nullify.exp              |    4 ----
 gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp    |    4 ----
 gdb/testsuite/gdb.arch/powerpc-d128-regs.exp       |    4 ----
 gdb/testsuite/gdb.arch/ppc-dfp.exp                 |    4 ----
 gdb/testsuite/gdb.arch/ppc-fp.exp                  |    4 ----
 gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp       |    4 ----
 gdb/testsuite/gdb.arch/system-gcore.exp            |    4 ----
 gdb/testsuite/gdb.arch/vsx-regs.exp                |    4 ----
 gdb/testsuite/gdb.asm/asm-source.exp               |    4 ----
 gdb/testsuite/gdb.base/a2-run.exp                  |    4 ----
 gdb/testsuite/gdb.base/advance.exp                 |    4 ----
 gdb/testsuite/gdb.base/all-bin.exp                 |    4 ----
 gdb/testsuite/gdb.base/annota1.exp                 |    4 ----
 gdb/testsuite/gdb.base/annota3.exp                 |    4 ----
 gdb/testsuite/gdb.base/args.exp                    |    4 ----
 gdb/testsuite/gdb.base/arithmet.exp                |    4 ----
 gdb/testsuite/gdb.base/arrayidx.exp                |    4 ----
 gdb/testsuite/gdb.base/assign.exp                  |    4 ----
 gdb/testsuite/gdb.base/async.exp                   |    4 ----
 gdb/testsuite/gdb.base/attach.exp                  |    4 ----
 gdb/testsuite/gdb.base/auxv.exp                    |    4 ----
 gdb/testsuite/gdb.base/bang.exp                    |    4 ----
 gdb/testsuite/gdb.base/bfp-test.exp                |    4 ----
 gdb/testsuite/gdb.base/bigcore.exp                 |    4 ----
 gdb/testsuite/gdb.base/bitfields.exp               |    4 ----
 gdb/testsuite/gdb.base/bitfields2.exp              |    4 ----
 gdb/testsuite/gdb.base/bitops.exp                  |    4 ----
 .../gdb.base/break-on-linker-gcd-function.exp      |    4 ----
 gdb/testsuite/gdb.base/call-ar-st.exp              |    4 ----
 gdb/testsuite/gdb.base/call-rt-st.exp              |    4 ----
 gdb/testsuite/gdb.base/call-sc.exp                 |    4 ----
 gdb/testsuite/gdb.base/call-signal-resume.exp      |    4 ----
 gdb/testsuite/gdb.base/call-strs.exp               |    4 ----
 gdb/testsuite/gdb.base/callexit.exp                |    4 ----
 gdb/testsuite/gdb.base/callfuncs.exp               |    4 ----
 gdb/testsuite/gdb.base/charset.exp                 |    4 ----
 gdb/testsuite/gdb.base/checkpoint.exp              |    4 ----
 gdb/testsuite/gdb.base/chng-syms.exp               |    4 ----
 gdb/testsuite/gdb.base/code-expr.exp               |    4 ----
 gdb/testsuite/gdb.base/code_elim.exp               |    4 ----
 gdb/testsuite/gdb.base/commands.exp                |    4 ----
 gdb/testsuite/gdb.base/completion.exp              |    4 ----
 gdb/testsuite/gdb.base/complex.exp                 |    4 ----
 gdb/testsuite/gdb.base/cond-expr.exp               |    4 ----
 gdb/testsuite/gdb.base/condbreak.exp               |    4 ----
 gdb/testsuite/gdb.base/consecutive.exp             |    4 ----
 gdb/testsuite/gdb.base/constvars.exp               |    4 ----
 gdb/testsuite/gdb.base/corefile.exp                |    4 ----
 gdb/testsuite/gdb.base/cursal.exp                  |    4 ----
 gdb/testsuite/gdb.base/cvexpr.exp                  |    4 ----
 gdb/testsuite/gdb.base/dbx.exp                     |    4 ----
 gdb/testsuite/gdb.base/define.exp                  |    4 ----
 gdb/testsuite/gdb.base/del.exp                     |    4 ----
 gdb/testsuite/gdb.base/detach.exp                  |    4 ----
 gdb/testsuite/gdb.base/dfp-exprs.exp               |    4 ----
 gdb/testsuite/gdb.base/dfp-test.exp                |    4 ----
 gdb/testsuite/gdb.base/display.exp                 |    4 ----
 gdb/testsuite/gdb.base/dump.exp                    |    4 ----
 gdb/testsuite/gdb.base/echo.exp                    |    4 ----
 gdb/testsuite/gdb.base/ena-dis-br.exp              |    4 ----
 gdb/testsuite/gdb.base/environ.exp                 |    4 ----
 gdb/testsuite/gdb.base/eval-skip.exp               |    4 ----
 gdb/testsuite/gdb.base/exe-lock.exp                |    4 ----
 gdb/testsuite/gdb.base/expand-psymtabs.exp         |    4 ----
 gdb/testsuite/gdb.base/exprs.exp                   |    4 ----
 gdb/testsuite/gdb.base/fileio.exp                  |    4 ----
 gdb/testsuite/gdb.base/find.exp                    |    4 ----
 gdb/testsuite/gdb.base/finish.exp                  |    4 ----
 gdb/testsuite/gdb.base/fixsection.exp              |    4 ----
 gdb/testsuite/gdb.base/float.exp                   |    4 ----
 gdb/testsuite/gdb.base/frame-args.exp              |    4 ----
 gdb/testsuite/gdb.base/funcargs.exp                |    4 ----
 gdb/testsuite/gdb.base/gcore-buffer-overflow.exp   |    4 ----
 gdb/testsuite/gdb.base/gcore.exp                   |    4 ----
 gdb/testsuite/gdb.base/gdb1056.exp                 |    4 ----
 gdb/testsuite/gdb.base/gdb1090.exp                 |    4 ----
 gdb/testsuite/gdb.base/gdb11530.exp                |    4 ----
 gdb/testsuite/gdb.base/gdb11531.exp                |    4 ----
 gdb/testsuite/gdb.base/gdb1250.exp                 |    4 ----
 gdb/testsuite/gdb.base/gdb1555.exp                 |    4 ----
 gdb/testsuite/gdb.base/gdbvars.exp                 |    4 ----
 gdb/testsuite/gdb.base/gnu_vector.exp              |    4 ----
 gdb/testsuite/gdb.base/hashline1.exp               |    4 ----
 gdb/testsuite/gdb.base/hashline2.exp               |    4 ----
 gdb/testsuite/gdb.base/hashline3.exp               |    4 ----
 gdb/testsuite/gdb.base/huge.exp                    |    4 ----
 gdb/testsuite/gdb.base/ifelse.exp                  |    4 ----
 gdb/testsuite/gdb.base/info-proc.exp               |    4 ----
 gdb/testsuite/gdb.base/info-target.exp             |    4 ----
 gdb/testsuite/gdb.base/interp.exp                  |    4 ----
 gdb/testsuite/gdb.base/interrupt.exp               |    4 ----
 gdb/testsuite/gdb.base/jit-so.exp                  |    4 ----
 gdb/testsuite/gdb.base/jit.exp                     |    4 ----
 gdb/testsuite/gdb.base/jump.exp                    |    4 ----
 gdb/testsuite/gdb.base/label.exp                   |    4 ----
 gdb/testsuite/gdb.base/langs.exp                   |    4 ----
 gdb/testsuite/gdb.base/lineinc.exp                 |    4 ----
 gdb/testsuite/gdb.base/list.exp                    |    4 ----
 gdb/testsuite/gdb.base/logical.exp                 |    4 ----
 gdb/testsuite/gdb.base/long_long.exp               |    4 ----
 gdb/testsuite/gdb.base/longjmp.exp                 |    4 ----
 gdb/testsuite/gdb.base/macscp.exp                  |    4 ----
 gdb/testsuite/gdb.base/maint.exp                   |    4 ----
 gdb/testsuite/gdb.base/memattr.exp                 |    4 ----
 gdb/testsuite/gdb.base/mips_pro.exp                |    4 ----
 gdb/testsuite/gdb.base/miscexprs.exp               |    4 ----
 gdb/testsuite/gdb.base/multi-forks.exp             |    4 ----
 gdb/testsuite/gdb.base/nodebug.exp                 |    4 ----
 gdb/testsuite/gdb.base/nofield.exp                 |    4 ----
 gdb/testsuite/gdb.base/opaque.exp                  |    4 ----
 gdb/testsuite/gdb.base/overlays.exp                |    4 ----
 gdb/testsuite/gdb.base/page.exp                    |    4 ----
 gdb/testsuite/gdb.base/pc-fp.exp                   |    4 ----
 gdb/testsuite/gdb.base/pending.exp                 |    4 ----
 gdb/testsuite/gdb.base/pointers.exp                |    4 ----
 gdb/testsuite/gdb.base/pr11022.exp                 |    4 ----
 gdb/testsuite/gdb.base/prelink.exp                 |    4 ----
 gdb/testsuite/gdb.base/printcmds.exp               |    4 ----
 gdb/testsuite/gdb.base/psymtab.exp                 |    4 ----
 gdb/testsuite/gdb.base/ptr-typedef.exp             |    4 ----
 gdb/testsuite/gdb.base/ptype.exp                   |    4 ----
 gdb/testsuite/gdb.base/radix.exp                   |    4 ----
 gdb/testsuite/gdb.base/readline.exp                |    4 ----
 gdb/testsuite/gdb.base/recurse.exp                 |    4 ----
 gdb/testsuite/gdb.base/regs.exp                    |    4 ----
 gdb/testsuite/gdb.base/relational.exp              |    4 ----
 gdb/testsuite/gdb.base/relativedebug.exp           |    4 ----
 gdb/testsuite/gdb.base/relocate.exp                |    4 ----
 gdb/testsuite/gdb.base/remote.exp                  |    4 ----
 gdb/testsuite/gdb.base/remotetimeout.exp           |    4 ----
 gdb/testsuite/gdb.base/reread.exp                  |    4 ----
 gdb/testsuite/gdb.base/restore.exp                 |    4 ----
 gdb/testsuite/gdb.base/return2.exp                 |    4 ----
 gdb/testsuite/gdb.base/savedregs.exp               |    4 ----
 gdb/testsuite/gdb.base/scope.exp                   |    4 ----
 gdb/testsuite/gdb.base/sect-cmd.exp                |    4 ----
 gdb/testsuite/gdb.base/sep.exp                     |    4 ----
 gdb/testsuite/gdb.base/sepdebug.exp                |    4 ----
 gdb/testsuite/gdb.base/sepsymtab.exp               |    4 ----
 gdb/testsuite/gdb.base/set-lang-auto.exp           |    4 ----
 gdb/testsuite/gdb.base/setshow.exp                 |    4 ----
 gdb/testsuite/gdb.base/setvar.exp                  |    4 ----
 gdb/testsuite/gdb.base/shlib-call.exp              |    4 ----
 gdb/testsuite/gdb.base/shreloc.exp                 |    4 ----
 gdb/testsuite/gdb.base/sigall.exp                  |    4 ----
 gdb/testsuite/gdb.base/sigaltstack.exp             |    4 ----
 gdb/testsuite/gdb.base/sigbpt.exp                  |    4 ----
 gdb/testsuite/gdb.base/siginfo-addr.exp            |    4 ----
 gdb/testsuite/gdb.base/siginfo-obj.exp             |    4 ----
 gdb/testsuite/gdb.base/siginfo.exp                 |    4 ----
 gdb/testsuite/gdb.base/signals.exp                 |    4 ----
 gdb/testsuite/gdb.base/signull.exp                 |    4 ----
 gdb/testsuite/gdb.base/sigrepeat.exp               |    4 ----
 gdb/testsuite/gdb.base/sigstep.exp                 |    4 ----
 gdb/testsuite/gdb.base/sizeof.exp                  |    4 ----
 gdb/testsuite/gdb.base/so-impl-ld.exp              |    4 ----
 gdb/testsuite/gdb.base/so-indr-cl.exp              |    4 ----
 gdb/testsuite/gdb.base/solib.exp                   |    4 ----
 gdb/testsuite/gdb.base/source.exp                  |    4 ----
 gdb/testsuite/gdb.base/stack-checking.exp          |    4 ----
 gdb/testsuite/gdb.base/start.exp                   |    4 ----
 gdb/testsuite/gdb.base/step-break.exp              |    4 ----
 gdb/testsuite/gdb.base/step-bt.exp                 |    4 ----
 gdb/testsuite/gdb.base/step-line.exp               |    4 ----
 gdb/testsuite/gdb.base/step-test.exp               |    4 ----
 gdb/testsuite/gdb.base/store.exp                   |    4 ----
 gdb/testsuite/gdb.base/structs.exp                 |    4 ----
 gdb/testsuite/gdb.base/structs2.exp                |    4 ----
 gdb/testsuite/gdb.base/subst.exp                   |    4 ----
 gdb/testsuite/gdb.base/term.exp                    |    4 ----
 gdb/testsuite/gdb.base/testenv.exp                 |    4 ----
 gdb/testsuite/gdb.base/trace-commands.exp          |    4 ----
 gdb/testsuite/gdb.base/twice.exp                   |    4 ----
 gdb/testsuite/gdb.base/type-opaque.exp             |    4 ----
 gdb/testsuite/gdb.base/unload.exp                  |    4 ----
 gdb/testsuite/gdb.base/until.exp                   |    4 ----
 gdb/testsuite/gdb.base/unwindonsignal.exp          |    4 ----
 gdb/testsuite/gdb.base/varargs.exp                 |    4 ----
 gdb/testsuite/gdb.base/volatile.exp                |    4 ----
 gdb/testsuite/gdb.base/watch_thread_num.exp        |    4 ----
 gdb/testsuite/gdb.base/watchpoint-solib.exp        |    4 ----
 gdb/testsuite/gdb.base/watchpoint.exp              |    4 ----
 gdb/testsuite/gdb.base/watchpoints.exp             |    4 ----
 gdb/testsuite/gdb.base/whatis-exp.exp              |    4 ----
 gdb/testsuite/gdb.base/whatis.exp                  |    4 ----
 gdb/testsuite/gdb.cp/ambiguous.exp                 |    4 ----
 gdb/testsuite/gdb.cp/annota2.exp                   |    4 ----
 gdb/testsuite/gdb.cp/annota3.exp                   |    4 ----
 gdb/testsuite/gdb.cp/anon-union.exp                |    4 ----
 gdb/testsuite/gdb.cp/arg-reference.exp             |    4 ----
 gdb/testsuite/gdb.cp/bool.exp                      |    4 ----
 gdb/testsuite/gdb.cp/breakpoint.exp                |    4 ----
 gdb/testsuite/gdb.cp/bs15503.exp                   |    4 ----
 gdb/testsuite/gdb.cp/call-c.exp                    |    4 ----
 gdb/testsuite/gdb.cp/casts.exp                     |    4 ----
 gdb/testsuite/gdb.cp/class2.exp                    |    4 ----
 gdb/testsuite/gdb.cp/classes.exp                   |    4 ----
 gdb/testsuite/gdb.cp/cpcompletion.exp              |    4 ----
 gdb/testsuite/gdb.cp/cpexprs.exp                   |    4 ----
 gdb/testsuite/gdb.cp/cplusfuncs.exp                |    4 ----
 gdb/testsuite/gdb.cp/ctti.exp                      |    4 ----
 gdb/testsuite/gdb.cp/demangle.exp                  |    4 ----
 gdb/testsuite/gdb.cp/derivation.exp                |    4 ----
 gdb/testsuite/gdb.cp/exception.exp                 |    4 ----
 gdb/testsuite/gdb.cp/formatted-ref.exp             |    4 ----
 gdb/testsuite/gdb.cp/gdb1355.exp                   |    4 ----
 gdb/testsuite/gdb.cp/gdb2384.exp                   |    4 ----
 gdb/testsuite/gdb.cp/gdb2495.exp                   |    4 ----
 gdb/testsuite/gdb.cp/hang.exp                      |    4 ----
 gdb/testsuite/gdb.cp/inherit.exp                   |    4 ----
 gdb/testsuite/gdb.cp/local.exp                     |    4 ----
 gdb/testsuite/gdb.cp/m-data.exp                    |    4 ----
 gdb/testsuite/gdb.cp/m-static.exp                  |    4 ----
 gdb/testsuite/gdb.cp/maint.exp                     |    4 ----
 gdb/testsuite/gdb.cp/mb-ctor.exp                   |    4 ----
 gdb/testsuite/gdb.cp/mb-inline.exp                 |    4 ----
 gdb/testsuite/gdb.cp/mb-templates.exp              |    4 ----
 gdb/testsuite/gdb.cp/member-ptr.exp                |    4 ----
 gdb/testsuite/gdb.cp/method.exp                    |    4 ----
 gdb/testsuite/gdb.cp/misc.exp                      |    4 ----
 gdb/testsuite/gdb.cp/namespace-nested-import.exp   |    4 ----
 gdb/testsuite/gdb.cp/namespace.exp                 |    4 ----
 gdb/testsuite/gdb.cp/nextoverthrow.exp             |    4 ----
 gdb/testsuite/gdb.cp/nsdecl.exp                    |    4 ----
 gdb/testsuite/gdb.cp/nsimport.exp                  |    4 ----
 gdb/testsuite/gdb.cp/nsrecurs.exp                  |    4 ----
 gdb/testsuite/gdb.cp/nsstress.exp                  |    4 ----
 gdb/testsuite/gdb.cp/nsusing.exp                   |    4 ----
 gdb/testsuite/gdb.cp/overload.exp                  |    4 ----
 gdb/testsuite/gdb.cp/ovldbreak.exp                 |    4 ----
 gdb/testsuite/gdb.cp/pr-1023.exp                   |    4 ----
 gdb/testsuite/gdb.cp/pr-1210.exp                   |    4 ----
 gdb/testsuite/gdb.cp/pr-574.exp                    |    4 ----
 gdb/testsuite/gdb.cp/printmethod.exp               |    4 ----
 gdb/testsuite/gdb.cp/psmang.exp                    |    4 ----
 gdb/testsuite/gdb.cp/punctuator.exp                |    4 ----
 gdb/testsuite/gdb.cp/ref-params.exp                |    4 ----
 gdb/testsuite/gdb.cp/ref-types.exp                 |    4 ----
 gdb/testsuite/gdb.cp/rtti.exp                      |    4 ----
 gdb/testsuite/gdb.cp/shadow.exp                    |    4 ----
 gdb/testsuite/gdb.cp/temargs.exp                   |    4 ----
 gdb/testsuite/gdb.cp/templates.exp                 |    4 ----
 gdb/testsuite/gdb.cp/try_catch.exp                 |    4 ----
 gdb/testsuite/gdb.cp/userdef.exp                   |    4 ----
 gdb/testsuite/gdb.cp/virtfunc.exp                  |    4 ----
 gdb/testsuite/gdb.disasm/am33.exp                  |    4 ----
 gdb/testsuite/gdb.disasm/h8300s.exp                |    4 ----
 gdb/testsuite/gdb.disasm/hppa.exp                  |    4 ----
 gdb/testsuite/gdb.disasm/mn10300.exp               |    4 ----
 gdb/testsuite/gdb.disasm/sh3.exp                   |    4 ----
 gdb/testsuite/gdb.disasm/t01_mov.exp               |    4 ----
 gdb/testsuite/gdb.disasm/t02_mova.exp              |    4 ----
 gdb/testsuite/gdb.disasm/t03_add.exp               |    4 ----
 gdb/testsuite/gdb.disasm/t04_sub.exp               |    4 ----
 gdb/testsuite/gdb.disasm/t05_cmp.exp               |    4 ----
 gdb/testsuite/gdb.disasm/t06_ari2.exp              |    4 ----
 gdb/testsuite/gdb.disasm/t07_ari3.exp              |    4 ----
 gdb/testsuite/gdb.disasm/t08_or.exp                |    4 ----
 gdb/testsuite/gdb.disasm/t09_xor.exp               |    4 ----
 gdb/testsuite/gdb.disasm/t10_and.exp               |    4 ----
 gdb/testsuite/gdb.disasm/t11_logs.exp              |    4 ----
 gdb/testsuite/gdb.disasm/t12_bit.exp               |    4 ----
 gdb/testsuite/gdb.disasm/t13_otr.exp               |    4 ----
 gdb/testsuite/gdb.fortran/array-element.exp        |    4 ----
 gdb/testsuite/gdb.fortran/derived-type.exp         |    4 ----
 gdb/testsuite/gdb.fortran/exprs.exp                |    4 ----
 gdb/testsuite/gdb.fortran/subarray.exp             |    4 ----
 gdb/testsuite/gdb.fortran/types.exp                |    4 ----
 gdb/testsuite/gdb.gdb/complaints.exp               |    4 ----
 gdb/testsuite/gdb.gdb/observer.exp                 |    4 ----
 gdb/testsuite/gdb.gdb/selftest.exp                 |    4 ----
 gdb/testsuite/gdb.gdb/xfullpath.exp                |    4 ----
 gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp          |    4 ----
 gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp         |    4 ----
 gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp    |    4 ----
 gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp        |    4 ----
 gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp    |    4 ----
 gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp          |    4 ----
 gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp      |    4 ----
 gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp           |    4 ----
 gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp    |    4 ----
 gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp     |    4 ----
 gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp           |    4 ----
 gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp           |    4 ----
 gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp           |    4 ----
 gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp       |    4 ----
 gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp       |    4 ----
 gdb/testsuite/gdb.java/jmain.exp                   |    4 ----
 gdb/testsuite/gdb.java/jmisc.exp                   |    4 ----
 gdb/testsuite/gdb.java/jnpe.exp                    |    4 ----
 gdb/testsuite/gdb.java/jprint.exp                  |    4 ----
 gdb/testsuite/gdb.java/jv-exp.exp                  |    4 ----
 gdb/testsuite/gdb.java/jv-print.exp                |    4 ----
 gdb/testsuite/gdb.mi/mi-pending.exp                |    4 ----
 gdb/testsuite/gdb.modula2/unbounded-array.exp      |    4 ----
 gdb/testsuite/gdb.objc/basicclass.exp              |    4 ----
 gdb/testsuite/gdb.objc/nondebug.exp                |    4 ----
 gdb/testsuite/gdb.objc/objcdecode.exp              |    4 ----
 gdb/testsuite/gdb.objc/print.exp                   |    4 ----
 gdb/testsuite/gdb.opencl/callfuncs.exp             |    4 ----
 gdb/testsuite/gdb.opencl/convs_casts.exp           |    4 ----
 gdb/testsuite/gdb.opencl/datatypes.exp             |    4 ----
 gdb/testsuite/gdb.opencl/operators.exp             |    4 ----
 gdb/testsuite/gdb.opencl/vec_comps.exp             |    4 ----
 gdb/testsuite/gdb.opt/clobbered-registers-O2.exp   |    4 ----
 gdb/testsuite/gdb.pascal/floats.exp                |    4 ----
 gdb/testsuite/gdb.pascal/gdb11492.exp              |    4 ----
 gdb/testsuite/gdb.pascal/hello.exp                 |    4 ----
 gdb/testsuite/gdb.pascal/integers.exp              |    4 ----
 gdb/testsuite/gdb.pascal/print.exp                 |    4 ----
 gdb/testsuite/gdb.pascal/types.exp                 |    4 ----
 gdb/testsuite/gdb.python/lib-types.exp             |    4 ----
 gdb/testsuite/gdb.python/py-block.exp              |    4 ----
 gdb/testsuite/gdb.python/py-breakpoint.exp         |    4 ----
 gdb/testsuite/gdb.python/py-cmd.exp                |    4 ----
 gdb/testsuite/gdb.python/py-events.exp             |    4 ----
 gdb/testsuite/gdb.python/py-evsignal.exp           |    4 ----
 gdb/testsuite/gdb.python/py-evthreads.exp          |    4 ----
 gdb/testsuite/gdb.python/py-finish-breakpoint.exp  |    4 ----
 gdb/testsuite/gdb.python/py-finish-breakpoint2.exp |    4 ----
 gdb/testsuite/gdb.python/py-frame.exp              |    4 ----
 gdb/testsuite/gdb.python/py-function.exp           |    4 ----
 gdb/testsuite/gdb.python/py-inferior.exp           |    4 ----
 gdb/testsuite/gdb.python/py-infthread.exp          |    4 ----
 gdb/testsuite/gdb.python/py-objfile-script.exp     |    4 ----
 gdb/testsuite/gdb.python/py-objfile.exp            |    4 ----
 gdb/testsuite/gdb.python/py-parameter.exp          |    4 ----
 gdb/testsuite/gdb.python/py-pp-maint.exp           |    4 ----
 gdb/testsuite/gdb.python/py-prettyprint.exp        |    4 ----
 gdb/testsuite/gdb.python/py-progspace.exp          |    4 ----
 gdb/testsuite/gdb.python/py-prompt.exp             |    4 ----
 gdb/testsuite/gdb.python/py-section-script.exp     |    4 ----
 gdb/testsuite/gdb.python/py-symbol.exp             |    4 ----
 gdb/testsuite/gdb.python/py-symtab.exp             |    4 ----
 gdb/testsuite/gdb.python/py-template.exp           |    4 ----
 gdb/testsuite/gdb.python/py-type.exp               |    4 ----
 gdb/testsuite/gdb.python/py-value.exp              |    4 ----
 gdb/testsuite/gdb.python/python.exp                |    4 ----
 gdb/testsuite/gdb.reverse/i386-precsave.exp        |    4 ----
 gdb/testsuite/gdb.reverse/i386-reverse.exp         |    4 ----
 gdb/testsuite/gdb.reverse/i386-sse-reverse.exp     |    4 ----
 gdb/testsuite/gdb.reverse/i387-env-reverse.exp     |    4 ----
 gdb/testsuite/gdb.reverse/i387-stack-reverse.exp   |    4 ----
 gdb/testsuite/gdb.reverse/sigall-precsave.exp      |    4 ----
 gdb/testsuite/gdb.reverse/sigall-reverse.exp       |    4 ----
 gdb/testsuite/gdb.stabs/exclfwd.exp                |    4 ----
 gdb/testsuite/gdb.stabs/gdb11479.exp               |    4 ----
 gdb/testsuite/gdb.stabs/weird.exp                  |    4 ----
 gdb/testsuite/gdb.threads/bp_in_thread.exp         |    4 ----
 gdb/testsuite/gdb.threads/gcore-thread.exp         |    4 ----
 gdb/testsuite/gdb.threads/hand-call-in-threads.exp |    4 ----
 .../gdb.threads/interrupted-hand-call.exp          |    4 ----
 gdb/testsuite/gdb.threads/killed.exp               |    4 ----
 gdb/testsuite/gdb.threads/linux-dp.exp             |    4 ----
 gdb/testsuite/gdb.threads/manythreads.exp          |    4 ----
 gdb/testsuite/gdb.threads/print-threads.exp        |    4 ----
 gdb/testsuite/gdb.threads/pthread_cond_wait.exp    |    4 ----
 gdb/testsuite/gdb.threads/pthreads.exp             |    4 ----
 gdb/testsuite/gdb.threads/schedlock.exp            |    4 ----
 gdb/testsuite/gdb.threads/staticthreads.exp        |    4 ----
 gdb/testsuite/gdb.threads/step.exp                 |    4 ----
 gdb/testsuite/gdb.threads/step2.exp                |    4 ----
 gdb/testsuite/gdb.threads/switch-threads.exp       |    4 ----
 gdb/testsuite/gdb.threads/thread-find.exp          |    4 ----
 gdb/testsuite/gdb.threads/thread-specific.exp      |    4 ----
 .../gdb.threads/thread-unwindonsignal.exp          |    4 ----
 gdb/testsuite/gdb.threads/thread_check.exp         |    4 ----
 gdb/testsuite/gdb.threads/thread_events.exp        |    4 ----
 gdb/testsuite/gdb.threads/threadapply.exp          |    4 ----
 gdb/testsuite/gdb.threads/tls-shared.exp           |    4 ----
 gdb/testsuite/gdb.threads/watchthreads.exp         |    4 ----
 gdb/testsuite/gdb.threads/watchthreads2.exp        |    4 ----
 gdb/testsuite/gdb.trace/actions.exp                |    4 ----
 gdb/testsuite/gdb.trace/ax.exp                     |    4 ----
 gdb/testsuite/gdb.trace/backtrace.exp              |    4 ----
 gdb/testsuite/gdb.trace/change-loc.exp             |    4 ----
 gdb/testsuite/gdb.trace/circ.exp                   |    4 ----
 gdb/testsuite/gdb.trace/collection.exp             |    4 ----
 gdb/testsuite/gdb.trace/deltrace.exp               |    4 ----
 gdb/testsuite/gdb.trace/infotrace.exp              |    4 ----
 gdb/testsuite/gdb.trace/packetlen.exp              |    4 ----
 gdb/testsuite/gdb.trace/passc-dyn.exp              |    4 ----
 gdb/testsuite/gdb.trace/passcount.exp              |    4 ----
 gdb/testsuite/gdb.trace/pending.exp                |    4 ----
 gdb/testsuite/gdb.trace/report.exp                 |    4 ----
 gdb/testsuite/gdb.trace/save-trace.exp             |    4 ----
 gdb/testsuite/gdb.trace/strace.exp                 |    4 ----
 gdb/testsuite/gdb.trace/tfile.exp                  |    4 ----
 gdb/testsuite/gdb.trace/tfind.exp                  |    4 ----
 gdb/testsuite/gdb.trace/tracecmd.exp               |    4 ----
 gdb/testsuite/gdb.trace/tsv.exp                    |    4 ----
 gdb/testsuite/gdb.trace/while-dyn.exp              |    4 ----
 gdb/testsuite/gdb.trace/while-stepping.exp         |    4 ----
 472 files changed, 0 insertions(+), 1888 deletions(-)

diff --git a/gdb/testsuite/gdb.ada/array_bounds.exp b/gdb/testsuite/gdb.ada/array_bounds.exp
index b47ef3a..a726e71 100644
--- a/gdb/testsuite/gdb.ada/array_bounds.exp
+++ b/gdb/testsuite/gdb.ada/array_bounds.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "array_bounds"
diff --git a/gdb/testsuite/gdb.ada/array_return.exp b/gdb/testsuite/gdb.ada/array_return.exp
index f5f1d68..c72f8cf 100644
--- a/gdb/testsuite/gdb.ada/array_return.exp
+++ b/gdb/testsuite/gdb.ada/array_return.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 if { [skip_ada_tests] } { return -1 }
diff --git a/gdb/testsuite/gdb.ada/array_subscript_addr.exp b/gdb/testsuite/gdb.ada/array_subscript_addr.exp
index cfad5a0..aa10b27 100644
--- a/gdb/testsuite/gdb.ada/array_subscript_addr.exp
+++ b/gdb/testsuite/gdb.ada/array_subscript_addr.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "array_subscript_addr"
diff --git a/gdb/testsuite/gdb.ada/arrayidx.exp b/gdb/testsuite/gdb.ada/arrayidx.exp
index 0373cc3..f8c087d 100644
--- a/gdb/testsuite/gdb.ada/arrayidx.exp
+++ b/gdb/testsuite/gdb.ada/arrayidx.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 if { [skip_ada_tests] } { return -1 }
diff --git a/gdb/testsuite/gdb.ada/arrayparam.exp b/gdb/testsuite/gdb.ada/arrayparam.exp
index 5c6ae00..d1549df 100644
--- a/gdb/testsuite/gdb.ada/arrayparam.exp
+++ b/gdb/testsuite/gdb.ada/arrayparam.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "arrayparam"
diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp
index d80ee8e..192feb1 100644
--- a/gdb/testsuite/gdb.ada/arrayptr.exp
+++ b/gdb/testsuite/gdb.ada/arrayptr.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "arrayptr"
diff --git a/gdb/testsuite/gdb.ada/assign_1.exp b/gdb/testsuite/gdb.ada/assign_1.exp
index 1aa49e8..c27e6d0 100644
--- a/gdb/testsuite/gdb.ada/assign_1.exp
+++ b/gdb/testsuite/gdb.ada/assign_1.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 gdb_exit
diff --git a/gdb/testsuite/gdb.ada/atomic_enum.exp b/gdb/testsuite/gdb.ada/atomic_enum.exp
index 2acbfca..e0ac214 100644
--- a/gdb/testsuite/gdb.ada/atomic_enum.exp
+++ b/gdb/testsuite/gdb.ada/atomic_enum.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "atomic_enum"
diff --git a/gdb/testsuite/gdb.ada/boolean_expr.exp b/gdb/testsuite/gdb.ada/boolean_expr.exp
index e79c5c1..52a6823 100644
--- a/gdb/testsuite/gdb.ada/boolean_expr.exp
+++ b/gdb/testsuite/gdb.ada/boolean_expr.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 gdb_exit
diff --git a/gdb/testsuite/gdb.ada/call_pn.exp b/gdb/testsuite/gdb.ada/call_pn.exp
index 9243e86..1b99252 100644
--- a/gdb/testsuite/gdb.ada/call_pn.exp
+++ b/gdb/testsuite/gdb.ada/call_pn.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "call_pn"
diff --git a/gdb/testsuite/gdb.ada/catch_ex.exp b/gdb/testsuite/gdb.ada/catch_ex.exp
index 0336903..f132355 100644
--- a/gdb/testsuite/gdb.ada/catch_ex.exp
+++ b/gdb/testsuite/gdb.ada/catch_ex.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "catch_ex"
diff --git a/gdb/testsuite/gdb.ada/char_param.exp b/gdb/testsuite/gdb.ada/char_param.exp
index 53ac32d..e437721 100644
--- a/gdb/testsuite/gdb.ada/char_param.exp
+++ b/gdb/testsuite/gdb.ada/char_param.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "char_param"
diff --git a/gdb/testsuite/gdb.ada/complete.exp b/gdb/testsuite/gdb.ada/complete.exp
index 1b65efa..4a0f2b4 100644
--- a/gdb/testsuite/gdb.ada/complete.exp
+++ b/gdb/testsuite/gdb.ada/complete.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "complete"
diff --git a/gdb/testsuite/gdb.ada/cond_lang.exp b/gdb/testsuite/gdb.ada/cond_lang.exp
index 6f5f1e8..b2aed95 100644
--- a/gdb/testsuite/gdb.ada/cond_lang.exp
+++ b/gdb/testsuite/gdb.ada/cond_lang.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "cond_lang"
diff --git a/gdb/testsuite/gdb.ada/dyn_loc.exp b/gdb/testsuite/gdb.ada/dyn_loc.exp
index bc40dad..1f7b9c2 100644
--- a/gdb/testsuite/gdb.ada/dyn_loc.exp
+++ b/gdb/testsuite/gdb.ada/dyn_loc.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "dyn_loc"
diff --git a/gdb/testsuite/gdb.ada/exec_changed.exp b/gdb/testsuite/gdb.ada/exec_changed.exp
index 7597877..4a3792b 100644
--- a/gdb/testsuite/gdb.ada/exec_changed.exp
+++ b/gdb/testsuite/gdb.ada/exec_changed.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "ada.exp"

 if { [skip_ada_tests] } { return -1 }
diff --git a/gdb/testsuite/gdb.ada/exprs.exp b/gdb/testsuite/gdb.ada/exprs.exp
index ef9a56b..764cd57 100644
--- a/gdb/testsuite/gdb.ada/exprs.exp
+++ b/gdb/testsuite/gdb.ada/exprs.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "exprs"
diff --git a/gdb/testsuite/gdb.ada/fixed_cmp.exp b/gdb/testsuite/gdb.ada/fixed_cmp.exp
index 2c85526..1d0f960 100644
--- a/gdb/testsuite/gdb.ada/fixed_cmp.exp
+++ b/gdb/testsuite/gdb.ada/fixed_cmp.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "fixed_cmp"
diff --git a/gdb/testsuite/gdb.ada/fixed_points.exp b/gdb/testsuite/gdb.ada/fixed_points.exp
index e5bf2e1..d86a00b 100644
--- a/gdb/testsuite/gdb.ada/fixed_points.exp
+++ b/gdb/testsuite/gdb.ada/fixed_points.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 if { [skip_ada_tests] } { return -1 }
diff --git a/gdb/testsuite/gdb.ada/formatted_ref.exp b/gdb/testsuite/gdb.ada/formatted_ref.exp
index a7ad067..8341dca 100644
--- a/gdb/testsuite/gdb.ada/formatted_ref.exp
+++ b/gdb/testsuite/gdb.ada/formatted_ref.exp
@@ -24,10 +24,6 @@
 # work properly: condition expression using a reference object as one of its
 # operand.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "formatted_ref"
diff --git a/gdb/testsuite/gdb.ada/frame_args.exp b/gdb/testsuite/gdb.ada/frame_args.exp
index c83f63a..98c1a44 100644
--- a/gdb/testsuite/gdb.ada/frame_args.exp
+++ b/gdb/testsuite/gdb.ada/frame_args.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "frame_args"
diff --git a/gdb/testsuite/gdb.ada/fun_addr.exp b/gdb/testsuite/gdb.ada/fun_addr.exp
index 1c76a1e..6dabf34 100644
--- a/gdb/testsuite/gdb.ada/fun_addr.exp
+++ b/gdb/testsuite/gdb.ada/fun_addr.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "fun_addr"
diff --git a/gdb/testsuite/gdb.ada/fun_in_declare.exp b/gdb/testsuite/gdb.ada/fun_in_declare.exp
index 09f15bc..b73c74a 100644
--- a/gdb/testsuite/gdb.ada/fun_in_declare.exp
+++ b/gdb/testsuite/gdb.ada/fun_in_declare.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "fun_in_declare"
diff --git a/gdb/testsuite/gdb.ada/funcall_param.exp b/gdb/testsuite/gdb.ada/funcall_param.exp
index 8321eb6..ac0da83 100644
--- a/gdb/testsuite/gdb.ada/funcall_param.exp
+++ b/gdb/testsuite/gdb.ada/funcall_param.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "funcall_param"
diff --git a/gdb/testsuite/gdb.ada/homonym.exp b/gdb/testsuite/gdb.ada/homonym.exp
index d535ca2..a81135a 100644
--- a/gdb/testsuite/gdb.ada/homonym.exp
+++ b/gdb/testsuite/gdb.ada/homonym.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "homonym"
diff --git a/gdb/testsuite/gdb.ada/int_deref.exp b/gdb/testsuite/gdb.ada/int_deref.exp
index d8d2f20..51705bc 100644
--- a/gdb/testsuite/gdb.ada/int_deref.exp
+++ b/gdb/testsuite/gdb.ada/int_deref.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "int_deref"
diff --git a/gdb/testsuite/gdb.ada/interface.exp b/gdb/testsuite/gdb.ada/interface.exp
index fd34838..ae21a53 100644
--- a/gdb/testsuite/gdb.ada/interface.exp
+++ b/gdb/testsuite/gdb.ada/interface.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "interface"
diff --git a/gdb/testsuite/gdb.ada/lang_switch.exp b/gdb/testsuite/gdb.ada/lang_switch.exp
index e3beec5..9e14687 100644
--- a/gdb/testsuite/gdb.ada/lang_switch.exp
+++ b/gdb/testsuite/gdb.ada/lang_switch.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "lang_switch"
diff --git a/gdb/testsuite/gdb.ada/mod_from_name.exp b/gdb/testsuite/gdb.ada/mod_from_name.exp
index 38a9bb9..fe97245 100644
--- a/gdb/testsuite/gdb.ada/mod_from_name.exp
+++ b/gdb/testsuite/gdb.ada/mod_from_name.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "mod_from_name"
diff --git a/gdb/testsuite/gdb.ada/nested.exp b/gdb/testsuite/gdb.ada/nested.exp
index be8dece..079577b 100644
--- a/gdb/testsuite/gdb.ada/nested.exp
+++ b/gdb/testsuite/gdb.ada/nested.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "nested"
diff --git a/gdb/testsuite/gdb.ada/null_array.exp b/gdb/testsuite/gdb.ada/null_array.exp
index d449e3c..4de3a26 100644
--- a/gdb/testsuite/gdb.ada/null_array.exp
+++ b/gdb/testsuite/gdb.ada/null_array.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "null_array"
diff --git a/gdb/testsuite/gdb.ada/null_record.exp b/gdb/testsuite/gdb.ada/null_record.exp
index ab0ef3a..97508b2 100644
--- a/gdb/testsuite/gdb.ada/null_record.exp
+++ b/gdb/testsuite/gdb.ada/null_record.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 if { [skip_ada_tests] } { return -1 }
diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp
index 80dd44f..678639c 100644
--- a/gdb/testsuite/gdb.ada/packed_array.exp
+++ b/gdb/testsuite/gdb.ada/packed_array.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 if { [skip_ada_tests] } { return -1 }
diff --git a/gdb/testsuite/gdb.ada/packed_tagged.exp b/gdb/testsuite/gdb.ada/packed_tagged.exp
index e671d73..3cf8a28 100644
--- a/gdb/testsuite/gdb.ada/packed_tagged.exp
+++ b/gdb/testsuite/gdb.ada/packed_tagged.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "packed_tagged"
diff --git a/gdb/testsuite/gdb.ada/print_chars.exp b/gdb/testsuite/gdb.ada/print_chars.exp
index e51356c..35dfcc6 100644
--- a/gdb/testsuite/gdb.ada/print_chars.exp
+++ b/gdb/testsuite/gdb.ada/print_chars.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "print_chars"
diff --git a/gdb/testsuite/gdb.ada/print_pc.exp b/gdb/testsuite/gdb.ada/print_pc.exp
index aff00e8..371dd51 100644
--- a/gdb/testsuite/gdb.ada/print_pc.exp
+++ b/gdb/testsuite/gdb.ada/print_pc.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "start"
diff --git a/gdb/testsuite/gdb.ada/ptype_arith_binop.exp b/gdb/testsuite/gdb.ada/ptype_arith_binop.exp
index 944d90b..75d3812 100644
--- a/gdb/testsuite/gdb.ada/ptype_arith_binop.exp
+++ b/gdb/testsuite/gdb.ada/ptype_arith_binop.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.ada/ptype_field.exp b/gdb/testsuite/gdb.ada/ptype_field.exp
index 2fb63e6..03f8d8f 100644
--- a/gdb/testsuite/gdb.ada/ptype_field.exp
+++ b/gdb/testsuite/gdb.ada/ptype_field.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "ptype_field"
diff --git a/gdb/testsuite/gdb.ada/ptype_tagged_param.exp b/gdb/testsuite/gdb.ada/ptype_tagged_param.exp
index c56d82f..d710729 100644
--- a/gdb/testsuite/gdb.ada/ptype_tagged_param.exp
+++ b/gdb/testsuite/gdb.ada/ptype_tagged_param.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "ptype_tagged_param"
diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/rec_return.exp
index e291d11..06fe4e6 100644
--- a/gdb/testsuite/gdb.ada/rec_return.exp
+++ b/gdb/testsuite/gdb.ada/rec_return.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "rec_return"
diff --git a/gdb/testsuite/gdb.ada/ref_param.exp b/gdb/testsuite/gdb.ada/ref_param.exp
index 8f86083..82fcc61 100644
--- a/gdb/testsuite/gdb.ada/ref_param.exp
+++ b/gdb/testsuite/gdb.ada/ref_param.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "ref_param"
diff --git a/gdb/testsuite/gdb.ada/ref_tick_size.exp b/gdb/testsuite/gdb.ada/ref_tick_size.exp
index 7d157ce..8036723 100644
--- a/gdb/testsuite/gdb.ada/ref_tick_size.exp
+++ b/gdb/testsuite/gdb.ada/ref_tick_size.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "ref_tick_size"
diff --git a/gdb/testsuite/gdb.ada/start.exp b/gdb/testsuite/gdb.ada/start.exp
index c36db3f..6ba180d 100644
--- a/gdb/testsuite/gdb.ada/start.exp
+++ b/gdb/testsuite/gdb.ada/start.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 if { [skip_ada_tests] } { return -1 }
diff --git a/gdb/testsuite/gdb.ada/str_ref_cmp.exp b/gdb/testsuite/gdb.ada/str_ref_cmp.exp
index 850be59..b0db6aa 100644
--- a/gdb/testsuite/gdb.ada/str_ref_cmp.exp
+++ b/gdb/testsuite/gdb.ada/str_ref_cmp.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "str_ref_cmp"
diff --git a/gdb/testsuite/gdb.ada/sym_print_name.exp b/gdb/testsuite/gdb.ada/sym_print_name.exp
index 9e868a4..7a8765a 100644
--- a/gdb/testsuite/gdb.ada/sym_print_name.exp
+++ b/gdb/testsuite/gdb.ada/sym_print_name.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "sym_print_name"
diff --git a/gdb/testsuite/gdb.ada/taft_type.exp b/gdb/testsuite/gdb.ada/taft_type.exp
index 8102c1e..b934ccc 100644
--- a/gdb/testsuite/gdb.ada/taft_type.exp
+++ b/gdb/testsuite/gdb.ada/taft_type.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "taft_type"
diff --git a/gdb/testsuite/gdb.ada/tagged.exp b/gdb/testsuite/gdb.ada/tagged.exp
index 780667d..6cc316e 100644
--- a/gdb/testsuite/gdb.ada/tagged.exp
+++ b/gdb/testsuite/gdb.ada/tagged.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "tagged"
diff --git a/gdb/testsuite/gdb.ada/tasks.exp b/gdb/testsuite/gdb.ada/tasks.exp
index 59b6396..46a77ff 100644
--- a/gdb/testsuite/gdb.ada/tasks.exp
+++ b/gdb/testsuite/gdb.ada/tasks.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "tasks"
diff --git a/gdb/testsuite/gdb.ada/tick_last_segv.exp b/gdb/testsuite/gdb.ada/tick_last_segv.exp
index 3d1f07c..ce6782f 100644
--- a/gdb/testsuite/gdb.ada/tick_last_segv.exp
+++ b/gdb/testsuite/gdb.ada/tick_last_segv.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "tick_last_segv"
diff --git a/gdb/testsuite/gdb.ada/type_coercion.exp b/gdb/testsuite/gdb.ada/type_coercion.exp
index 3e57d8b..32b4136 100644
--- a/gdb/testsuite/gdb.ada/type_coercion.exp
+++ b/gdb/testsuite/gdb.ada/type_coercion.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "type_coercion"
diff --git a/gdb/testsuite/gdb.ada/uninitialized_vars.exp b/gdb/testsuite/gdb.ada/uninitialized_vars.exp
index 54a1805..0ce240e 100644
--- a/gdb/testsuite/gdb.ada/uninitialized_vars.exp
+++ b/gdb/testsuite/gdb.ada/uninitialized_vars.exp
@@ -16,10 +16,6 @@
 # Check that GDB is able to print unconstrained variables and discriminated
 # records before their initialization.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "uninitialized_vars"
diff --git a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
index 2e5f93d..34bd3de 100644
--- a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
+++ b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 set testdir "variant_record_packed_array"
diff --git a/gdb/testsuite/gdb.ada/watch_arg.exp b/gdb/testsuite/gdb.ada/watch_arg.exp
index 7961117..1cb9eca 100644
--- a/gdb/testsuite/gdb.ada/watch_arg.exp
+++ b/gdb/testsuite/gdb.ada/watch_arg.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"

 if { [skip_ada_tests] } { return -1 }
diff --git a/gdb/testsuite/gdb.arch/alpha-step.exp b/gdb/testsuite/gdb.arch/alpha-step.exp
index 53631ef..3008b11 100644
--- a/gdb/testsuite/gdb.arch/alpha-step.exp
+++ b/gdb/testsuite/gdb.arch/alpha-step.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if ![istarget "alpha*-*-*"] then {
     verbose "Skipping alpha step tests."
diff --git a/gdb/testsuite/gdb.arch/altivec-abi.exp b/gdb/testsuite/gdb.arch/altivec-abi.exp
index 994b23c..9bbe33f 100644
--- a/gdb/testsuite/gdb.arch/altivec-abi.exp
+++ b/gdb/testsuite/gdb.arch/altivec-abi.exp
@@ -18,10 +18,6 @@
 # Tests for Powerpc AltiVec ABI


-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # This file uses altivec-abi.c for input.
 #
diff --git a/gdb/testsuite/gdb.arch/altivec-regs.exp b/gdb/testsuite/gdb.arch/altivec-regs.exp
index 53cba8e..6ed6107 100644
--- a/gdb/testsuite/gdb.arch/altivec-regs.exp
+++ b/gdb/testsuite/gdb.arch/altivec-regs.exp
@@ -17,10 +17,6 @@

 # Tests for Powerpc AltiVec register setting and fetching

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # Test the use of registers, especially AltiVec registers, for Powerpc.
 # This file uses altivec-regs.c for input.
diff --git a/gdb/testsuite/gdb.arch/amd64-byte.exp b/gdb/testsuite/gdb.arch/amd64-byte.exp
index c966f63..87f6332 100644
--- a/gdb/testsuite/gdb.arch/amd64-byte.exp
+++ b/gdb/testsuite/gdb.arch/amd64-byte.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
     verbose "Skipping amd64 byte register tests."
diff --git a/gdb/testsuite/gdb.arch/amd64-disp-step.exp b/gdb/testsuite/gdb.arch/amd64-disp-step.exp
index a890f35..e7bb167 100644
--- a/gdb/testsuite/gdb.arch/amd64-disp-step.exp
+++ b/gdb/testsuite/gdb.arch/amd64-disp-step.exp
@@ -17,10 +17,6 @@

 # Test amd64 displaced stepping.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
     verbose "Skipping x86_64 displaced stepping tests."
diff --git a/gdb/testsuite/gdb.arch/amd64-dword.exp b/gdb/testsuite/gdb.arch/amd64-dword.exp
index d2ac584..ed42716 100644
--- a/gdb/testsuite/gdb.arch/amd64-dword.exp
+++ b/gdb/testsuite/gdb.arch/amd64-dword.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
     verbose "Skipping amd64 dword register tests."
diff --git a/gdb/testsuite/gdb.arch/amd64-word.exp b/gdb/testsuite/gdb.arch/amd64-word.exp
index 47d5ba0..4eaa421 100644
--- a/gdb/testsuite/gdb.arch/amd64-word.exp
+++ b/gdb/testsuite/gdb.arch/amd64-word.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
     verbose "Skipping amd64 word register tests."
diff --git a/gdb/testsuite/gdb.arch/arm-disp-step.exp b/gdb/testsuite/gdb.arch/arm-disp-step.exp
index 5e04f05..d09885d 100644
--- a/gdb/testsuite/gdb.arch/arm-disp-step.exp
+++ b/gdb/testsuite/gdb.arch/arm-disp-step.exp
@@ -17,10 +17,6 @@

 # Test arm displaced stepping.

-if $tracelevel {
-    strace $tracelevel
-}
-
 if {![istarget "arm*-*-*"]} then {
     verbose "Skipping arm displaced stepping tests."
     return
diff --git a/gdb/testsuite/gdb.arch/e500-abi.exp b/gdb/testsuite/gdb.arch/e500-abi.exp
index 72f90af..d2b13ab 100644
--- a/gdb/testsuite/gdb.arch/e500-abi.exp
+++ b/gdb/testsuite/gdb.arch/e500-abi.exp
@@ -17,10 +17,6 @@
 # Tests for Powerpc e500 ABI


-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # This file uses e500-abi.c for input.
 #
diff --git a/gdb/testsuite/gdb.arch/e500-prologue.exp b/gdb/testsuite/gdb.arch/e500-prologue.exp
index 7210756..a5e673d 100644
--- a/gdb/testsuite/gdb.arch/e500-prologue.exp
+++ b/gdb/testsuite/gdb.arch/e500-prologue.exp
@@ -15,10 +15,6 @@
 #
 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test PowerPC E500 prologue analyzer.


diff --git a/gdb/testsuite/gdb.arch/e500-regs.exp b/gdb/testsuite/gdb.arch/e500-regs.exp
index 5a0212d..02c085c 100644
--- a/gdb/testsuite/gdb.arch/e500-regs.exp
+++ b/gdb/testsuite/gdb.arch/e500-regs.exp
@@ -16,10 +16,6 @@

 # Tests for Powerpc E500 register setting and fetching

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # Test the use of registers, especially E500 registers, for Powerpc.
 # This file uses e500-regs.c for input.
diff --git a/gdb/testsuite/gdb.arch/gdb1291.exp b/gdb/testsuite/gdb.arch/gdb1291.exp
index 99a5b30..2142bfb 100644
--- a/gdb/testsuite/gdb.arch/gdb1291.exp
+++ b/gdb/testsuite/gdb.arch/gdb1291.exp
@@ -21,10 +21,6 @@
 # Tests for PR:1291.  Ensure that backtrace works properly for stack
 # frames greater than 256 bytes.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test SH backtraces with >256 byte frame stack. (PR:1291)


diff --git a/gdb/testsuite/gdb.arch/gdb1431.exp b/gdb/testsuite/gdb.arch/gdb1431.exp
index 4fa41b5..7446cce 100644
--- a/gdb/testsuite/gdb.arch/gdb1431.exp
+++ b/gdb/testsuite/gdb.arch/gdb1431.exp
@@ -23,10 +23,6 @@
 # command, which actually is behaving as currently defined.  What apparently
 # was expected was the behavior of the newer "advance" command.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Observe that the until command doesn't go all the way to sub2.


diff --git a/gdb/testsuite/gdb.arch/gdb1558.exp b/gdb/testsuite/gdb.arch/gdb1558.exp
index 67f4332..87b9f67 100644
--- a/gdb/testsuite/gdb.arch/gdb1558.exp
+++ b/gdb/testsuite/gdb.arch/gdb1558.exp
@@ -21,10 +21,6 @@
 # Tests for PR:1558.  Hits breakpoint at main after function called
 # from main.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if ![istarget "sh-*-*"] then {
     verbose "Skipping SH breakpoint test."
diff --git a/gdb/testsuite/gdb.arch/i386-avx.exp b/gdb/testsuite/gdb.arch/i386-avx.exp
index e66af42..0ef25d1 100644
--- a/gdb/testsuite/gdb.arch/i386-avx.exp
+++ b/gdb/testsuite/gdb.arch/i386-avx.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
     verbose "Skipping x86 AVX tests."
diff --git a/gdb/testsuite/gdb.arch/i386-bp_permanent.exp b/gdb/testsuite/gdb.arch/i386-bp_permanent.exp
index 50c81fa..026f956 100644
--- a/gdb/testsuite/gdb.arch/i386-bp_permanent.exp
+++ b/gdb/testsuite/gdb.arch/i386-bp_permanent.exp
@@ -16,10 +16,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test stepping over permanent breakpoints on i386.

 if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
diff --git a/gdb/testsuite/gdb.arch/i386-byte.exp b/gdb/testsuite/gdb.arch/i386-byte.exp
index d13fad8..c4b212f 100644
--- a/gdb/testsuite/gdb.arch/i386-byte.exp
+++ b/gdb/testsuite/gdb.arch/i386-byte.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
     verbose "Skipping i386 byte register tests."
diff --git a/gdb/testsuite/gdb.arch/i386-disp-step.exp b/gdb/testsuite/gdb.arch/i386-disp-step.exp
index b4e3db4..8a51be5 100644
--- a/gdb/testsuite/gdb.arch/i386-disp-step.exp
+++ b/gdb/testsuite/gdb.arch/i386-disp-step.exp
@@ -17,10 +17,6 @@

 # Test i386 displaced stepping.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
     verbose "Skipping x86 displaced stepping tests."
diff --git a/gdb/testsuite/gdb.arch/i386-gnu-cfi.exp b/gdb/testsuite/gdb.arch/i386-gnu-cfi.exp
index 7f48514..d7b41cc 100644
--- a/gdb/testsuite/gdb.arch/i386-gnu-cfi.exp
+++ b/gdb/testsuite/gdb.arch/i386-gnu-cfi.exp
@@ -20,10 +20,6 @@

 # Unwinding of DW_CFA_GNU_negative_offset_extended test program.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test i386 unwinder.


diff --git a/gdb/testsuite/gdb.arch/i386-permbkpt.exp b/gdb/testsuite/gdb.arch/i386-permbkpt.exp
index 414abb7..df3b373 100644
--- a/gdb/testsuite/gdb.arch/i386-permbkpt.exp
+++ b/gdb/testsuite/gdb.arch/i386-permbkpt.exp
@@ -16,10 +16,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test inserting breakpoints over permanent breakpoints on i386 and amd64.

 if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
diff --git a/gdb/testsuite/gdb.arch/i386-prologue.exp b/gdb/testsuite/gdb.arch/i386-prologue.exp
index 21a701e..2e724aa 100644
--- a/gdb/testsuite/gdb.arch/i386-prologue.exp
+++ b/gdb/testsuite/gdb.arch/i386-prologue.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test i386 prologue analyzer.


diff --git a/gdb/testsuite/gdb.arch/i386-size-overlap.exp b/gdb/testsuite/gdb.arch/i386-size-overlap.exp
index 59d359f..23cbabc 100644
--- a/gdb/testsuite/gdb.arch/i386-size-overlap.exp
+++ b/gdb/testsuite/gdb.arch/i386-size-overlap.exp
@@ -15,10 +15,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test that GDB can handle overlapping sizes of symbols.

 if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
diff --git a/gdb/testsuite/gdb.arch/i386-size.exp b/gdb/testsuite/gdb.arch/i386-size.exp
index c46cd09..241d939 100644
--- a/gdb/testsuite/gdb.arch/i386-size.exp
+++ b/gdb/testsuite/gdb.arch/i386-size.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test that GDB can see the sizes of symbols.

 if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
diff --git a/gdb/testsuite/gdb.arch/i386-sse.exp b/gdb/testsuite/gdb.arch/i386-sse.exp
index 1a4e408..1a868bd 100644
--- a/gdb/testsuite/gdb.arch/i386-sse.exp
+++ b/gdb/testsuite/gdb.arch/i386-sse.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
     verbose "Skipping x86 SSE tests."
diff --git a/gdb/testsuite/gdb.arch/i386-unwind.exp b/gdb/testsuite/gdb.arch/i386-unwind.exp
index a8be6f7..4ae5943 100644
--- a/gdb/testsuite/gdb.arch/i386-unwind.exp
+++ b/gdb/testsuite/gdb.arch/i386-unwind.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test i386 unwinder.


diff --git a/gdb/testsuite/gdb.arch/i386-word.exp b/gdb/testsuite/gdb.arch/i386-word.exp
index 701e428..317b9f7 100644
--- a/gdb/testsuite/gdb.arch/i386-word.exp
+++ b/gdb/testsuite/gdb.arch/i386-word.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
     verbose "Skipping i386 word register tests."
diff --git a/gdb/testsuite/gdb.arch/pa-nullify.exp b/gdb/testsuite/gdb.arch/pa-nullify.exp
index 77e7ca7..e3223d9 100644
--- a/gdb/testsuite/gdb.arch/pa-nullify.exp
+++ b/gdb/testsuite/gdb.arch/pa-nullify.exp
@@ -15,10 +15,6 @@
 #
 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 # Test handling of nullified instructions for the pa target.

diff --git a/gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp b/gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp
index 241dd4f..860e68e 100644
--- a/gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp
+++ b/gdb/testsuite/gdb.arch/powerpc-aix-prologue.exp
@@ -15,10 +15,6 @@
 #
 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test rs6000 prologue analyzer.


diff --git a/gdb/testsuite/gdb.arch/powerpc-d128-regs.exp b/gdb/testsuite/gdb.arch/powerpc-d128-regs.exp
index 18d7801..5e952d8 100644
--- a/gdb/testsuite/gdb.arch/powerpc-d128-regs.exp
+++ b/gdb/testsuite/gdb.arch/powerpc-d128-regs.exp
@@ -20,10 +20,6 @@

 # Testcase for ppc decimal128 pseudo-registers.

-if $tracelevel then {
-        strace $tracelevel
-}
-
 if ![istarget "powerpc64-*"] then {
     verbose "Skipping powerpc Decimal128 pseudo-registers testcase."
     return
diff --git a/gdb/testsuite/gdb.arch/ppc-dfp.exp b/gdb/testsuite/gdb.arch/ppc-dfp.exp
index a44a5ac..d08424b 100644
--- a/gdb/testsuite/gdb.arch/ppc-dfp.exp
+++ b/gdb/testsuite/gdb.arch/ppc-dfp.exp
@@ -16,10 +16,6 @@

 # Tests for Powerpc Decimal Floating Point registers setting and fetching

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if ![istarget "powerpc*"] then {
     verbose "Skipping powerpc decimal floating point register tests."
     return
diff --git a/gdb/testsuite/gdb.arch/ppc-fp.exp b/gdb/testsuite/gdb.arch/ppc-fp.exp
index 41a4865..2eff7fb 100644
--- a/gdb/testsuite/gdb.arch/ppc-fp.exp
+++ b/gdb/testsuite/gdb.arch/ppc-fp.exp
@@ -16,10 +16,6 @@

 # Tests for Powerpc floating point register setting and fetching

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if ![istarget "powerpc*"] then {
     verbose "Skipping powerpc floating point register tests."
     return
diff --git a/gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp b/gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp
index b96b136..53998d3 100644
--- a/gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp
+++ b/gdb/testsuite/gdb.arch/ppc64-atomic-inst.exp
@@ -16,10 +16,6 @@
 #
 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # Test single stepping through atomic sequences beginning with
 # a lwarx/ldarx instruction and ending with a stwcx/stdcx
 # instruction.
diff --git a/gdb/testsuite/gdb.arch/system-gcore.exp b/gdb/testsuite/gdb.arch/system-gcore.exp
index c5e6724..ab97f69 100644
--- a/gdb/testsuite/gdb.arch/system-gcore.exp
+++ b/gdb/testsuite/gdb.arch/system-gcore.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 if { ![istarget i?86-*-linux*] && ![istarget x86_64-*-linux* ] } {
     verbose "Skipping system register gcore tests."
diff --git a/gdb/testsuite/gdb.arch/vsx-regs.exp b/gdb/testsuite/gdb.arch/vsx-regs.exp
index 7a0bf57..82201a3 100644
--- a/gdb/testsuite/gdb.arch/vsx-regs.exp
+++ b/gdb/testsuite/gdb.arch/vsx-regs.exp
@@ -14,10 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # Test the use of VSX registers, for Powerpc.
 #
diff --git a/gdb/testsuite/gdb.asm/asm-source.exp b/gdb/testsuite/gdb.asm/asm-source.exp
index 18f9a7b..9c2435b 100644
--- a/gdb/testsuite/gdb.asm/asm-source.exp
+++ b/gdb/testsuite/gdb.asm/asm-source.exp
@@ -15,10 +15,6 @@
 #
 # This file was written by Kendra.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # Test debugging assembly level programs.
 # This file uses asmsrc[12].s for input.
diff --git a/gdb/testsuite/gdb.base/a2-run.exp b/gdb/testsuite/gdb.base/a2-run.exp
index c069851..4e3b54b 100644
--- a/gdb/testsuite/gdb.base/a2-run.exp
+++ b/gdb/testsuite/gdb.base/a2-run.exp
@@ -21,10 +21,6 @@ if [gdb_skip_stdio_test "a2run.exp"] {
     return
 }

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/advance.exp b/gdb/testsuite/gdb.base/advance.exp
index c4fc63f..456268d 100644
--- a/gdb/testsuite/gdb.base/advance.exp
+++ b/gdb/testsuite/gdb.base/advance.exp
@@ -15,10 +15,6 @@

 # advance.exp -- Expect script to test 'advance' in gdb

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile advance
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/all-bin.exp b/gdb/testsuite/gdb.base/all-bin.exp
index 94ec1d1..0ac8185 100644
--- a/gdb/testsuite/gdb.base/all-bin.exp
+++ b/gdb/testsuite/gdb.base/all-bin.exp
@@ -23,10 +23,6 @@



-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/annota1.exp b/gdb/testsuite/gdb.base/annota1.exp
index 8639bb1..66f96e7 100644
--- a/gdb/testsuite/gdb.base/annota1.exp
+++ b/gdb/testsuite/gdb.base/annota1.exp
@@ -15,10 +15,6 @@

 # This file was written by Elena Zannoni (ezannoni@cygnus.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-

 # are we on a target board? If so, don't run these tests.
 # note: this is necessary because we cannot use runto_main (which would
diff --git a/gdb/testsuite/gdb.base/annota3.exp b/gdb/testsuite/gdb.base/annota3.exp
index c20d641..82abc0a 100644
--- a/gdb/testsuite/gdb.base/annota3.exp
+++ b/gdb/testsuite/gdb.base/annota3.exp
@@ -15,10 +15,6 @@

 # This file was written by Elena Zannoni (ezannoni@cygnus.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-

 # are we on a target board? If so, don't run these tests.
 # note: this is necessary because we cannot use runto_main (which would
diff --git a/gdb/testsuite/gdb.base/args.exp b/gdb/testsuite/gdb.base/args.exp
index d9473a5..4b812de 100644
--- a/gdb/testsuite/gdb.base/args.exp
+++ b/gdb/testsuite/gdb.base/args.exp
@@ -15,10 +15,6 @@

 # This is a test for the gdb invocation option --args.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 global GDBFLAGS

diff --git a/gdb/testsuite/gdb.base/arithmet.exp b/gdb/testsuite/gdb.base/arithmet.exp
index 6037e0d..b8a3856 100644
--- a/gdb/testsuite/gdb.base/arithmet.exp
+++ b/gdb/testsuite/gdb.base/arithmet.exp
@@ -22,10 +22,6 @@
 # with integer type variables
 #

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/arrayidx.exp b/gdb/testsuite/gdb.base/arrayidx.exp
index ed8e17a..cba0024 100644
--- a/gdb/testsuite/gdb.base/arrayidx.exp
+++ b/gdb/testsuite/gdb.base/arrayidx.exp
@@ -17,10 +17,6 @@
 # gdb can correctly print arrays with indexes for each element of the
 # array.

-if $tracelevel {
-    strace $tracelevel
-}
-
 set testfile "arrayidx"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/assign.exp b/gdb/testsuite/gdb.base/assign.exp
index db639eb..8fb87d9 100644
--- a/gdb/testsuite/gdb.base/assign.exp
+++ b/gdb/testsuite/gdb.base/assign.exp
@@ -21,10 +21,6 @@
 # with mixed types and with int type variables
 #

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/async.exp b/gdb/testsuite/gdb.base/async.exp
index 8aaf3d3..4acd153 100644
--- a/gdb/testsuite/gdb.base/async.exp
+++ b/gdb/testsuite/gdb.base/async.exp
@@ -14,10 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.


-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/attach.exp b/gdb/testsuite/gdb.base/attach.exp
index f28a537..87a22de 100644
--- a/gdb/testsuite/gdb.base/attach.exp
+++ b/gdb/testsuite/gdb.base/attach.exp
@@ -14,10 +14,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

-if $tracelevel then {
-    strace $tracelevel
-}
-

 # On HP-UX 11.0, this test is causing a process running the program
 # "attach" to be left around spinning.  Until we figure out why, I am
diff --git a/gdb/testsuite/gdb.base/auxv.exp b/gdb/testsuite/gdb.base/auxv.exp
index e0f4cb4..da10f05 100644
--- a/gdb/testsuite/gdb.base/auxv.exp
+++ b/gdb/testsuite/gdb.base/auxv.exp
@@ -24,10 +24,6 @@ if { ! [istarget "*-*-linux*"] && ! [istarget "*-*-solaris*"] } {
     return
 }

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "auxv"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/bang.exp b/gdb/testsuite/gdb.base/bang.exp
index 1d7365a..77b10d6 100644
--- a/gdb/testsuite/gdb.base/bang.exp
+++ b/gdb/testsuite/gdb.base/bang.exp
@@ -16,10 +16,6 @@
 # This is a test that verifies that GDB is able to "run" when the name
 # of the executable file contains a '!'.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile "args"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/bang!
diff --git a/gdb/testsuite/gdb.base/bfp-test.exp b/gdb/testsuite/gdb.base/bfp-test.exp
index 72c9643..26ac7ff 100644
--- a/gdb/testsuite/gdb.base/bfp-test.exp
+++ b/gdb/testsuite/gdb.base/bfp-test.exp
@@ -16,10 +16,6 @@
 # This file is part of the gdb testsuite.  It is intended to test that
 # gdb could correctly handle floating point constant with a suffix.

-if $tracelevel {
-    strace $tracelevel
-}
-
 set testfile "bfp-test"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/bigcore.exp b/gdb/testsuite/gdb.base/bigcore.exp
index a2ef54a..2e05da5 100644
--- a/gdb/testsuite/gdb.base/bigcore.exp
+++ b/gdb/testsuite/gdb.base/bigcore.exp
@@ -17,10 +17,6 @@
 # This file is based on corefile.exp which was written by Fred
 # Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # Are we on a target board?  As of 2004-02-12, GDB didn't have a
 # mechanism that would let it efficiently access a remote corefile.
diff --git a/gdb/testsuite/gdb.base/bitfields.exp b/gdb/testsuite/gdb.base/bitfields.exp
index 6734ea1..3098ffd 100644
--- a/gdb/testsuite/gdb.base/bitfields.exp
+++ b/gdb/testsuite/gdb.base/bitfields.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "bitfields"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/bitfields2.exp b/gdb/testsuite/gdb.base/bitfields2.exp
index 3da53b9..137090b 100644
--- a/gdb/testsuite/gdb.base/bitfields2.exp
+++ b/gdb/testsuite/gdb.base/bitfields2.exp
@@ -23,10 +23,6 @@
 # in bitfields.c, which considers only bit-fields that are <= 9 bits long.
 #

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "bitfields2"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/bitops.exp b/gdb/testsuite/gdb.base/bitops.exp
index dab4fd0..bfb3a12 100644
--- a/gdb/testsuite/gdb.base/bitops.exp
+++ b/gdb/testsuite/gdb.base/bitops.exp
@@ -23,10 +23,6 @@
 #


-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/break-on-linker-gcd-function.exp b/gdb/testsuite/gdb.base/break-on-linker-gcd-function.exp
index 4f13999..fc71a5f 100644
--- a/gdb/testsuite/gdb.base/break-on-linker-gcd-function.exp
+++ b/gdb/testsuite/gdb.base/break-on-linker-gcd-function.exp
@@ -20,10 +20,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/call-ar-st.exp b/gdb/testsuite/gdb.base/call-ar-st.exp
index d0a0e86..50ca37c 100644
--- a/gdb/testsuite/gdb.base/call-ar-st.exp
+++ b/gdb/testsuite/gdb.base/call-ar-st.exp
@@ -16,10 +16,6 @@
 # This file was written by Elena Zannoni (ezannoni@cygnus.com)


-if $tracelevel then {
-        strace $tracelevel
-}
-

 set testfile "call-ar-st"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp
index 078369a..a531188 100644
--- a/gdb/testsuite/gdb.base/call-rt-st.exp
+++ b/gdb/testsuite/gdb.base/call-rt-st.exp
@@ -20,10 +20,6 @@



-if $tracelevel then {
-        strace $tracelevel
-}
-

 set testfile "call-rt-st"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/call-sc.exp b/gdb/testsuite/gdb.base/call-sc.exp
index fda75f2..135010c 100644
--- a/gdb/testsuite/gdb.base/call-sc.exp
+++ b/gdb/testsuite/gdb.base/call-sc.exp
@@ -18,10 +18,6 @@
 # Test "return", "finish", and "call" of functions that a scalar (int,
 # float, enum) and/or take a single scalar parameter.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # Some targets can't call functions, so don't even bother with this
 # test.
diff --git a/gdb/testsuite/gdb.base/call-signal-resume.exp b/gdb/testsuite/gdb.base/call-signal-resume.exp
index 9c67941..1c4517d 100644
--- a/gdb/testsuite/gdb.base/call-signal-resume.exp
+++ b/gdb/testsuite/gdb.base/call-signal-resume.exp
@@ -20,10 +20,6 @@
 # 2) Inferior is stopped at a signal.  Upon resumption it should continue
 #    with that signal, regardless of whatever the hand-called function did.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if [target_info exists gdb,noinferiorio] {
     verbose "Skipping call-signal-resume.exp because of no fileio capabilities."
     continue
diff --git a/gdb/testsuite/gdb.base/call-strs.exp b/gdb/testsuite/gdb.base/call-strs.exp
index 6d96fcf..43d7ef6 100644
--- a/gdb/testsuite/gdb.base/call-strs.exp
+++ b/gdb/testsuite/gdb.base/call-strs.exp
@@ -22,10 +22,6 @@

 #debug strarg

-if $tracelevel then {
-        strace $tracelevel
-}
-

 set testfile "call-strs"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/callexit.exp b/gdb/testsuite/gdb.base/callexit.exp
index 50c50ea..c4d1ec5 100644
--- a/gdb/testsuite/gdb.base/callexit.exp
+++ b/gdb/testsuite/gdb.base/callexit.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "callexit"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp
index 765be20..c48fa60 100644
--- a/gdb/testsuite/gdb.base/callfuncs.exp
+++ b/gdb/testsuite/gdb.base/callfuncs.exp
@@ -16,10 +16,6 @@
 # This file was written by Fred Fish. (fnf@cygnus.com)
 # and modified by Bob Manson. (manson@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "callfuncs"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/charset.exp b/gdb/testsuite/gdb.base/charset.exp
index 651633b..47cf954 100644
--- a/gdb/testsuite/gdb.base/charset.exp
+++ b/gdb/testsuite/gdb.base/charset.exp
@@ -20,10 +20,6 @@

 # Test GDB's character set support.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "charset"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/checkpoint.exp b/gdb/testsuite/gdb.base/checkpoint.exp
index 2aec424..fabe39d 100644
--- a/gdb/testsuite/gdb.base/checkpoint.exp
+++ b/gdb/testsuite/gdb.base/checkpoint.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 if { [is_remote target] || ![isnative] } then {
     continue
 }
diff --git a/gdb/testsuite/gdb.base/chng-syms.exp b/gdb/testsuite/gdb.base/chng-syms.exp
index dac3008..ec5b4c8 100644
--- a/gdb/testsuite/gdb.base/chng-syms.exp
+++ b/gdb/testsuite/gdb.base/chng-syms.exp
@@ -18,10 +18,6 @@
 # Test that GDB cleans up properly after errors that result when a
 # breakpoint is reset.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # IDT/SIM apparently doesn't have enough file descriptors to allow the
 # problem checked by this test to occur.
diff --git a/gdb/testsuite/gdb.base/code-expr.exp b/gdb/testsuite/gdb.base/code-expr.exp
index 9c91de1..fe95305 100644
--- a/gdb/testsuite/gdb.base/code-expr.exp
+++ b/gdb/testsuite/gdb.base/code-expr.exp
@@ -18,10 +18,6 @@
 # This file is part of the gdb testsuite
 # Tests for type expressions using the new "@code" and "@data" modifiers.

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/code_elim.exp b/gdb/testsuite/gdb.base/code_elim.exp
index 7369a9c..b8ef629 100644
--- a/gdb/testsuite/gdb.base/code_elim.exp
+++ b/gdb/testsuite/gdb.base/code_elim.exp
@@ -16,10 +16,6 @@
 # code_elim.exp -- tests that GDB can handle executables where some data/code
 #                  has been eliminated by the linker.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile1 code_elim1
 set testfile2 code_elim2
 set srcfile1 ${testfile1}.c
diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp
index 0be5c45..e26dac0 100644
--- a/gdb/testsuite/gdb.base/commands.exp
+++ b/gdb/testsuite/gdb.base/commands.exp
@@ -14,10 +14,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test special commands (if, while, etc)
 #
diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp
index 06ccfd6..35fb537 100644
--- a/gdb/testsuite/gdb.base/completion.exp
+++ b/gdb/testsuite/gdb.base/completion.exp
@@ -46,10 +46,6 @@
 #


-if $tracelevel then {
-        strace $tracelevel
-        }
-

 #
 # test running programs
diff --git a/gdb/testsuite/gdb.base/complex.exp b/gdb/testsuite/gdb.base/complex.exp
index 1de9a93..ff403b5 100644
--- a/gdb/testsuite/gdb.base/complex.exp
+++ b/gdb/testsuite/gdb.base/complex.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile complex
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/cond-expr.exp b/gdb/testsuite/gdb.base/cond-expr.exp
index e9d61ba..9b51034 100644
--- a/gdb/testsuite/gdb.base/cond-expr.exp
+++ b/gdb/testsuite/gdb.base/cond-expr.exp
@@ -27,10 +27,6 @@
 #


-if $tracelevel then {
-        strace $tracelevel
-}
-
 # Check to see if we have an executable to test.  If not, then either we
 # haven't tried to compile one, or the compilation failed for some reason.
 # In either case, just notify the user and skip the tests in this file.
diff --git a/gdb/testsuite/gdb.base/condbreak.exp b/gdb/testsuite/gdb.base/condbreak.exp
index b806729..fb82e56 100644
--- a/gdb/testsuite/gdb.base/condbreak.exp
+++ b/gdb/testsuite/gdb.base/condbreak.exp
@@ -17,10 +17,6 @@
 # Purpose is to test conditional breakpoints.
 # Modeled after "break.exp".

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/consecutive.exp b/gdb/testsuite/gdb.base/consecutive.exp
index 03d4bd1..c3edaf6 100644
--- a/gdb/testsuite/gdb.base/consecutive.exp
+++ b/gdb/testsuite/gdb.base/consecutive.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder. (msnyder@redhat.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # Test breakpoints at consecutive instruction addresses.
 #
diff --git a/gdb/testsuite/gdb.base/constvars.exp b/gdb/testsuite/gdb.base/constvars.exp
index e5d64bd..7764d04 100644
--- a/gdb/testsuite/gdb.base/constvars.exp
+++ b/gdb/testsuite/gdb.base/constvars.exp
@@ -23,10 +23,6 @@
 #           const pointers to const vars
 # with mixed types

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/corefile.exp b/gdb/testsuite/gdb.base/corefile.exp
index a91efd1..027eb2c 100644
--- a/gdb/testsuite/gdb.base/corefile.exp
+++ b/gdb/testsuite/gdb.base/corefile.exp
@@ -15,10 +15,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # are we on a target board
 if ![isnative] then {
diff --git a/gdb/testsuite/gdb.base/cursal.exp b/gdb/testsuite/gdb.base/cursal.exp
index 808f6be..ce77363 100644
--- a/gdb/testsuite/gdb.base/cursal.exp
+++ b/gdb/testsuite/gdb.base/cursal.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel {
-    strace $tracelevel
-}
-

 set testfile "cursal"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/cvexpr.exp b/gdb/testsuite/gdb.base/cvexpr.exp
index b9c4f53..d836d4a 100644
--- a/gdb/testsuite/gdb.base/cvexpr.exp
+++ b/gdb/testsuite/gdb.base/cvexpr.exp
@@ -18,10 +18,6 @@
 # This file is part of the gdb testsuite
 # Tests for type expressions using const and volatile keywords.

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/dbx.exp b/gdb/testsuite/gdb.base/dbx.exp
index cfd6330..843d637 100644
--- a/gdb/testsuite/gdb.base/dbx.exp
+++ b/gdb/testsuite/gdb.base/dbx.exp
@@ -14,10 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */


-if $tracelevel then {
-        strace $tracelevel
-}
-
 set testfile1 "average"
 set testfile2 "sum"
 set testfile "dbx-test"
diff --git a/gdb/testsuite/gdb.base/define.exp b/gdb/testsuite/gdb.base/define.exp
index a0b5377..889eca8 100644
--- a/gdb/testsuite/gdb.base/define.exp
+++ b/gdb/testsuite/gdb.base/define.exp
@@ -16,10 +16,6 @@

 # This file was written by Elena Zannoni. (ezannoni@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-	}
-

 #
 # test running programs
diff --git a/gdb/testsuite/gdb.base/del.exp b/gdb/testsuite/gdb.base/del.exp
index ddeb78c..1a37330 100644
--- a/gdb/testsuite/gdb.base/del.exp
+++ b/gdb/testsuite/gdb.base/del.exp
@@ -16,10 +16,6 @@
 # The intent of this testcase is to verify that various aliases and
 # shortcuts of the "delete" command never stop working.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile del
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/detach.exp b/gdb/testsuite/gdb.base/detach.exp
index 9bfb828..11fe3f4 100644
--- a/gdb/testsuite/gdb.base/detach.exp
+++ b/gdb/testsuite/gdb.base/detach.exp
@@ -16,10 +16,6 @@
 # Test running a program from the GDB prompt and then detaching it.
 # NOTE: This test could be much more thorough.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # Only GNU/Linux is known to support this.
 if { ! [istarget "*-*-linux*"] } {
diff --git a/gdb/testsuite/gdb.base/dfp-exprs.exp b/gdb/testsuite/gdb.base/dfp-exprs.exp
index b27e727..58f7156 100644
--- a/gdb/testsuite/gdb.base/dfp-exprs.exp
+++ b/gdb/testsuite/gdb.base/dfp-exprs.exp
@@ -18,10 +18,6 @@
 # This file is part of the gdb testsuite.  It contains test for evaluating
 # simple decimal floating point (DFP) expression.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 proc test_dfp_literals_accepted {} {

     # Test various dfp values, covering 32-bit, 64-bit and 128-bit ones
diff --git a/gdb/testsuite/gdb.base/dfp-test.exp b/gdb/testsuite/gdb.base/dfp-test.exp
index d0628e0..a59065a 100644
--- a/gdb/testsuite/gdb.base/dfp-test.exp
+++ b/gdb/testsuite/gdb.base/dfp-test.exp
@@ -18,10 +18,6 @@
 # This file is part of the gdb testsuite.  It is intended to test that
 # gdb could correctly handle decimal floating point introduced in IEEE 754R.

-if $tracelevel then {
-  strace $tracelevel
-}
-
 set testfile "dfp-test"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/display.exp b/gdb/testsuite/gdb.base/display.exp
index b484346..4136cc1 100644
--- a/gdb/testsuite/gdb.base/display.exp
+++ b/gdb/testsuite/gdb.base/display.exp
@@ -16,10 +16,6 @@
 # display.exp   Test display commands
 #               Also do some printing stuff for coverage's sake.
 #
-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile display
 set srcfile  ${testfile}.c
 set binfile  ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/dump.exp b/gdb/testsuite/gdb.base/dump.exp
index a59c71b..44cccbf 100644
--- a/gdb/testsuite/gdb.base/dump.exp
+++ b/gdb/testsuite/gdb.base/dump.exp
@@ -16,10 +16,6 @@
 # This file was written by Michael Snyder (msnyder@redhat.com)
 # This is a test for the gdb command "dump".

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "dump"

diff --git a/gdb/testsuite/gdb.base/echo.exp b/gdb/testsuite/gdb.base/echo.exp
index e50ef98..f704396 100644
--- a/gdb/testsuite/gdb.base/echo.exp
+++ b/gdb/testsuite/gdb.base/echo.exp
@@ -19,10 +19,6 @@
 # Crank up gdb.
 gdb_start

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test the echo command
 #
diff --git a/gdb/testsuite/gdb.base/ena-dis-br.exp b/gdb/testsuite/gdb.base/ena-dis-br.exp
index 3e549c0..2e5cdb1 100644
--- a/gdb/testsuite/gdb.base/ena-dis-br.exp
+++ b/gdb/testsuite/gdb.base/ena-dis-br.exp
@@ -16,10 +16,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/environ.exp b/gdb/testsuite/gdb.base/environ.exp
index 60536fb..2466c81 100644
--- a/gdb/testsuite/gdb.base/environ.exp
+++ b/gdb/testsuite/gdb.base/environ.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/eval-skip.exp b/gdb/testsuite/gdb.base/eval-skip.exp
index 8b70339..8e296d3 100644
--- a/gdb/testsuite/gdb.base/eval-skip.exp
+++ b/gdb/testsuite/gdb.base/eval-skip.exp
@@ -28,10 +28,6 @@
 #


-if $tracelevel then {
-        strace $tracelevel
-}
-
 # Check to see if we have an executable to test.  If not, then either we
 # haven't tried to compile one, or the compilation failed for some reason.
 # In either case, just notify the user and skip the tests in this file.
diff --git a/gdb/testsuite/gdb.base/exe-lock.exp b/gdb/testsuite/gdb.base/exe-lock.exp
index c6413f1..150b58e 100644
--- a/gdb/testsuite/gdb.base/exe-lock.exp
+++ b/gdb/testsuite/gdb.base/exe-lock.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel {
-    strace $tracelevel
-}
-
 # The intent of this testcase is to verify that GDB does not keep
 # a filesystem lock on the executable file once the executable
 # is no longer running.
diff --git a/gdb/testsuite/gdb.base/expand-psymtabs.exp b/gdb/testsuite/gdb.base/expand-psymtabs.exp
index 93ea864..25f3bda 100644
--- a/gdb/testsuite/gdb.base/expand-psymtabs.exp
+++ b/gdb/testsuite/gdb.base/expand-psymtabs.exp
@@ -16,10 +16,6 @@
 #
 # This file is part of the gdb testsuite.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 # It's possible to have a program that contains two compilation units
 # for the same source file name, that have code at different lines.
 # For example, in this test, we compile expand-psymtabs.c twice with
diff --git a/gdb/testsuite/gdb.base/exprs.exp b/gdb/testsuite/gdb.base/exprs.exp
index 67c89f0..f46a8e6 100644
--- a/gdb/testsuite/gdb.base/exprs.exp
+++ b/gdb/testsuite/gdb.base/exprs.exp
@@ -16,10 +16,6 @@

 # This file was written by Rob Savoye. (rob@cygnus.com)

-if $tracelevel {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/fileio.exp b/gdb/testsuite/gdb.base/fileio.exp
index 6ce3e01..e8760da 100644
--- a/gdb/testsuite/gdb.base/fileio.exp
+++ b/gdb/testsuite/gdb.base/fileio.exp
@@ -20,10 +20,6 @@ if [target_info exists gdb,nofileio] {
     continue
 }

-if $tracelevel then {
-        strace $tracelevel
-}
-

 set testfile "fileio"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/find.exp b/gdb/testsuite/gdb.base/find.exp
index 2f33973..664481c 100644
--- a/gdb/testsuite/gdb.base/find.exp
+++ b/gdb/testsuite/gdb.base/find.exp
@@ -15,10 +15,6 @@

 # This tests the find command.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile "find"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/finish.exp b/gdb/testsuite/gdb.base/finish.exp
index dc96af5..c782ffc 100644
--- a/gdb/testsuite/gdb.base/finish.exp
+++ b/gdb/testsuite/gdb.base/finish.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # re-use the program from the "return2" test.
 if { [prepare_for_testing finish.exp finish return2.c] } {
diff --git a/gdb/testsuite/gdb.base/fixsection.exp b/gdb/testsuite/gdb.base/fixsection.exp
index 59f51c5..c4aee67 100644
--- a/gdb/testsuite/gdb.base/fixsection.exp
+++ b/gdb/testsuite/gdb.base/fixsection.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 if {[skip_shlib_tests]} {
     return 0
diff --git a/gdb/testsuite/gdb.base/float.exp b/gdb/testsuite/gdb.base/float.exp
index 4e75088..448102b 100644
--- a/gdb/testsuite/gdb.base/float.exp
+++ b/gdb/testsuite/gdb.base/float.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-
 #
 # Test floating-point related functionality.
 #
diff --git a/gdb/testsuite/gdb.base/frame-args.exp b/gdb/testsuite/gdb.base/frame-args.exp
index d349f93..14e5872 100644
--- a/gdb/testsuite/gdb.base/frame-args.exp
+++ b/gdb/testsuite/gdb.base/frame-args.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel {
-    strace $tracelevel
-}
-
 set testfile "frame-args"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/funcargs.exp b/gdb/testsuite/gdb.base/funcargs.exp
index f1236cf..0b5534a 100644
--- a/gdb/testsuite/gdb.base/funcargs.exp
+++ b/gdb/testsuite/gdb.base/funcargs.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel {
-    strace $tracelevel
-}
-

 set testfile "funcargs"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/gcore-buffer-overflow.exp b/gdb/testsuite/gdb.base/gcore-buffer-overflow.exp
index a8c565a..7736bb8 100644
--- a/gdb/testsuite/gdb.base/gcore-buffer-overflow.exp
+++ b/gdb/testsuite/gdb.base/gcore-buffer-overflow.exp
@@ -15,10 +15,6 @@

 # Test GDB's internal buffers safety for the GCORE command.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "gcore-buffer-overflow"
 set srcfile  ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/gcore.exp b/gdb/testsuite/gdb.base/gcore.exp
index 8b220d6..faa8fa7 100644
--- a/gdb/testsuite/gdb.base/gcore.exp
+++ b/gdb/testsuite/gdb.base/gcore.exp
@@ -16,10 +16,6 @@
 # This file was written by Michael Snyder (msnyder@redhat.com)
 # This is a test for the gdb command "generate-core-file".

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "gcore"
 set srcfile  ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/gdb1056.exp b/gdb/testsuite/gdb.base/gdb1056.exp
index fce0d87..5c46ed6 100644
--- a/gdb/testsuite/gdb.base/gdb1056.exp
+++ b/gdb/testsuite/gdb.base/gdb1056.exp
@@ -16,10 +16,6 @@
 # Test for PR gdb/1056.
 # 2003-10-18  Michael Chastain <mec@shout.net>

-if $tracelevel then {
-    strace $tracelevel
-}
-
 # test SIGFPE (such as division by 0) inside gdb itself


diff --git a/gdb/testsuite/gdb.base/gdb1090.exp b/gdb/testsuite/gdb.base/gdb1090.exp
index 59b36b9..f9a2b26 100644
--- a/gdb/testsuite/gdb.base/gdb1090.exp
+++ b/gdb/testsuite/gdb.base/gdb1090.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/gdb11530.exp b/gdb/testsuite/gdb.base/gdb11530.exp
index 705b4f4..ba222c2 100644
--- a/gdb/testsuite/gdb.base/gdb11530.exp
+++ b/gdb/testsuite/gdb.base/gdb11530.exp
@@ -18,10 +18,6 @@
 # Test GDB bug report 11530.
 # This is a problem related unnamed unions.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "gdb11530"
 set binfile ${testfile}${EXEEXT}

diff --git a/gdb/testsuite/gdb.base/gdb11531.exp b/gdb/testsuite/gdb.base/gdb11531.exp
index ab3a77b..4f5b89c 100644
--- a/gdb/testsuite/gdb.base/gdb11531.exp
+++ b/gdb/testsuite/gdb.base/gdb11531.exp
@@ -19,10 +19,6 @@
 # This is a problem related to CANNOT_STEP_HW_WATCHPOINTS macro.
 # It affects Solaris native targets.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "gdb11531"

diff --git a/gdb/testsuite/gdb.base/gdb1250.exp b/gdb/testsuite/gdb.base/gdb1250.exp
index 0d36b6e..ef1e067 100644
--- a/gdb/testsuite/gdb.base/gdb1250.exp
+++ b/gdb/testsuite/gdb.base/gdb1250.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/gdb1555.exp b/gdb/testsuite/gdb.base/gdb1555.exp
index be3aa75..11bed5d 100644
--- a/gdb/testsuite/gdb.base/gdb1555.exp
+++ b/gdb/testsuite/gdb.base/gdb1555.exp
@@ -17,10 +17,6 @@
 # a shared library (PR gdb/1555, was PR shlib/1280, shlib/1237).
 # Tested on ppc-yellowdog-linux (Yellow Dog Linux 3.0 3.2.2-2a)

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if {[skip_shlib_tests]} {
     return 0
 }
diff --git a/gdb/testsuite/gdb.base/gdbvars.exp b/gdb/testsuite/gdb.base/gdbvars.exp
index 72935d8..0499f6c 100644
--- a/gdb/testsuite/gdb.base/gdbvars.exp
+++ b/gdb/testsuite/gdb.base/gdbvars.exp
@@ -15,10 +15,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "gdbvars"
 set srcfile  ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/gnu_vector.exp b/gdb/testsuite/gdb.base/gnu_vector.exp
index d052b58..a1c1253 100644
--- a/gdb/testsuite/gdb.base/gnu_vector.exp
+++ b/gdb/testsuite/gdb.base/gnu_vector.exp
@@ -18,10 +18,6 @@
 # Tests GDBs support for GNU vectors.
 # http://gcc.gnu.org/onlinedocs/gcc/Vector-Extensions.html

-if $tracelevel {
-    strace $tracelevel
-}
-
 set testfile "gnu_vector"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/hashline1.exp b/gdb/testsuite/gdb.base/hashline1.exp
index 36ca8b2..d07f604 100644
--- a/gdb/testsuite/gdb.base/hashline1.exp
+++ b/gdb/testsuite/gdb.base/hashline1.exp
@@ -18,10 +18,6 @@
 # Test loading of line number information with absolute path in #line,
 # PR symtab/9465.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 # srcfile is in objdir because we need to machine generate it in order
 # to get the correct path in the #line directive.

diff --git a/gdb/testsuite/gdb.base/hashline2.exp b/gdb/testsuite/gdb.base/hashline2.exp
index 1042fd4..2edde40 100644
--- a/gdb/testsuite/gdb.base/hashline2.exp
+++ b/gdb/testsuite/gdb.base/hashline2.exp
@@ -18,10 +18,6 @@
 # Test loading of line number information with an absolute path with extra
 # /'s in #line, PR symtab/9465.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 # srcfile is in objdir because we need to machine generate it in order
 # to get the correct path in the #line directive.

diff --git a/gdb/testsuite/gdb.base/hashline3.exp b/gdb/testsuite/gdb.base/hashline3.exp
index 99e2a23..e471e51 100644
--- a/gdb/testsuite/gdb.base/hashline3.exp
+++ b/gdb/testsuite/gdb.base/hashline3.exp
@@ -18,10 +18,6 @@
 # Test loading of line number information with relative path in #line,
 # PR symtab/9465.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 # srcfile is in objdir because we need to machine generate it in order
 # to get the correct path in the #line directive.

diff --git a/gdb/testsuite/gdb.base/huge.exp b/gdb/testsuite/gdb.base/huge.exp
index 7196116..78ae6cd 100644
--- a/gdb/testsuite/gdb.base/huge.exp
+++ b/gdb/testsuite/gdb.base/huge.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # Define if you want to skip this test
 # (could be very time-consuming on remote targets with slow connection).
diff --git a/gdb/testsuite/gdb.base/ifelse.exp b/gdb/testsuite/gdb.base/ifelse.exp
index d452c5d..cb9f508 100644
--- a/gdb/testsuite/gdb.base/ifelse.exp
+++ b/gdb/testsuite/gdb.base/ifelse.exp
@@ -16,10 +16,6 @@
 # This test checks that the if .. else .. end construct works and may
 # contain empty bodies without crashing.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 gdb_exit
 gdb_start

diff --git a/gdb/testsuite/gdb.base/info-proc.exp b/gdb/testsuite/gdb.base/info-proc.exp
index 4280abd..fbd62f9 100644
--- a/gdb/testsuite/gdb.base/info-proc.exp
+++ b/gdb/testsuite/gdb.base/info-proc.exp
@@ -16,10 +16,6 @@
 # This file was written by Michael Snyder (msnyder@redhat.com)
 # This is a test for the gdb command "info proc"

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [is_remote target] } then {
   continue
 }
diff --git a/gdb/testsuite/gdb.base/info-target.exp b/gdb/testsuite/gdb.base/info-target.exp
index 5817535..84ac7e6 100644
--- a/gdb/testsuite/gdb.base/info-target.exp
+++ b/gdb/testsuite/gdb.base/info-target.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile info-target
 if { [prepare_for_testing ${testfile}.exp $testfile start.c] } {
diff --git a/gdb/testsuite/gdb.base/interp.exp b/gdb/testsuite/gdb.base/interp.exp
index 6a7f7c8..621cbd0 100644
--- a/gdb/testsuite/gdb.base/interp.exp
+++ b/gdb/testsuite/gdb.base/interp.exp
@@ -15,10 +15,6 @@

 # interp.exp   Test interpreter-exec command

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile "interp"

 if { [prepare_for_testing ${testfile}.exp ${testfile} ${testfile}.c {debug}] } {
diff --git a/gdb/testsuite/gdb.base/interrupt.exp b/gdb/testsuite/gdb.base/interrupt.exp
index 6b3e0f5..06846ec 100644
--- a/gdb/testsuite/gdb.base/interrupt.exp
+++ b/gdb/testsuite/gdb.base/interrupt.exp
@@ -23,10 +23,6 @@ if [target_info exists gdb,noinferiorio] {
     return
 }

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile interrupt
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/jit-so.exp b/gdb/testsuite/gdb.base/jit-so.exp
index 8807a65..b28f903 100644
--- a/gdb/testsuite/gdb.base/jit-so.exp
+++ b/gdb/testsuite/gdb.base/jit-so.exp
@@ -16,10 +16,6 @@
 # The same tests as in jit.exp, but loading JITer itself from a shared
 # library.

-if $tracelevel {
-    strace $tracelevel
-}
-
 if {[skip_shlib_tests]} {
     untested jit-so.exp
     return -1
diff --git a/gdb/testsuite/gdb.base/jit.exp b/gdb/testsuite/gdb.base/jit.exp
index eba8116..a1aa351 100644
--- a/gdb/testsuite/gdb.base/jit.exp
+++ b/gdb/testsuite/gdb.base/jit.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel {
-    strace $tracelevel
-}
-
 if {[skip_shlib_tests]} {
     untested jit.exp
     return -1
diff --git a/gdb/testsuite/gdb.base/jump.exp b/gdb/testsuite/gdb.base/jump.exp
index 3ccc334..a5577e2 100644
--- a/gdb/testsuite/gdb.base/jump.exp
+++ b/gdb/testsuite/gdb.base/jump.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

-if $tracelevel then {
-	strace $tracelevel
-	}
-

 clear_xfail "*-*-*"

diff --git a/gdb/testsuite/gdb.base/label.exp b/gdb/testsuite/gdb.base/label.exp
index fa55c11..c511cb9 100644
--- a/gdb/testsuite/gdb.base/label.exp
+++ b/gdb/testsuite/gdb.base/label.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 if [is_remote target] then {
     return 0
diff --git a/gdb/testsuite/gdb.base/langs.exp b/gdb/testsuite/gdb.base/langs.exp
index 7c24980..e041b01 100644
--- a/gdb/testsuite/gdb.base/langs.exp
+++ b/gdb/testsuite/gdb.base/langs.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile langs
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/lineinc.exp b/gdb/testsuite/gdb.base/lineinc.exp
index 0edbfe0..79f9091 100644
--- a/gdb/testsuite/gdb.base/lineinc.exp
+++ b/gdb/testsuite/gdb.base/lineinc.exp
@@ -77,10 +77,6 @@
 # sorted in ascending order; GDB would get an internal error trying to
 # read the above debugging info.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile "lineinc"
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/list.exp b/gdb/testsuite/gdb.base/list.exp
index f87c17b..d1358c3 100644
--- a/gdb/testsuite/gdb.base/list.exp
+++ b/gdb/testsuite/gdb.base/list.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "list"
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/logical.exp b/gdb/testsuite/gdb.base/logical.exp
index 1c5bcf3..0df5555 100644
--- a/gdb/testsuite/gdb.base/logical.exp
+++ b/gdb/testsuite/gdb.base/logical.exp
@@ -21,10 +21,6 @@
 # precedence with integer type variables


-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/long_long.exp b/gdb/testsuite/gdb.base/long_long.exp
index fd33bfd..a699d0b 100644
--- a/gdb/testsuite/gdb.base/long_long.exp
+++ b/gdb/testsuite/gdb.base/long_long.exp
@@ -18,10 +18,6 @@
 # long_long.exp   Test printing of 64-bit things in 32-bit gdb.
 #                 Also test differnet kinds of formats.
 #
-if $tracelevel then {
-	strace $tracelevel
-}
-
 if [target_info exists no_long_long] {
     return 0
 }
diff --git a/gdb/testsuite/gdb.base/longjmp.exp b/gdb/testsuite/gdb.base/longjmp.exp
index 9b314ce..d5af26e 100644
--- a/gdb/testsuite/gdb.base/longjmp.exp
+++ b/gdb/testsuite/gdb.base/longjmp.exp
@@ -17,10 +17,6 @@
 # Test support for stepping over longjmp.
 #

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile "longjmp"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/macscp.exp b/gdb/testsuite/gdb.base/macscp.exp
index aed9b8d..fa2173a 100644
--- a/gdb/testsuite/gdb.base/macscp.exp
+++ b/gdb/testsuite/gdb.base/macscp.exp
@@ -14,10 +14,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set srcfile macscp1.c
 set testfile "macscp"
diff --git a/gdb/testsuite/gdb.base/maint.exp b/gdb/testsuite/gdb.base/maint.exp
index 1d0f419..1c99150 100644
--- a/gdb/testsuite/gdb.base/maint.exp
+++ b/gdb/testsuite/gdb.base/maint.exp
@@ -47,10 +47,6 @@



-if $tracelevel then {
-        strace $tracelevel
-        }
-
 set testfile "break"
 set srcfile ${testfile}.c
 set srcfile1 ${testfile}1.c
diff --git a/gdb/testsuite/gdb.base/memattr.exp b/gdb/testsuite/gdb.base/memattr.exp
index 42a20e8..4065808 100644
--- a/gdb/testsuite/gdb.base/memattr.exp
+++ b/gdb/testsuite/gdb.base/memattr.exp
@@ -17,10 +17,6 @@

 # Test the memory attribute commands.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile "memattr"
 set srcfile  ${testfile}.c

diff --git a/gdb/testsuite/gdb.base/mips_pro.exp b/gdb/testsuite/gdb.base/mips_pro.exp
index e12ecae..8e963c1 100644
--- a/gdb/testsuite/gdb.base/mips_pro.exp
+++ b/gdb/testsuite/gdb.base/mips_pro.exp
@@ -14,10 +14,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile mips_pro
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/miscexprs.exp b/gdb/testsuite/gdb.base/miscexprs.exp
index 5eec2f6..caafe05 100644
--- a/gdb/testsuite/gdb.base/miscexprs.exp
+++ b/gdb/testsuite/gdb.base/miscexprs.exp
@@ -22,10 +22,6 @@
 # with elementary types
 #

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 # By default, the datastructures are allocated on the stack.  For targets
 # with very small stack, that will not work.  In that case, just set
 # storage to `-DSTORAGE=static' which changes the datastructures to be
diff --git a/gdb/testsuite/gdb.base/multi-forks.exp b/gdb/testsuite/gdb.base/multi-forks.exp
index fa98cf3..4b08b66 100644
--- a/gdb/testsuite/gdb.base/multi-forks.exp
+++ b/gdb/testsuite/gdb.base/multi-forks.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 if { [is_remote target] || ![isnative] } then {
     continue
 }
diff --git a/gdb/testsuite/gdb.base/nodebug.exp b/gdb/testsuite/gdb.base/nodebug.exp
index 477c01b..344a804 100644
--- a/gdb/testsuite/gdb.base/nodebug.exp
+++ b/gdb/testsuite/gdb.base/nodebug.exp
@@ -16,10 +16,6 @@

 # Test that things still (sort of) work when compiled without -g.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile nodebug
 set srcfile $srcdir/$subdir/$testfile.c
diff --git a/gdb/testsuite/gdb.base/nofield.exp b/gdb/testsuite/gdb.base/nofield.exp
index 8602de9..4c44f8e 100644
--- a/gdb/testsuite/gdb.base/nofield.exp
+++ b/gdb/testsuite/gdb.base/nofield.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel {
-    strace $tracelevel
-}
-
 set testfile "nofield"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/opaque.exp b/gdb/testsuite/gdb.base/opaque.exp
index 484f1a6..b7ad265 100644
--- a/gdb/testsuite/gdb.base/opaque.exp
+++ b/gdb/testsuite/gdb.base/opaque.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "opaque"
 set binfile ${objdir}/${subdir}/opaque
diff --git a/gdb/testsuite/gdb.base/overlays.exp b/gdb/testsuite/gdb.base/overlays.exp
index d1405ac..a017661 100644
--- a/gdb/testsuite/gdb.base/overlays.exp
+++ b/gdb/testsuite/gdb.base/overlays.exp
@@ -16,10 +16,6 @@
 #
 # This file was written by Michael Snyder (msnyder@cygnus.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/page.exp b/gdb/testsuite/gdb.base/page.exp
index 5e72126..0629807 100644
--- a/gdb/testsuite/gdb.base/page.exp
+++ b/gdb/testsuite/gdb.base/page.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel {
-    strace $tracelevel
-}
-
 gdb_exit
 gdb_start

diff --git a/gdb/testsuite/gdb.base/pc-fp.exp b/gdb/testsuite/gdb.base/pc-fp.exp
index 3a88431..9d74eef 100644
--- a/gdb/testsuite/gdb.base/pc-fp.exp
+++ b/gdb/testsuite/gdb.base/pc-fp.exp
@@ -20,10 +20,6 @@
 # aliases.  If the ISA doesn't provide any equivalent registers, then
 # GDB will provide registers that map onto the frame's PC and FP.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/pending.exp b/gdb/testsuite/gdb.base/pending.exp
index 53184b0..7c0c586 100644
--- a/gdb/testsuite/gdb.base/pending.exp
+++ b/gdb/testsuite/gdb.base/pending.exp
@@ -15,10 +15,6 @@

 # This file was created by Jeff Johnston. (jjohnstn@redhat.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/pointers.exp b/gdb/testsuite/gdb.base/pointers.exp
index d5868c4..bd29581 100644
--- a/gdb/testsuite/gdb.base/pointers.exp
+++ b/gdb/testsuite/gdb.base/pointers.exp
@@ -21,10 +21,6 @@
 # with integer type variables and pointers to integers
 #

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/pr11022.exp b/gdb/testsuite/gdb.base/pr11022.exp
index 8078eac..c11857d 100644
--- a/gdb/testsuite/gdb.base/pr11022.exp
+++ b/gdb/testsuite/gdb.base/pr11022.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if {[skip_hw_watchpoint_tests]} {
     return 0
 }
diff --git a/gdb/testsuite/gdb.base/prelink.exp b/gdb/testsuite/gdb.base/prelink.exp
index dbb9bbc..71196bd 100644
--- a/gdb/testsuite/gdb.base/prelink.exp
+++ b/gdb/testsuite/gdb.base/prelink.exp
@@ -18,10 +18,6 @@

 # This file was written by Alexandre Oliva <aoliva@redhat.com>

-if $tracelevel then {
-	strace $tracelevel
-	}
-

 if { ![isnative] || [is_remote host] || [skip_shlib_tests]} {
     return
diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp
index d647ca8..c932f94 100644
--- a/gdb/testsuite/gdb.base/printcmds.exp
+++ b/gdb/testsuite/gdb.base/printcmds.exp
@@ -21,10 +21,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "printcmds"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/psymtab.exp b/gdb/testsuite/gdb.base/psymtab.exp
index 2606dd2..06674b1 100644
--- a/gdb/testsuite/gdb.base/psymtab.exp
+++ b/gdb/testsuite/gdb.base/psymtab.exp
@@ -19,10 +19,6 @@
 # are working properly.  If multiple tests are added, make sure that
 # you exit and restart GDB between tests.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/ptr-typedef.exp b/gdb/testsuite/gdb.base/ptr-typedef.exp
index c69dcf4..674ce45 100644
--- a/gdb/testsuite/gdb.base/ptr-typedef.exp
+++ b/gdb/testsuite/gdb.base/ptr-typedef.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile ptr-typedef
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/ptype.exp b/gdb/testsuite/gdb.base/ptype.exp
index ff71186..adb4cd4 100644
--- a/gdb/testsuite/gdb.base/ptype.exp
+++ b/gdb/testsuite/gdb.base/ptype.exp
@@ -16,10 +16,6 @@

 # This file was written by Rob Savoye. (rob@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/radix.exp b/gdb/testsuite/gdb.base/radix.exp
index 39ac713..758232d 100644
--- a/gdb/testsuite/gdb.base/radix.exp
+++ b/gdb/testsuite/gdb.base/radix.exp
@@ -17,10 +17,6 @@
 # This file was written by Fred Fish. (fnf@cygnus.com)
 # And rewritten by Michael Chastain (mec.gnu@mindspring.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # Start with a fresh gdb.

diff --git a/gdb/testsuite/gdb.base/readline.exp b/gdb/testsuite/gdb.base/readline.exp
index e7538a4..2445aec 100644
--- a/gdb/testsuite/gdb.base/readline.exp
+++ b/gdb/testsuite/gdb.base/readline.exp
@@ -142,10 +142,6 @@ proc operate_and_get_next {name args} {
 }


-if $tracelevel {
-  strace $tracelevel
-}
-
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir

diff --git a/gdb/testsuite/gdb.base/recurse.exp b/gdb/testsuite/gdb.base/recurse.exp
index 0dadc78..cbc9871 100644
--- a/gdb/testsuite/gdb.base/recurse.exp
+++ b/gdb/testsuite/gdb.base/recurse.exp
@@ -16,10 +16,6 @@

 # This file was written by Jeff Law. (law@cs.utah.edu)

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile "recurse"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/regs.exp b/gdb/testsuite/gdb.base/regs.exp
index 3f046bc..320b3a3 100644
--- a/gdb/testsuite/gdb.base/regs.exp
+++ b/gdb/testsuite/gdb.base/regs.exp
@@ -22,10 +22,6 @@
 # and writing of registers in a real program, although some care
 # would be required in the writing of the tests.

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 # These tests exercise IDT-specific MIPS registers for several
 # different processor models.

diff --git a/gdb/testsuite/gdb.base/relational.exp b/gdb/testsuite/gdb.base/relational.exp
index 26b77d7..c1ee625 100644
--- a/gdb/testsuite/gdb.base/relational.exp
+++ b/gdb/testsuite/gdb.base/relational.exp
@@ -21,10 +21,6 @@
 # with integer type variables
 #

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/relativedebug.exp b/gdb/testsuite/gdb.base/relativedebug.exp
index b37689e..4d570c0 100644
--- a/gdb/testsuite/gdb.base/relativedebug.exp
+++ b/gdb/testsuite/gdb.base/relativedebug.exp
@@ -18,10 +18,6 @@ if [target_info exists gdb,nosignals] {
     continue
 }

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile relativedebug
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/relocate.exp b/gdb/testsuite/gdb.base/relocate.exp
index 5cb07ce..960597e 100644
--- a/gdb/testsuite/gdb.base/relocate.exp
+++ b/gdb/testsuite/gdb.base/relocate.exp
@@ -16,10 +16,6 @@
 # relocate.exp -- Expect script to test loading symbols from unrelocated
 #		  object files.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile relocate
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}.o
diff --git a/gdb/testsuite/gdb.base/remote.exp b/gdb/testsuite/gdb.base/remote.exp
index c9fe998..8f50787 100644
--- a/gdb/testsuite/gdb.base/remote.exp
+++ b/gdb/testsuite/gdb.base/remote.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-


 # test only on a remote target board
diff --git a/gdb/testsuite/gdb.base/remotetimeout.exp b/gdb/testsuite/gdb.base/remotetimeout.exp
index 9549dbd..d51f39b 100644
--- a/gdb/testsuite/gdb.base/remotetimeout.exp
+++ b/gdb/testsuite/gdb.base/remotetimeout.exp
@@ -18,10 +18,6 @@

 # This is a test for the gdb invocation option -l.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 global GDBFLAGS

diff --git a/gdb/testsuite/gdb.base/reread.exp b/gdb/testsuite/gdb.base/reread.exp
index 9b6bd11..2a0929f 100644
--- a/gdb/testsuite/gdb.base/reread.exp
+++ b/gdb/testsuite/gdb.base/reread.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set prototypes 1

 # build the first test case
diff --git a/gdb/testsuite/gdb.base/restore.exp b/gdb/testsuite/gdb.base/restore.exp
index 68ba2fe..e9b950c 100644
--- a/gdb/testsuite/gdb.base/restore.exp
+++ b/gdb/testsuite/gdb.base/restore.exp
@@ -21,10 +21,6 @@
 # This file was written by Jim Blandy <jimb@cygnus.com>, with
 # fragments borrowed from return.exp.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile "restore"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/return2.exp b/gdb/testsuite/gdb.base/return2.exp
index 22a0f57..8c7ea15 100644
--- a/gdb/testsuite/gdb.base/return2.exp
+++ b/gdb/testsuite/gdb.base/return2.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "return2"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/savedregs.exp b/gdb/testsuite/gdb.base/savedregs.exp
index 8837e1f..394afc9 100644
--- a/gdb/testsuite/gdb.base/savedregs.exp
+++ b/gdb/testsuite/gdb.base/savedregs.exp
@@ -29,10 +29,6 @@ if [target_info exists gdb,nosignals] {
     continue
 }

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile savedregs
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/scope.exp b/gdb/testsuite/gdb.base/scope.exp
index 7059226..a86e02d 100644
--- a/gdb/testsuite/gdb.base/scope.exp
+++ b/gdb/testsuite/gdb.base/scope.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "scope"
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.base/sect-cmd.exp b/gdb/testsuite/gdb.base/sect-cmd.exp
index bd84473..8aeabe8 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 f321de5..1deefbf 100644
--- a/gdb/testsuite/gdb.base/watchpoint.exp
+++ b/gdb/testsuite/gdb.base/watchpoint.exp
@@ -15,10 +15,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile "watchpoint"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/watchpoints.exp b/gdb/testsuite/gdb.base/watchpoints.exp
index b8b27dc..8edd62c 100644
--- a/gdb/testsuite/gdb.base/watchpoints.exp
+++ b/gdb/testsuite/gdb.base/watchpoints.exp
@@ -15,10 +15,6 @@

 # This file was written by Pierre Muller. (muller@ics.u-strasbg.fr)

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile "watchpoints"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.base/whatis-exp.exp b/gdb/testsuite/gdb.base/whatis-exp.exp
index 7ca9896..2c50854 100644
--- a/gdb/testsuite/gdb.base/whatis-exp.exp
+++ b/gdb/testsuite/gdb.base/whatis-exp.exp
@@ -25,10 +25,6 @@
 # with the EVAL_AVOID_SIDE_EFFECTS flag rather than EVAL_NORMAL
 #

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.base/whatis.exp b/gdb/testsuite/gdb.base/whatis.exp
index 825eb7f..9198ef2 100644
--- a/gdb/testsuite/gdb.base/whatis.exp
+++ b/gdb/testsuite/gdb.base/whatis.exp
@@ -16,10 +16,6 @@

 # This file was written by Rob Savoye. (rob@cygnus.com)

-if $tracelevel {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/ambiguous.exp b/gdb/testsuite/gdb.cp/ambiguous.exp
index b03eb8c..539b32d 100644
--- a/gdb/testsuite/gdb.cp/ambiguous.exp
+++ b/gdb/testsuite/gdb.cp/ambiguous.exp
@@ -21,10 +21,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/annota2.exp b/gdb/testsuite/gdb.cp/annota2.exp
index 99e396d..41e1cc5 100644
--- a/gdb/testsuite/gdb.cp/annota2.exp
+++ b/gdb/testsuite/gdb.cp/annota2.exp
@@ -15,10 +15,6 @@

 # This file was written by Elena Zannoni (ezannoni@cygnus.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-

 #
 # test running programs
diff --git a/gdb/testsuite/gdb.cp/annota3.exp b/gdb/testsuite/gdb.cp/annota3.exp
index 4003629..112fb85 100644
--- a/gdb/testsuite/gdb.cp/annota3.exp
+++ b/gdb/testsuite/gdb.cp/annota3.exp
@@ -15,10 +15,6 @@

 # This file was written by Elena Zannoni (ezannoni@cygnus.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-

 #
 # test running programs
diff --git a/gdb/testsuite/gdb.cp/anon-union.exp b/gdb/testsuite/gdb.cp/anon-union.exp
index a8db275..fe30ef1 100644
--- a/gdb/testsuite/gdb.cp/anon-union.exp
+++ b/gdb/testsuite/gdb.cp/anon-union.exp
@@ -19,10 +19,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/arg-reference.exp b/gdb/testsuite/gdb.cp/arg-reference.exp
index 6c59cdc..9eb3985 100644
--- a/gdb/testsuite/gdb.cp/arg-reference.exp
+++ b/gdb/testsuite/gdb.cp/arg-reference.exp
@@ -21,10 +21,6 @@
 # Test G++ has compiled debuginfo without a C++ '&' reference where it should
 # not be.  GCC Bug 33537.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }


diff --git a/gdb/testsuite/gdb.cp/bool.exp b/gdb/testsuite/gdb.cp/bool.exp
index e33ebe9..9bf1810 100644
--- a/gdb/testsuite/gdb.cp/bool.exp
+++ b/gdb/testsuite/gdb.cp/bool.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 # Test returning bool.

 if { [skip_cplus_tests] } { continue }
diff --git a/gdb/testsuite/gdb.cp/breakpoint.exp b/gdb/testsuite/gdb.cp/breakpoint.exp
index 1072ff0..53b29c3 100644
--- a/gdb/testsuite/gdb.cp/breakpoint.exp
+++ b/gdb/testsuite/gdb.cp/breakpoint.exp
@@ -17,10 +17,6 @@

 # This contains tests for breakpoints in C++.

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/bs15503.exp b/gdb/testsuite/gdb.cp/bs15503.exp
index 23df242..95b4b4e 100644
--- a/gdb/testsuite/gdb.cp/bs15503.exp
+++ b/gdb/testsuite/gdb.cp/bs15503.exp
@@ -17,10 +17,6 @@
 # This file was written by Sue Kimura (sue_kimura@hp.com)
 # Rewritten by Michael Chastain (mec.gnu@mindspring.com)

-if $tracelevel {
-    strace $tracelevel
-}
-
 if { [skip_stl_tests] } { continue }

 # On SPU this test fails because the executable exceeds local storage size.
diff --git a/gdb/testsuite/gdb.cp/call-c.exp b/gdb/testsuite/gdb.cp/call-c.exp
index c0fc79d..a4327e8 100644
--- a/gdb/testsuite/gdb.cp/call-c.exp
+++ b/gdb/testsuite/gdb.cp/call-c.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 if { [skip_cplus_tests] } { continue }

diff --git a/gdb/testsuite/gdb.cp/casts.exp b/gdb/testsuite/gdb.cp/casts.exp
index 93fab94..84569ab 100644
--- a/gdb/testsuite/gdb.cp/casts.exp
+++ b/gdb/testsuite/gdb.cp/casts.exp
@@ -20,10 +20,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/class2.exp b/gdb/testsuite/gdb.cp/class2.exp
index 7c2e63e..6a95245 100644
--- a/gdb/testsuite/gdb.cp/class2.exp
+++ b/gdb/testsuite/gdb.cp/class2.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-    }
-
 if { [skip_cplus_tests] } { continue }


diff --git a/gdb/testsuite/gdb.cp/classes.exp b/gdb/testsuite/gdb.cp/classes.exp
index 3793f91..ae43630 100644
--- a/gdb/testsuite/gdb.cp/classes.exp
+++ b/gdb/testsuite/gdb.cp/classes.exp
@@ -18,10 +18,6 @@

 set nl "\[\r\n\]+"

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 load_lib "cp-support.exp"
diff --git a/gdb/testsuite/gdb.cp/cpcompletion.exp b/gdb/testsuite/gdb.cp/cpcompletion.exp
index 48dcca1..9161351 100644
--- a/gdb/testsuite/gdb.cp/cpcompletion.exp
+++ b/gdb/testsuite/gdb.cp/cpcompletion.exp
@@ -49,10 +49,6 @@ proc test_class_complete {class expr name matches} {
     }
 }

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 set testfile pr9594
diff --git a/gdb/testsuite/gdb.cp/cpexprs.exp b/gdb/testsuite/gdb.cp/cpexprs.exp
index 6b5e14e..13af265 100644
--- a/gdb/testsuite/gdb.cp/cpexprs.exp
+++ b/gdb/testsuite/gdb.cp/cpexprs.exp
@@ -663,10 +663,6 @@ add {policyd5::function} \
     {operation_1<T>::function}

 # Start the test
-if {$tracelevel} {
-    strace $tracelevel
-}
-
 if {[skip_cplus_tests]} { continue }

 # On SPU this test fails because the executable exceeds local storage size.
diff --git a/gdb/testsuite/gdb.cp/cplusfuncs.exp b/gdb/testsuite/gdb.cp/cplusfuncs.exp
index 6aa5445..5bca25e 100644
--- a/gdb/testsuite/gdb.cp/cplusfuncs.exp
+++ b/gdb/testsuite/gdb.cp/cplusfuncs.exp
@@ -17,10 +17,6 @@
 # This file was written by Fred Fish. (fnf@cygnus.com)
 # Adapted for g++ 3.0 ABI by Michael Chastain. (chastain@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 set testfile "cplusfuncs"
diff --git a/gdb/testsuite/gdb.cp/ctti.exp b/gdb/testsuite/gdb.cp/ctti.exp
index 46c3a1f..17a76d3 100644
--- a/gdb/testsuite/gdb.cp/ctti.exp
+++ b/gdb/testsuite/gdb.cp/ctti.exp
@@ -22,10 +22,6 @@

 # Call to template instantiations.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 set testfile "cttiadd"
diff --git a/gdb/testsuite/gdb.cp/demangle.exp b/gdb/testsuite/gdb.cp/demangle.exp
index 14ce0b0..c6e9491 100644
--- a/gdb/testsuite/gdb.cp/demangle.exp
+++ b/gdb/testsuite/gdb.cp/demangle.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 ### The demangling style we last sent to GDB.
diff --git a/gdb/testsuite/gdb.cp/derivation.exp b/gdb/testsuite/gdb.cp/derivation.exp
index 57bf416..eafaad6 100644
--- a/gdb/testsuite/gdb.cp/derivation.exp
+++ b/gdb/testsuite/gdb.cp/derivation.exp
@@ -25,10 +25,6 @@
 set ws "\[\r\n\t \]+"
 set nl "\[\r\n\]+"

-if $tracelevel then {
-    strace $tracelevel
-}
-
 # Start program.


diff --git a/gdb/testsuite/gdb.cp/exception.exp b/gdb/testsuite/gdb.cp/exception.exp
index 5cff73b..04dd6de 100644
--- a/gdb/testsuite/gdb.cp/exception.exp
+++ b/gdb/testsuite/gdb.cp/exception.exp
@@ -34,10 +34,6 @@
 set ws	"\[\r\n\t \]+"
 set nl	"\[\r\n\]+"

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_stl_tests] } { continue }

 # On SPU this test fails because the executable exceeds local storage size.
diff --git a/gdb/testsuite/gdb.cp/formatted-ref.exp b/gdb/testsuite/gdb.cp/formatted-ref.exp
index 34cb7c5..ff27439 100644
--- a/gdb/testsuite/gdb.cp/formatted-ref.exp
+++ b/gdb/testsuite/gdb.cp/formatted-ref.exp
@@ -27,10 +27,6 @@
 # work properly: condition expression using a reference object as one of its
 # operand.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 if { [skip_cplus_tests] } { continue }

diff --git a/gdb/testsuite/gdb.cp/gdb1355.exp b/gdb/testsuite/gdb.cp/gdb1355.exp
index f584279..140260c 100644
--- a/gdb/testsuite/gdb.cp/gdb1355.exp
+++ b/gdb/testsuite/gdb.cp/gdb1355.exp
@@ -21,10 +21,6 @@
 set ws "\[\r\n\t \]*"
 set nl "\[\r\n\]+"

-if $tracelevel then {
-    strace $tracelevel
-    }
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/gdb2384.exp b/gdb/testsuite/gdb.cp/gdb2384.exp
index 0ee27c4..ee78acd 100644
--- a/gdb/testsuite/gdb.cp/gdb2384.exp
+++ b/gdb/testsuite/gdb.cp/gdb2384.exp
@@ -21,10 +21,6 @@
 #
 # PR c++/9489.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }
 if { [skip_shlib_tests] } { continue }

diff --git a/gdb/testsuite/gdb.cp/gdb2495.exp b/gdb/testsuite/gdb.cp/gdb2495.exp
index 5dbc226..1f76ffa 100644
--- a/gdb/testsuite/gdb.cp/gdb2495.exp
+++ b/gdb/testsuite/gdb.cp/gdb2495.exp
@@ -31,10 +31,6 @@

 # This test is largely based of gdb.base/callfuncs.exp.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 if [target_info exists gdb,nosignals] {
diff --git a/gdb/testsuite/gdb.cp/hang.exp b/gdb/testsuite/gdb.cp/hang.exp
index 2025a20..0b83ced 100644
--- a/gdb/testsuite/gdb.cp/hang.exp
+++ b/gdb/testsuite/gdb.cp/hang.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 if { [skip_cplus_tests] } { continue }

diff --git a/gdb/testsuite/gdb.cp/inherit.exp b/gdb/testsuite/gdb.cp/inherit.exp
index c970d03..74e758b 100644
--- a/gdb/testsuite/gdb.cp/inherit.exp
+++ b/gdb/testsuite/gdb.cp/inherit.exp
@@ -21,10 +21,6 @@ set ws  "\[\r\n\t \]+"
 set nl  "\[\r\n\]+"
 set vhn "\\$\[0-9\]+"

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 load_lib "cp-support.exp"
diff --git a/gdb/testsuite/gdb.cp/local.exp b/gdb/testsuite/gdb.cp/local.exp
index ce28283..e720583 100644
--- a/gdb/testsuite/gdb.cp/local.exp
+++ b/gdb/testsuite/gdb.cp/local.exp
@@ -23,10 +23,6 @@
 set ws "\[\r\n\t \]+"
 set nl "\[\r\n\]+"

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/m-data.exp b/gdb/testsuite/gdb.cp/m-data.exp
index 71620a2..1ef956e 100644
--- a/gdb/testsuite/gdb.cp/m-data.exp
+++ b/gdb/testsuite/gdb.cp/m-data.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/m-static.exp b/gdb/testsuite/gdb.cp/m-static.exp
index 0b8f290..563d701 100644
--- a/gdb/testsuite/gdb.cp/m-static.exp
+++ b/gdb/testsuite/gdb.cp/m-static.exp
@@ -19,10 +19,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/maint.exp b/gdb/testsuite/gdb.cp/maint.exp
index f576b31..768664a 100644
--- a/gdb/testsuite/gdb.cp/maint.exp
+++ b/gdb/testsuite/gdb.cp/maint.exp
@@ -18,10 +18,6 @@

 # Currently, no source file is used.

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 # Test the help messages.

 proc test_help {} {
diff --git a/gdb/testsuite/gdb.cp/mb-ctor.exp b/gdb/testsuite/gdb.cp/mb-ctor.exp
index bff7ac5..c13b62c 100644
--- a/gdb/testsuite/gdb.cp/mb-ctor.exp
+++ b/gdb/testsuite/gdb.cp/mb-ctor.exp
@@ -16,10 +16,6 @@
 # Test that breakpoints on C++ constructors work, despite the
 # fact that gcc generates several versions of constructor function.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }


diff --git a/gdb/testsuite/gdb.cp/mb-inline.exp b/gdb/testsuite/gdb.cp/mb-inline.exp
index 1a29d35..bf00c26 100644
--- a/gdb/testsuite/gdb.cp/mb-inline.exp
+++ b/gdb/testsuite/gdb.cp/mb-inline.exp
@@ -18,10 +18,6 @@
 # This test verifies that setting breakpoint on line in inline
 # function will fire in all instantiations of that function.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }


diff --git a/gdb/testsuite/gdb.cp/mb-templates.exp b/gdb/testsuite/gdb.cp/mb-templates.exp
index dfb25cc..128f9f7 100644
--- a/gdb/testsuite/gdb.cp/mb-templates.exp
+++ b/gdb/testsuite/gdb.cp/mb-templates.exp
@@ -16,10 +16,6 @@
 # This test verifies that setting breakpoint on line in template
 # function will fire in all instantiations of that template.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_stl_tests] } { continue }

 # On SPU this test fails because the executable exceeds local storage size.
diff --git a/gdb/testsuite/gdb.cp/member-ptr.exp b/gdb/testsuite/gdb.cp/member-ptr.exp
index 4b9a37d..7eb237d 100644
--- a/gdb/testsuite/gdb.cp/member-ptr.exp
+++ b/gdb/testsuite/gdb.cp/member-ptr.exp
@@ -22,10 +22,6 @@

 set vhn "\\$\[0-9\]+"

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }


diff --git a/gdb/testsuite/gdb.cp/method.exp b/gdb/testsuite/gdb.cp/method.exp
index 3fe24c3..b862bc6 100644
--- a/gdb/testsuite/gdb.cp/method.exp
+++ b/gdb/testsuite/gdb.cp/method.exp
@@ -29,10 +29,6 @@
 # integrate FPARAM symbols in HP debug info into the local var list
 # for the function or method's block.)

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/misc.exp b/gdb/testsuite/gdb.cp/misc.exp
index 6e7bf11..a3ea820 100644
--- a/gdb/testsuite/gdb.cp/misc.exp
+++ b/gdb/testsuite/gdb.cp/misc.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 set testfile "misc"
diff --git a/gdb/testsuite/gdb.cp/namespace-nested-import.exp b/gdb/testsuite/gdb.cp/namespace-nested-import.exp
index f0a934b..15506ae 100644
--- a/gdb/testsuite/gdb.cp/namespace-nested-import.exp
+++ b/gdb/testsuite/gdb.cp/namespace-nested-import.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile namespace-nested-import
 set srcfile ${testfile}.cc
diff --git a/gdb/testsuite/gdb.cp/namespace.exp b/gdb/testsuite/gdb.cp/namespace.exp
index e0789de..ccbd97f 100644
--- a/gdb/testsuite/gdb.cp/namespace.exp
+++ b/gdb/testsuite/gdb.cp/namespace.exp
@@ -25,10 +25,6 @@
 # Note: As of 2000-06-03, they passed under g++ - djb


-if $tracelevel then {
-        strace $tracelevel
-        }
-

 if { [skip_cplus_tests] } { continue }

diff --git a/gdb/testsuite/gdb.cp/nextoverthrow.exp b/gdb/testsuite/gdb.cp/nextoverthrow.exp
index 2224628..7d4a0c5 100644
--- a/gdb/testsuite/gdb.cp/nextoverthrow.exp
+++ b/gdb/testsuite/gdb.cp/nextoverthrow.exp
@@ -14,10 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.


-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 set testfile "nextoverthrow"
diff --git a/gdb/testsuite/gdb.cp/nsdecl.exp b/gdb/testsuite/gdb.cp/nsdecl.exp
index f8617d1..5da4a0c 100644
--- a/gdb/testsuite/gdb.cp/nsdecl.exp
+++ b/gdb/testsuite/gdb.cp/nsdecl.exp
@@ -15,10 +15,6 @@

 # Stress test the lookup of declarations

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile nsdecl
 set srcfile ${testfile}.cc
diff --git a/gdb/testsuite/gdb.cp/nsimport.exp b/gdb/testsuite/gdb.cp/nsimport.exp
index deeca46..6f937a7 100644
--- a/gdb/testsuite/gdb.cp/nsimport.exp
+++ b/gdb/testsuite/gdb.cp/nsimport.exp
@@ -16,10 +16,6 @@
 # Test printing from multiple namespace
 # imported into the same scope.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile nsimport
 set srcfile ${testfile}.cc
diff --git a/gdb/testsuite/gdb.cp/nsrecurs.exp b/gdb/testsuite/gdb.cp/nsrecurs.exp
index fa80eb4..49affaa 100644
--- a/gdb/testsuite/gdb.cp/nsrecurs.exp
+++ b/gdb/testsuite/gdb.cp/nsrecurs.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile nsrecurs
 set srcfile ${testfile}.cc
diff --git a/gdb/testsuite/gdb.cp/nsstress.exp b/gdb/testsuite/gdb.cp/nsstress.exp
index 93f310c..dbc1a04 100644
--- a/gdb/testsuite/gdb.cp/nsstress.exp
+++ b/gdb/testsuite/gdb.cp/nsstress.exp
@@ -15,10 +15,6 @@

 # Stress test namespace lookup

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile nsstress
 set srcfile ${testfile}.cc
diff --git a/gdb/testsuite/gdb.cp/nsusing.exp b/gdb/testsuite/gdb.cp/nsusing.exp
index fd8caec..fecb882 100644
--- a/gdb/testsuite/gdb.cp/nsusing.exp
+++ b/gdb/testsuite/gdb.cp/nsusing.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile nsusing
 set srcfile ${testfile}.cc
diff --git a/gdb/testsuite/gdb.cp/overload.exp b/gdb/testsuite/gdb.cp/overload.exp
index 10bd4de..5116e5f 100644
--- a/gdb/testsuite/gdb.cp/overload.exp
+++ b/gdb/testsuite/gdb.cp/overload.exp
@@ -20,10 +20,6 @@

 # Tests for overloaded member functions.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set ws "\[\r\n\t \]+"
 set nl "\[\r\n\]+"

diff --git a/gdb/testsuite/gdb.cp/ovldbreak.exp b/gdb/testsuite/gdb.cp/ovldbreak.exp
index ddc4117..b719224 100644
--- a/gdb/testsuite/gdb.cp/ovldbreak.exp
+++ b/gdb/testsuite/gdb.cp/ovldbreak.exp
@@ -25,10 +25,6 @@

 global timeout
 set timeout 15
-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/pr-1023.exp b/gdb/testsuite/gdb.cp/pr-1023.exp
index 8e41e04..0eec05c 100644
--- a/gdb/testsuite/gdb.cp/pr-1023.exp
+++ b/gdb/testsuite/gdb.cp/pr-1023.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/pr-1210.exp b/gdb/testsuite/gdb.cp/pr-1210.exp
index b0fc3c9..90da5bc 100644
--- a/gdb/testsuite/gdb.cp/pr-1210.exp
+++ b/gdb/testsuite/gdb.cp/pr-1210.exp
@@ -17,10 +17,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/pr-574.exp b/gdb/testsuite/gdb.cp/pr-574.exp
index abc38d1..b8333f8 100644
--- a/gdb/testsuite/gdb.cp/pr-574.exp
+++ b/gdb/testsuite/gdb.cp/pr-574.exp
@@ -20,10 +20,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/printmethod.exp b/gdb/testsuite/gdb.cp/printmethod.exp
index 998fffc..5362b80 100644
--- a/gdb/testsuite/gdb.cp/printmethod.exp
+++ b/gdb/testsuite/gdb.cp/printmethod.exp
@@ -19,10 +19,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/psmang.exp b/gdb/testsuite/gdb.cp/psmang.exp
index 743f882..605f8eb 100644
--- a/gdb/testsuite/gdb.cp/psmang.exp
+++ b/gdb/testsuite/gdb.cp/psmang.exp
@@ -171,10 +171,6 @@
 # other ways this test could fail to do its job.  If you need to make
 # revisions, please be very careful.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/punctuator.exp b/gdb/testsuite/gdb.cp/punctuator.exp
index 9af22ad..27ef37c 100644
--- a/gdb/testsuite/gdb.cp/punctuator.exp
+++ b/gdb/testsuite/gdb.cp/punctuator.exp
@@ -17,10 +17,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_cplus_tests] } { continue }

 gdb_exit
diff --git a/gdb/testsuite/gdb.cp/ref-params.exp b/gdb/testsuite/gdb.cp/ref-params.exp
index 23f9de8..f133a89 100644
--- a/gdb/testsuite/gdb.cp/ref-params.exp
+++ b/gdb/testsuite/gdb.cp/ref-params.exp
@@ -16,10 +16,6 @@

 # written by Paul N. Hilfinger (Hilfinger@adacore.com)

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/ref-types.exp b/gdb/testsuite/gdb.cp/ref-types.exp
index 3e63b6b..346aac4 100644
--- a/gdb/testsuite/gdb.cp/ref-types.exp
+++ b/gdb/testsuite/gdb.cp/ref-types.exp
@@ -16,10 +16,6 @@

 # written by Elena Zannoni (ezannoni@cygnus.com)

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.cp/rtti.exp b/gdb/testsuite/gdb.cp/rtti.exp
index 35e37b0..d9e413f 100644
--- a/gdb/testsuite/gdb.cp/rtti.exp
+++ b/gdb/testsuite/gdb.cp/rtti.exp
@@ -26,10 +26,6 @@
 # (involving templates, in particular) where this problem triggers
 # because GDB and GCC have different ideas what a class is called.

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_cplus_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/shadow.exp b/gdb/testsuite/gdb.cp/shadow.exp
index a6b40d1..47d6207 100644
--- a/gdb/testsuite/gdb.cp/shadow.exp
+++ b/gdb/testsuite/gdb.cp/shadow.exp
@@ -16,10 +16,6 @@
 # Test that when multiple variables have the same
 # name the one from the correct scope is printed.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 set testfile shadow
 set srcfile ${testfile}.cc
diff --git a/gdb/testsuite/gdb.cp/temargs.exp b/gdb/testsuite/gdb.cp/temargs.exp
index bb4fc94..24541a4 100644
--- a/gdb/testsuite/gdb.cp/temargs.exp
+++ b/gdb/testsuite/gdb.cp/temargs.exp
@@ -17,10 +17,6 @@

 # This file is part of the gdb testsuite.

-if {$tracelevel} {
-    strace $tracelevel
-}
-
 if {[skip_cplus_tests]} {
     continue
 }
diff --git a/gdb/testsuite/gdb.cp/templates.exp b/gdb/testsuite/gdb.cp/templates.exp
index 4fdcabf..72b65ae 100644
--- a/gdb/testsuite/gdb.cp/templates.exp
+++ b/gdb/testsuite/gdb.cp/templates.exp
@@ -18,10 +18,6 @@

 set ws "\[\r\n\t \]+"

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 set testfile "templates"
diff --git a/gdb/testsuite/gdb.cp/try_catch.exp b/gdb/testsuite/gdb.cp/try_catch.exp
index 474d674..846d8f9 100644
--- a/gdb/testsuite/gdb.cp/try_catch.exp
+++ b/gdb/testsuite/gdb.cp/try_catch.exp
@@ -18,10 +18,6 @@

 # This file is part of the gdb testsuite

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_stl_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.cp/userdef.exp b/gdb/testsuite/gdb.cp/userdef.exp
index 98bd105..9c7cb57 100644
--- a/gdb/testsuite/gdb.cp/userdef.exp
+++ b/gdb/testsuite/gdb.cp/userdef.exp
@@ -19,10 +19,6 @@
 # source file "userdef.cc"
 #

-if $tracelevel then {
-        strace $tracelevel
-}
-
 if { [skip_stl_tests] } { continue }

 # On SPU this test fails because the executable exceeds local storage size.
diff --git a/gdb/testsuite/gdb.cp/virtfunc.exp b/gdb/testsuite/gdb.cp/virtfunc.exp
index ab8eceb..dd41c6d 100644
--- a/gdb/testsuite/gdb.cp/virtfunc.exp
+++ b/gdb/testsuite/gdb.cp/virtfunc.exp
@@ -19,10 +19,6 @@

 set nl		"\[\r\n\]+"

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 load_lib "cp-support.exp"
diff --git a/gdb/testsuite/gdb.disasm/am33.exp b/gdb/testsuite/gdb.disasm/am33.exp
index 3486667..c06f00b 100644
--- a/gdb/testsuite/gdb.disasm/am33.exp
+++ b/gdb/testsuite/gdb.disasm/am33.exp
@@ -16,10 +16,6 @@

 # This file was written by Jeff Law. (law@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "mn10300*-*-*"] {
     verbose "Tests ignored for all but mn10300 based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/h8300s.exp b/gdb/testsuite/gdb.disasm/h8300s.exp
index b1a5524..4a00f5d 100644
--- a/gdb/testsuite/gdb.disasm/h8300s.exp
+++ b/gdb/testsuite/gdb.disasm/h8300s.exp
@@ -15,10 +15,6 @@

 # This file was written by Kazu Hirata. (kazu@hxi.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/hppa.exp b/gdb/testsuite/gdb.disasm/hppa.exp
index 99c02a2..39ff779 100644
--- a/gdb/testsuite/gdb.disasm/hppa.exp
+++ b/gdb/testsuite/gdb.disasm/hppa.exp
@@ -16,10 +16,6 @@

 # This file was written by Jeff Law. (law@cs.utah.edu)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "hppa*-*-*"] {
     verbose "Tests ignored for all but hppa based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/mn10300.exp b/gdb/testsuite/gdb.disasm/mn10300.exp
index f001c23..1fc3ff0 100644
--- a/gdb/testsuite/gdb.disasm/mn10300.exp
+++ b/gdb/testsuite/gdb.disasm/mn10300.exp
@@ -16,10 +16,6 @@

 # This file was written by Jeff Law. (law@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "mn10300*-*-*"] {
     verbose "Tests ignored for all but mn10300 based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/sh3.exp b/gdb/testsuite/gdb.disasm/sh3.exp
index c4fb7e7..0e702f5 100644
--- a/gdb/testsuite/gdb.disasm/sh3.exp
+++ b/gdb/testsuite/gdb.disasm/sh3.exp
@@ -15,10 +15,6 @@

 # This file was written by Jeff Law. (law@cs.utah.edu)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "sh3*-*-*"] {
     verbose "Tests ignored for all but sh3 based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t01_mov.exp b/gdb/testsuite/gdb.disasm/t01_mov.exp
index 110fa74..3f4c037 100644
--- a/gdb/testsuite/gdb.disasm/t01_mov.exp
+++ b/gdb/testsuite/gdb.disasm/t01_mov.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t02_mova.exp b/gdb/testsuite/gdb.disasm/t02_mova.exp
index b3dbcb7..c6d4740 100644
--- a/gdb/testsuite/gdb.disasm/t02_mova.exp
+++ b/gdb/testsuite/gdb.disasm/t02_mova.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t03_add.exp b/gdb/testsuite/gdb.disasm/t03_add.exp
index 175f2a1..7880778 100644
--- a/gdb/testsuite/gdb.disasm/t03_add.exp
+++ b/gdb/testsuite/gdb.disasm/t03_add.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t04_sub.exp b/gdb/testsuite/gdb.disasm/t04_sub.exp
index d1bc71e..3e8bfea 100644
--- a/gdb/testsuite/gdb.disasm/t04_sub.exp
+++ b/gdb/testsuite/gdb.disasm/t04_sub.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t05_cmp.exp b/gdb/testsuite/gdb.disasm/t05_cmp.exp
index a0ea60b..ecf031b 100644
--- a/gdb/testsuite/gdb.disasm/t05_cmp.exp
+++ b/gdb/testsuite/gdb.disasm/t05_cmp.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t06_ari2.exp b/gdb/testsuite/gdb.disasm/t06_ari2.exp
index 4cd4188..c013b5a 100644
--- a/gdb/testsuite/gdb.disasm/t06_ari2.exp
+++ b/gdb/testsuite/gdb.disasm/t06_ari2.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t07_ari3.exp b/gdb/testsuite/gdb.disasm/t07_ari3.exp
index 6a2a0fe..a585134 100644
--- a/gdb/testsuite/gdb.disasm/t07_ari3.exp
+++ b/gdb/testsuite/gdb.disasm/t07_ari3.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t08_or.exp b/gdb/testsuite/gdb.disasm/t08_or.exp
index 1c27b19..9b89f71 100644
--- a/gdb/testsuite/gdb.disasm/t08_or.exp
+++ b/gdb/testsuite/gdb.disasm/t08_or.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t09_xor.exp b/gdb/testsuite/gdb.disasm/t09_xor.exp
index f5794fe..63b9887 100644
--- a/gdb/testsuite/gdb.disasm/t09_xor.exp
+++ b/gdb/testsuite/gdb.disasm/t09_xor.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t10_and.exp b/gdb/testsuite/gdb.disasm/t10_and.exp
index 97ea0a5..516cc85 100644
--- a/gdb/testsuite/gdb.disasm/t10_and.exp
+++ b/gdb/testsuite/gdb.disasm/t10_and.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t11_logs.exp b/gdb/testsuite/gdb.disasm/t11_logs.exp
index 75fd7f7..3baa28e 100644
--- a/gdb/testsuite/gdb.disasm/t11_logs.exp
+++ b/gdb/testsuite/gdb.disasm/t11_logs.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t12_bit.exp b/gdb/testsuite/gdb.disasm/t12_bit.exp
index a03b5d6..8ff157b 100644
--- a/gdb/testsuite/gdb.disasm/t12_bit.exp
+++ b/gdb/testsuite/gdb.disasm/t12_bit.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.disasm/t13_otr.exp b/gdb/testsuite/gdb.disasm/t13_otr.exp
index 21904d8..ece053f 100644
--- a/gdb/testsuite/gdb.disasm/t13_otr.exp
+++ b/gdb/testsuite/gdb.disasm/t13_otr.exp
@@ -15,10 +15,6 @@

 # This file was written by Michael Snyder (msnyder@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if ![istarget "h8300*-*-*"] {
     verbose "Tests ignored for all but h8300s based targets."
     return
diff --git a/gdb/testsuite/gdb.fortran/array-element.exp b/gdb/testsuite/gdb.fortran/array-element.exp
index 412e3ea..9150a45 100644
--- a/gdb/testsuite/gdb.fortran/array-element.exp
+++ b/gdb/testsuite/gdb.fortran/array-element.exp
@@ -18,10 +18,6 @@
 # This file is part of the gdb testsuite.  It contains test for printing
 # the elements of an array which is passed as pointer to a subroutine.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [skip_fortran_tests] } { return -1 }

 set testfile "array-element"
diff --git a/gdb/testsuite/gdb.fortran/derived-type.exp b/gdb/testsuite/gdb.fortran/derived-type.exp
index c026742..b131da5 100644
--- a/gdb/testsuite/gdb.fortran/derived-type.exp
+++ b/gdb/testsuite/gdb.fortran/derived-type.exp
@@ -18,10 +18,6 @@
 # This file is part of the gdb testsuite.  It contains tests for type-printing
 # and value-printing Fortran derived types.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [skip_fortran_tests] } { return -1 }

 set testfile "derived-type"
diff --git a/gdb/testsuite/gdb.fortran/exprs.exp b/gdb/testsuite/gdb.fortran/exprs.exp
index 2a1c157..20eb0ea 100644
--- a/gdb/testsuite/gdb.fortran/exprs.exp
+++ b/gdb/testsuite/gdb.fortran/exprs.exp
@@ -17,10 +17,6 @@
 # This file was adapted from old Chill tests by Stan Shebs
 # (shebs@cygnus.com).

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "fortran.exp"

 if { [skip_fortran_tests] } { continue }
diff --git a/gdb/testsuite/gdb.fortran/subarray.exp b/gdb/testsuite/gdb.fortran/subarray.exp
index 4615126..d43c85a 100644
--- a/gdb/testsuite/gdb.fortran/subarray.exp
+++ b/gdb/testsuite/gdb.fortran/subarray.exp
@@ -18,10 +18,6 @@
 # This file is part of the gdb testsuite.  It contains tests for evaluating
 # Fortran subarray expression.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 if { [skip_fortran_tests] } { return -1 }

 set testfile "subarray"
diff --git a/gdb/testsuite/gdb.fortran/types.exp b/gdb/testsuite/gdb.fortran/types.exp
index 99f9fc8..cbfb122 100644
--- a/gdb/testsuite/gdb.fortran/types.exp
+++ b/gdb/testsuite/gdb.fortran/types.exp
@@ -17,10 +17,6 @@
 # This file was adapted from old Chill tests by Stan Shebs
 # (shebs@cygnus.com).

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "fortran.exp"

 if { [skip_fortran_tests] } { continue }
diff --git a/gdb/testsuite/gdb.gdb/complaints.exp b/gdb/testsuite/gdb.gdb/complaints.exp
index adaa47d..5ec02ff 100644
--- a/gdb/testsuite/gdb.gdb/complaints.exp
+++ b/gdb/testsuite/gdb.gdb/complaints.exp
@@ -17,10 +17,6 @@
 # derived from xfullpath.exp (written by Joel Brobecker), derived from
 # selftest.exp (written by Rob Savoye).

-if $tracelevel then {
-    strace $tracelevel
-}
-

 # are we on a target board
 if { [is_remote target] || ![isnative] } then {
diff --git a/gdb/testsuite/gdb.gdb/observer.exp b/gdb/testsuite/gdb.gdb/observer.exp
index bf6741c..47a4a11 100644
--- a/gdb/testsuite/gdb.gdb/observer.exp
+++ b/gdb/testsuite/gdb.gdb/observer.exp
@@ -16,10 +16,6 @@
 # This file was written by Joel Brobecker (brobecker@gnat.com), derived
 # from xfullpath.exp.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 # are we on a target board
 if { [is_remote target] || ![isnative] } then {
diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp
index 91c2ee4..21798bc 100644
--- a/gdb/testsuite/gdb.gdb/selftest.exp
+++ b/gdb/testsuite/gdb.gdb/selftest.exp
@@ -16,10 +16,6 @@

 # This file was written by Rob Savoye. (rob@cygnus.com)

-if $tracelevel then {
-    strace $tracelevel
-}
-

 # are we on a target board
 if { [is_remote target] || ![isnative] } then {
diff --git a/gdb/testsuite/gdb.gdb/xfullpath.exp b/gdb/testsuite/gdb.gdb/xfullpath.exp
index 1377802..0ebf824 100644
--- a/gdb/testsuite/gdb.gdb/xfullpath.exp
+++ b/gdb/testsuite/gdb.gdb/xfullpath.exp
@@ -16,10 +16,6 @@
 # This file was written by Joel Brobecker. (brobecker@gnat.com), derived
 # from selftest.exp, written by Rob Savoye.

-if $tracelevel then {
-    strace $tracelevel
-}
-

 # are we on a target board
 if { [is_remote target] || ![isnative] } then {
diff --git a/gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp b/gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp
index 592b3b5..803c5ca 100644
--- a/gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp
+++ b/gdb/testsuite/gdb.hp/gdb.aCC/optimize.exp
@@ -24,10 +24,6 @@ global timeout
 #
 #log_user 1

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_hp_tests] } then { continue }

 set testfile optimize
diff --git a/gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp b/gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp
index 7ae2de6..5ad4a3b 100644
--- a/gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp
+++ b/gdb/testsuite/gdb.hp/gdb.aCC/watch-cmd.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test special commands
 #
diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp
index c0f0877..a9011ea 100644
--- a/gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp
+++ b/gdb/testsuite/gdb.hp/gdb.base-hp/callfwmall.exp
@@ -81,10 +81,6 @@
 # inferior function calls to evaluate array literals.  But many people
 # jump to other, incorrect conclusions about this.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 if { [skip_hp_tests] } then { continue }

diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp
index e212905..253e7dc 100644
--- a/gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp
+++ b/gdb/testsuite/gdb.hp/gdb.base-hp/dollar.exp
@@ -24,10 +24,6 @@
 # This file was written by Satish Pai <pai@apollo.hp.com>
 # 1997-09-24

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp
index 4dc8516..a4a765b 100644
--- a/gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp
+++ b/gdb/testsuite/gdb.hp/gdb.base-hp/hwwatchbus.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

-if $tracelevel then {
-	strace $tracelevel
-	}
-

 if { [skip_hp_tests] } then { continue }

diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp
index aad9aec..00eebe8 100644
--- a/gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp
+++ b/gdb/testsuite/gdb.hp/gdb.base-hp/pxdb.exp
@@ -20,10 +20,6 @@
 # pxdb.exp   Test that gdb calls pxdb on an application
 #            built without it.
 #
-if $tracelevel then {
-	strace $tracelevel
-}
-

 if { [skip_hp_tests] } then { continue }

diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp
index 39aa44a..3ff4f4b 100644
--- a/gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp
+++ b/gdb/testsuite/gdb.hp/gdb.base-hp/reg-pa64.exp
@@ -17,10 +17,6 @@
 # use this to debug:
 #log_user 1

-if $tracelevel {
-    strace $tracelevel
-}
-
 if { [skip_hp_tests] } { continue }

 if ![istarget "hppa*-*-*"] {
diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp
index edb24f6..15c947f 100644
--- a/gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp
+++ b/gdb/testsuite/gdb.hp/gdb.base-hp/reg.exp
@@ -20,10 +20,6 @@
 # use this to debug:
 #log_user 1

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 if { [skip_hp_tests] } then { continue }

 set testfile "reg"
diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp
index 8893d46..082e32b 100644
--- a/gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp
+++ b/gdb/testsuite/gdb.hp/gdb.base-hp/sized-enum.exp
@@ -22,10 +22,6 @@
 # This file was written by Satish Pai <pai@apollo.hp.com>
 # 1997-09-24

-if $tracelevel then {
-	strace $tracelevel
-	}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp b/gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp
index b7e4d06..10a9a7a 100644
--- a/gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp
+++ b/gdb/testsuite/gdb.hp/gdb.base-hp/so-thresh.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

-if $tracelevel then {
-	strace $tracelevel
-	}
-

 if { [skip_hp_tests] } then { continue }

diff --git a/gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp b/gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp
index 4d266cb..ca3f51f 100644
--- a/gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp
+++ b/gdb/testsuite/gdb.hp/gdb.compat/xdb1.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_hp_tests] } then { continue }

 #
diff --git a/gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp b/gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp
index a0789e3..821641a 100644
--- a/gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp
+++ b/gdb/testsuite/gdb.hp/gdb.compat/xdb2.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-        strace $tracelevel
-        }
-
 if { [skip_hp_tests] } then { continue }

 global message
diff --git a/gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp b/gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp
index c331c37..61c459d 100644
--- a/gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp
+++ b/gdb/testsuite/gdb.hp/gdb.compat/xdb3.exp
@@ -14,10 +14,6 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */


-if $tracelevel then {
-        strace $tracelevel
-}
-
 if { [skip_hp_tests] } then { continue }

 set testfile1 "average"
diff --git a/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp b/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp
index abd4e6f..27985ff 100644
--- a/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp
+++ b/gdb/testsuite/gdb.hp/gdb.defects/bs14602.exp
@@ -4,10 +4,6 @@
 #
 # Source file: bs14602.c

-if $tracelevel {
-    strace $tracelevel
-}
-
 if { [skip_hp_tests] } { continue }

 #
diff --git a/gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp b/gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp
index 4b65d67..30d0838 100644
--- a/gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp
+++ b/gdb/testsuite/gdb.hp/gdb.defects/solib-d.exp
@@ -44,10 +44,6 @@
 #
 #

-if $tracelevel {
-    strace $tracelevel
-}
-
 if { [skip_hp_tests] } { continue }


diff --git a/gdb/testsuite/gdb.java/jmain.exp b/gdb/testsuite/gdb.java/jmain.exp
index 8e9d7c6..8bb82b1 100644
--- a/gdb/testsuite/gdb.java/jmain.exp
+++ b/gdb/testsuite/gdb.java/jmain.exp
@@ -16,10 +16,6 @@
 # This file was based on jmisc.exp which in turn was written by
 # Anthony Green. (green@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "java.exp"

 if { [skip_java_tests] } { continue }
diff --git a/gdb/testsuite/gdb.java/jmisc.exp b/gdb/testsuite/gdb.java/jmisc.exp
index 050ea56..9ca35b8 100644
--- a/gdb/testsuite/gdb.java/jmisc.exp
+++ b/gdb/testsuite/gdb.java/jmisc.exp
@@ -16,10 +16,6 @@
 # This file was written by Anthony Green. (green@redhat.com)
 #

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "java.exp"

 if { [skip_java_tests] } { continue }
diff --git a/gdb/testsuite/gdb.java/jnpe.exp b/gdb/testsuite/gdb.java/jnpe.exp
index 85daf9d..dc76bc8 100644
--- a/gdb/testsuite/gdb.java/jnpe.exp
+++ b/gdb/testsuite/gdb.java/jnpe.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-  strace $tracelevel
-}
-
 load_lib "java.exp"

 set testfile "jnpe"
diff --git a/gdb/testsuite/gdb.java/jprint.exp b/gdb/testsuite/gdb.java/jprint.exp
index c11be67..97660e6 100644
--- a/gdb/testsuite/gdb.java/jprint.exp
+++ b/gdb/testsuite/gdb.java/jprint.exp
@@ -16,10 +16,6 @@
 # This file was written by Jeff Johnston. (jjohnstn@redhat.com)
 #

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "java.exp"

 if { [skip_java_tests] } { continue }
diff --git a/gdb/testsuite/gdb.java/jv-exp.exp b/gdb/testsuite/gdb.java/jv-exp.exp
index d3c7c0e..bea701b 100644
--- a/gdb/testsuite/gdb.java/jv-exp.exp
+++ b/gdb/testsuite/gdb.java/jv-exp.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "java.exp"

 proc test_comparisons {} {
diff --git a/gdb/testsuite/gdb.java/jv-print.exp b/gdb/testsuite/gdb.java/jv-print.exp
index 206e582..8d86841 100644
--- a/gdb/testsuite/gdb.java/jv-print.exp
+++ b/gdb/testsuite/gdb.java/jv-print.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "java.exp"

 if { [skip_java_tests] } { continue }
diff --git a/gdb/testsuite/gdb.mi/mi-pending.exp b/gdb/testsuite/gdb.mi/mi-pending.exp
index 9137238..137e289 100644
--- a/gdb/testsuite/gdb.mi/mi-pending.exp
+++ b/gdb/testsuite/gdb.mi/mi-pending.exp
@@ -16,10 +16,6 @@
 load_lib mi-support.exp
 set MIFLAGS "-i=mi"

-if $tracelevel then {
-    strace $tracelevel
-}
-
 #
 # test running programs
 #
diff --git a/gdb/testsuite/gdb.modula2/unbounded-array.exp b/gdb/testsuite/gdb.modula2/unbounded-array.exp
index 485de0b..3ab17f6 100644
--- a/gdb/testsuite/gdb.modula2/unbounded-array.exp
+++ b/gdb/testsuite/gdb.modula2/unbounded-array.exp
@@ -17,10 +17,6 @@
 # the elements of an unbounded array using the Modula-2 language mode of
 # gdb.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "unbounded1"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.objc/basicclass.exp b/gdb/testsuite/gdb.objc/basicclass.exp
index 18c373b..c1892ca 100644
--- a/gdb/testsuite/gdb.objc/basicclass.exp
+++ b/gdb/testsuite/gdb.objc/basicclass.exp
@@ -15,10 +15,6 @@

 # This file was written by Adam Fedor (fedor@gnu.org)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "basicclass"
 set srcfile ${testfile}.m
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.objc/nondebug.exp b/gdb/testsuite/gdb.objc/nondebug.exp
index d901b81..ea775fc 100644
--- a/gdb/testsuite/gdb.objc/nondebug.exp
+++ b/gdb/testsuite/gdb.objc/nondebug.exp
@@ -17,10 +17,6 @@

 # This file was written by Adam Fedor (fedor@gnu.org)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "nondebug"
 set srcfile ${testfile}.m
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.objc/objcdecode.exp b/gdb/testsuite/gdb.objc/objcdecode.exp
index e3bbb51..ba2085a 100644
--- a/gdb/testsuite/gdb.objc/objcdecode.exp
+++ b/gdb/testsuite/gdb.objc/objcdecode.exp
@@ -17,10 +17,6 @@

 # This file was written by Adam Fedor (fedor@gnu.org)

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "objcdecode"
 set srcfile ${testfile}.m
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.objc/print.exp b/gdb/testsuite/gdb.objc/print.exp
index 56725e1..96fb759 100644
--- a/gdb/testsuite/gdb.objc/print.exp
+++ b/gdb/testsuite/gdb.objc/print.exp
@@ -21,10 +21,6 @@
 # Test printing of various values.
 # NOTE: The tests here intentionally do not require an objc compiler.

-if $tracelevel {
-    strace $tracelevel
-}
-
 load_lib "objc.exp"

 proc test_float_accepted {} {
diff --git a/gdb/testsuite/gdb.opencl/callfuncs.exp b/gdb/testsuite/gdb.opencl/callfuncs.exp
index a311953..1ea11eb 100644
--- a/gdb/testsuite/gdb.opencl/callfuncs.exp
+++ b/gdb/testsuite/gdb.opencl/callfuncs.exp
@@ -17,10 +17,6 @@
 #
 # Tests OpenCL function calling conventions.

-if $tracelevel {
-    strace $tracelevel
-}
-
 load_lib opencl.exp

 if { [skip_opencl_tests] } {
diff --git a/gdb/testsuite/gdb.opencl/convs_casts.exp b/gdb/testsuite/gdb.opencl/convs_casts.exp
index d10d887..a230392 100644
--- a/gdb/testsuite/gdb.opencl/convs_casts.exp
+++ b/gdb/testsuite/gdb.opencl/convs_casts.exp
@@ -17,10 +17,6 @@
 #
 # Tests GDBs support for OpenCL type conversions and casts.

-if $tracelevel {
-    strace $tracelevel
-}
-
 load_lib opencl.exp

 if { [skip_opencl_tests] } {
diff --git a/gdb/testsuite/gdb.opencl/datatypes.exp b/gdb/testsuite/gdb.opencl/datatypes.exp
index a50018d..2993539 100644
--- a/gdb/testsuite/gdb.opencl/datatypes.exp
+++ b/gdb/testsuite/gdb.opencl/datatypes.exp
@@ -17,10 +17,6 @@
 #
 # Tests OpenCL data types.

-if $tracelevel {
-    strace $tracelevel
-}
-
 load_lib opencl.exp

 if { [skip_opencl_tests] } {
diff --git a/gdb/testsuite/gdb.opencl/operators.exp b/gdb/testsuite/gdb.opencl/operators.exp
index 910d4f1..6a698f3 100644
--- a/gdb/testsuite/gdb.opencl/operators.exp
+++ b/gdb/testsuite/gdb.opencl/operators.exp
@@ -17,10 +17,6 @@
 #
 # Tests GDBs support for OpenCL operators.

-if $tracelevel {
-    strace $tracelevel
-}
-
 load_lib opencl.exp

 if { [skip_opencl_tests] } {
diff --git a/gdb/testsuite/gdb.opencl/vec_comps.exp b/gdb/testsuite/gdb.opencl/vec_comps.exp
index eb26db4..0e699a1 100644
--- a/gdb/testsuite/gdb.opencl/vec_comps.exp
+++ b/gdb/testsuite/gdb.opencl/vec_comps.exp
@@ -17,10 +17,6 @@
 #
 # Tests component access of OpenCL vectors.

-if $tracelevel {
-    strace $tracelevel
-}
-
 load_lib opencl.exp

 if { [skip_opencl_tests] } {
diff --git a/gdb/testsuite/gdb.opt/clobbered-registers-O2.exp b/gdb/testsuite/gdb.opt/clobbered-registers-O2.exp
index b90c164..2559b3d 100644
--- a/gdb/testsuite/gdb.opt/clobbered-registers-O2.exp
+++ b/gdb/testsuite/gdb.opt/clobbered-registers-O2.exp
@@ -15,10 +15,6 @@
 #
 # This file is part of the gdb testsuite.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 # Test displaying call clobbered registers in optimized binaries.
 # GDB should not show incorrect values.

diff --git a/gdb/testsuite/gdb.pascal/floats.exp b/gdb/testsuite/gdb.pascal/floats.exp
index 6668666..e7122e7 100644
--- a/gdb/testsuite/gdb.pascal/floats.exp
+++ b/gdb/testsuite/gdb.pascal/floats.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "pascal.exp"

 set testfile "floats"
diff --git a/gdb/testsuite/gdb.pascal/gdb11492.exp b/gdb/testsuite/gdb.pascal/gdb11492.exp
index 0d03522..48f7b47 100644
--- a/gdb/testsuite/gdb.pascal/gdb11492.exp
+++ b/gdb/testsuite/gdb.pascal/gdb11492.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "pascal.exp"

 set testfile "gdb11492"
diff --git a/gdb/testsuite/gdb.pascal/hello.exp b/gdb/testsuite/gdb.pascal/hello.exp
index ce30919..0329acb 100644
--- a/gdb/testsuite/gdb.pascal/hello.exp
+++ b/gdb/testsuite/gdb.pascal/hello.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "pascal.exp"

 set testfile "hello"
diff --git a/gdb/testsuite/gdb.pascal/integers.exp b/gdb/testsuite/gdb.pascal/integers.exp
index 8cdc00c..68b978b 100644
--- a/gdb/testsuite/gdb.pascal/integers.exp
+++ b/gdb/testsuite/gdb.pascal/integers.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "pascal.exp"

 set testfile "integers"
diff --git a/gdb/testsuite/gdb.pascal/print.exp b/gdb/testsuite/gdb.pascal/print.exp
index ba6351b..c390a7c4 100644
--- a/gdb/testsuite/gdb.pascal/print.exp
+++ b/gdb/testsuite/gdb.pascal/print.exp
@@ -21,10 +21,6 @@
 # Test printing of various values.
 # NOTE: The tests here intentionally do not require a pascal compiler.

-if $tracelevel {
-    strace $tracelevel
-}
-
 load_lib "pascal.exp"

 proc test_float_accepted {} {
diff --git a/gdb/testsuite/gdb.pascal/types.exp b/gdb/testsuite/gdb.pascal/types.exp
index f9f1736..a5db631 100644
--- a/gdb/testsuite/gdb.pascal/types.exp
+++ b/gdb/testsuite/gdb.pascal/types.exp
@@ -19,10 +19,6 @@
 # (shebs@cygnus.com).
 # Adapted to pascal by Pierre Muller

-if $tracelevel then {
-	strace $tracelevel
-}
-
 load_lib "pascal.exp"

 proc test_integer_literal_types_accepted {} {
diff --git a/gdb/testsuite/gdb.python/lib-types.exp b/gdb/testsuite/gdb.python/lib-types.exp
index ff14421..6be49e1 100644
--- a/gdb/testsuite/gdb.python/lib-types.exp
+++ b/gdb/testsuite/gdb.python/lib-types.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.
 # It tests the types.py module.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "lib-types"
diff --git a/gdb/testsuite/gdb.python/py-block.exp b/gdb/testsuite/gdb.python/py-block.exp
index 4b995da..413e2e2 100644
--- a/gdb/testsuite/gdb.python/py-block.exp
+++ b/gdb/testsuite/gdb.python/py-block.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-block"
diff --git a/gdb/testsuite/gdb.python/py-breakpoint.exp b/gdb/testsuite/gdb.python/py-breakpoint.exp
index 8ed3742..f3d409e 100644
--- a/gdb/testsuite/gdb.python/py-breakpoint.exp
+++ b/gdb/testsuite/gdb.python/py-breakpoint.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-breakpoint"
diff --git a/gdb/testsuite/gdb.python/py-cmd.exp b/gdb/testsuite/gdb.python/py-cmd.exp
index 976adf6..fc7cac0 100644
--- a/gdb/testsuite/gdb.python/py-cmd.exp
+++ b/gdb/testsuite/gdb.python/py-cmd.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # for defining new GDB commands in Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 # Start with a fresh gdb.
diff --git a/gdb/testsuite/gdb.python/py-events.exp b/gdb/testsuite/gdb.python/py-events.exp
index 0715d3c..18d3380 100644
--- a/gdb/testsuite/gdb.python/py-events.exp
+++ b/gdb/testsuite/gdb.python/py-events.exp
@@ -17,10 +17,6 @@ if [target_info exists use_gdb_stub] {
     return 0
 }

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set libfile "py-events-shlib"
diff --git a/gdb/testsuite/gdb.python/py-evsignal.exp b/gdb/testsuite/gdb.python/py-evsignal.exp
index 35abddc..d3f819a 100644
--- a/gdb/testsuite/gdb.python/py-evsignal.exp
+++ b/gdb/testsuite/gdb.python/py-evsignal.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if {[is_remote target]} {
     # RuntimeError: Could not find event thread
     kfail "python/12966" "Signal Thread 3"
diff --git a/gdb/testsuite/gdb.python/py-evthreads.exp b/gdb/testsuite/gdb.python/py-evthreads.exp
index 2139c9a..8b540bd 100644
--- a/gdb/testsuite/gdb.python/py-evthreads.exp
+++ b/gdb/testsuite/gdb.python/py-evthreads.exp
@@ -13,10 +13,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if {[is_remote target]} {
     # RuntimeError: Could not find event thread
     kfail "python/12966" "Run to breakpoint 1"
diff --git a/gdb/testsuite/gdb.python/py-finish-breakpoint.exp b/gdb/testsuite/gdb.python/py-finish-breakpoint.exp
index 96ff971..c601e85 100644
--- a/gdb/testsuite/gdb.python/py-finish-breakpoint.exp
+++ b/gdb/testsuite/gdb.python/py-finish-breakpoint.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if {[skip_shlib_tests]} {
 	untested py-finish-breakpoint.exp
     return 0
diff --git a/gdb/testsuite/gdb.python/py-finish-breakpoint2.exp b/gdb/testsuite/gdb.python/py-finish-breakpoint2.exp
index 9e65d6c..3174be1 100644
--- a/gdb/testsuite/gdb.python/py-finish-breakpoint2.exp
+++ b/gdb/testsuite/gdb.python/py-finish-breakpoint2.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-finish-breakpoint2"
diff --git a/gdb/testsuite/gdb.python/py-frame.exp b/gdb/testsuite/gdb.python/py-frame.exp
index f3cb069..83ff8fe 100644
--- a/gdb/testsuite/gdb.python/py-frame.exp
+++ b/gdb/testsuite/gdb.python/py-frame.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-frame"
diff --git a/gdb/testsuite/gdb.python/py-function.exp b/gdb/testsuite/gdb.python/py-function.exp
index f813254..b0b35b7 100644
--- a/gdb/testsuite/gdb.python/py-function.exp
+++ b/gdb/testsuite/gdb.python/py-function.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing convenience functions to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 # Start with a fresh gdb.
diff --git a/gdb/testsuite/gdb.python/py-inferior.exp b/gdb/testsuite/gdb.python/py-inferior.exp
index 6838138..ef737a4 100644
--- a/gdb/testsuite/gdb.python/py-inferior.exp
+++ b/gdb/testsuite/gdb.python/py-inferior.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing inferiors to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-inferior"
diff --git a/gdb/testsuite/gdb.python/py-infthread.exp b/gdb/testsuite/gdb.python/py-infthread.exp
index 756a7d3..5fa508f 100644
--- a/gdb/testsuite/gdb.python/py-infthread.exp
+++ b/gdb/testsuite/gdb.python/py-infthread.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing inferior threads to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-infthread"
diff --git a/gdb/testsuite/gdb.python/py-objfile-script.exp b/gdb/testsuite/gdb.python/py-objfile-script.exp
index 2d6260c..4963206 100644
--- a/gdb/testsuite/gdb.python/py-objfile-script.exp
+++ b/gdb/testsuite/gdb.python/py-objfile-script.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests automagic loading of
 # -gdb.py scripts.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile "py-objfile-script"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.python/py-objfile.exp b/gdb/testsuite/gdb.python/py-objfile.exp
index ca74718..c277c59 100644
--- a/gdb/testsuite/gdb.python/py-objfile.exp
+++ b/gdb/testsuite/gdb.python/py-objfile.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the program space
 # support in Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-objfile"
diff --git a/gdb/testsuite/gdb.python/py-parameter.exp b/gdb/testsuite/gdb.python/py-parameter.exp
index 2985d68..08538ea 100644
--- a/gdb/testsuite/gdb.python/py-parameter.exp
+++ b/gdb/testsuite/gdb.python/py-parameter.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.
 # It tests gdb.parameter and gdb.Parameter.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 # Start with a fresh gdb.
diff --git a/gdb/testsuite/gdb.python/py-pp-maint.exp b/gdb/testsuite/gdb.python/py-pp-maint.exp
index 1a2b213..3115b56 100644
--- a/gdb/testsuite/gdb.python/py-pp-maint.exp
+++ b/gdb/testsuite/gdb.python/py-pp-maint.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests Python-based
 # pretty-printing for the CLI.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if [is_remote host] {
     untested "py-pp-maint.exp can only be run locally"
     return -1
diff --git a/gdb/testsuite/gdb.python/py-prettyprint.exp b/gdb/testsuite/gdb.python/py-prettyprint.exp
index dc4116b..e61422a 100644
--- a/gdb/testsuite/gdb.python/py-prettyprint.exp
+++ b/gdb/testsuite/gdb.python/py-prettyprint.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests Python-based
 # pretty-printing for the CLI.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-prettyprint"
diff --git a/gdb/testsuite/gdb.python/py-progspace.exp b/gdb/testsuite/gdb.python/py-progspace.exp
index 1d08325..c53cf37 100644
--- a/gdb/testsuite/gdb.python/py-progspace.exp
+++ b/gdb/testsuite/gdb.python/py-progspace.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the program space
 # support in Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile "py-progspace"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.python/py-prompt.exp b/gdb/testsuite/gdb.python/py-prompt.exp
index 4d71090..eacb074 100644
--- a/gdb/testsuite/gdb.python/py-prompt.exp
+++ b/gdb/testsuite/gdb.python/py-prompt.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # for defining the prompt in Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile "py-prompt"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.python/py-section-script.exp b/gdb/testsuite/gdb.python/py-section-script.exp
index 56fd792..9846ce8 100644
--- a/gdb/testsuite/gdb.python/py-section-script.exp
+++ b/gdb/testsuite/gdb.python/py-section-script.exp
@@ -29,10 +29,6 @@ if {![istarget *-*-linux*]
     return
 }

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile "py-section-script"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.python/py-symbol.exp b/gdb/testsuite/gdb.python/py-symbol.exp
index aa952fb..b0e73c3 100644
--- a/gdb/testsuite/gdb.python/py-symbol.exp
+++ b/gdb/testsuite/gdb.python/py-symbol.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-symbol"
diff --git a/gdb/testsuite/gdb.python/py-symtab.exp b/gdb/testsuite/gdb.python/py-symtab.exp
index 1e55fd3..f64cb57 100644
--- a/gdb/testsuite/gdb.python/py-symtab.exp
+++ b/gdb/testsuite/gdb.python/py-symtab.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-symbol"
diff --git a/gdb/testsuite/gdb.python/py-template.exp b/gdb/testsuite/gdb.python/py-template.exp
index 5fc8234..8805611 100644
--- a/gdb/testsuite/gdb.python/py-template.exp
+++ b/gdb/testsuite/gdb.python/py-template.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if { [skip_cplus_tests] } { continue }

 set testfile "py-template"
diff --git a/gdb/testsuite/gdb.python/py-type.exp b/gdb/testsuite/gdb.python/py-type.exp
index 93990a9..e4729ad 100644
--- a/gdb/testsuite/gdb.python/py-type.exp
+++ b/gdb/testsuite/gdb.python/py-type.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # of exposing types to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-type"
diff --git a/gdb/testsuite/gdb.python/py-value.exp b/gdb/testsuite/gdb.python/py-value.exp
index 038361e..c9d8c97 100644
--- a/gdb/testsuite/gdb.python/py-value.exp
+++ b/gdb/testsuite/gdb.python/py-value.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "py-value"
diff --git a/gdb/testsuite/gdb.python/python.exp b/gdb/testsuite/gdb.python/python.exp
index 42036df..2708dcc 100644
--- a/gdb/testsuite/gdb.python/python.exp
+++ b/gdb/testsuite/gdb.python/python.exp
@@ -16,10 +16,6 @@
 # This file is part of the GDB testsuite.  It tests the mechanism
 # exposing values to Python.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib gdb-python.exp

 set testfile "python"
diff --git a/gdb/testsuite/gdb.reverse/i386-precsave.exp b/gdb/testsuite/gdb.reverse/i386-precsave.exp
index a627223..760225f 100644
--- a/gdb/testsuite/gdb.reverse/i386-precsave.exp
+++ b/gdb/testsuite/gdb.reverse/i386-precsave.exp
@@ -24,10 +24,6 @@ if ![supports_process_record] {
     return
 }

-if $tracelevel {
-    strace $tracelevel
-}
-

 if ![istarget "i?86-*linux*"] then {
     verbose "Skipping i386 reverse tests."
diff --git a/gdb/testsuite/gdb.reverse/i386-reverse.exp b/gdb/testsuite/gdb.reverse/i386-reverse.exp
index e85905d..8a4e9b3 100644
--- a/gdb/testsuite/gdb.reverse/i386-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/i386-reverse.exp
@@ -23,10 +23,6 @@ if ![supports_reverse] {
     return
 }

-if $tracelevel {
-    strace $tracelevel
-}
-

 if ![istarget "i?86-*linux*"] then {
     verbose "Skipping i386 reverse tests."
diff --git a/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp b/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp
index 530b2aa..0b0f7cc 100644
--- a/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp
@@ -23,10 +23,6 @@ if ![supports_reverse] {
     return
 }

-if $tracelevel {
-    strace $tracelevel
-}
-

 if ![istarget "*86*-*linux*"] then {
     verbose "Skipping i386 reverse tests."
diff --git a/gdb/testsuite/gdb.reverse/i387-env-reverse.exp b/gdb/testsuite/gdb.reverse/i387-env-reverse.exp
index 097df64..0a105fd 100644
--- a/gdb/testsuite/gdb.reverse/i387-env-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/i387-env-reverse.exp
@@ -15,10 +15,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if ![istarget "i?86-*linux*"] then {
     verbose "Skipping i387 reverse float tests."
diff --git a/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp b/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp
index 8660ac9..98bc712 100644
--- a/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/i387-stack-reverse.exp
@@ -15,10 +15,6 @@

 # This file is part of the gdb testsuite.

-if $tracelevel {
-    strace $tracelevel
-}
-

 if ![istarget "i?86-*linux*"] then {
     verbose "Skipping i387 reverse float tests."
diff --git a/gdb/testsuite/gdb.reverse/sigall-precsave.exp b/gdb/testsuite/gdb.reverse/sigall-precsave.exp
index 6916278..8145da2 100644
--- a/gdb/testsuite/gdb.reverse/sigall-precsave.exp
+++ b/gdb/testsuite/gdb.reverse/sigall-precsave.exp
@@ -22,10 +22,6 @@ if ![supports_reverse] {
     return
 }

-if $tracelevel then {
-	strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.reverse/sigall-reverse.exp b/gdb/testsuite/gdb.reverse/sigall-reverse.exp
index 12362de..791233d 100644
--- a/gdb/testsuite/gdb.reverse/sigall-reverse.exp
+++ b/gdb/testsuite/gdb.reverse/sigall-reverse.exp
@@ -22,10 +22,6 @@ if ![supports_reverse] {
     return
 }

-if $tracelevel then {
-	strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.stabs/exclfwd.exp b/gdb/testsuite/gdb.stabs/exclfwd.exp
index 92df6f9..8e81440 100644
--- a/gdb/testsuite/gdb.stabs/exclfwd.exp
+++ b/gdb/testsuite/gdb.stabs/exclfwd.exp
@@ -16,10 +16,6 @@
 # Please email any bugs, comments, and/or additions to this file to:
 # bug-gdb@gnu.org

-if $tracelevel {
-    strace $tracelevel
-}
-
 # If the test directory was not created by configure then skip
 # this test.
 if ![file isdirectory ${objdir}/${subdir}] then {
diff --git a/gdb/testsuite/gdb.stabs/gdb11479.exp b/gdb/testsuite/gdb.stabs/gdb11479.exp
index 1dd70d7..f24d054 100644
--- a/gdb/testsuite/gdb.stabs/gdb11479.exp
+++ b/gdb/testsuite/gdb.stabs/gdb11479.exp
@@ -17,10 +17,6 @@

 # Test GDB stabs problem with qualified parameter of forward types.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "gdb11479"

diff --git a/gdb/testsuite/gdb.stabs/weird.exp b/gdb/testsuite/gdb.stabs/weird.exp
index 1569cdb..80bc284 100644
--- a/gdb/testsuite/gdb.stabs/weird.exp
+++ b/gdb/testsuite/gdb.stabs/weird.exp
@@ -17,10 +17,6 @@
 # Test that GDB properly ignores invalid stabs.
 # Also test that GDB can debug a .o file, and that it doesn't mind
 # a file that's more minimal than what a compiler normally puts out.
-if $tracelevel then {
-	strace $tracelevel
-}
-
 # If the test directory was not created by configure then skip
 # this test.
 if ![file isdirectory ${objdir}/${subdir}] then {
diff --git a/gdb/testsuite/gdb.threads/bp_in_thread.exp b/gdb/testsuite/gdb.threads/bp_in_thread.exp
index ef8cc3f..0ec7054 100644
--- a/gdb/testsuite/gdb.threads/bp_in_thread.exp
+++ b/gdb/testsuite/gdb.threads/bp_in_thread.exp
@@ -18,10 +18,6 @@
 # GDB reported a SIGTRAP signal in a random thread when hitting
 # a breakpoint.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "bp_in_thread"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.threads/gcore-thread.exp b/gdb/testsuite/gdb.threads/gcore-thread.exp
index 62d6af1..dfb2314 100644
--- a/gdb/testsuite/gdb.threads/gcore-thread.exp
+++ b/gdb/testsuite/gdb.threads/gcore-thread.exp
@@ -16,10 +16,6 @@
 # This file was written by Michael Snyder (msnyder@redhat.com)
 # This is a test for the gdb command "generate-core-file".

-if $tracelevel then {
-	strace $tracelevel
-}
-
 # Single-threaded test case
 set testfile "gcore-thread"
 set srcfile  pthreads.c
diff --git a/gdb/testsuite/gdb.threads/hand-call-in-threads.exp b/gdb/testsuite/gdb.threads/hand-call-in-threads.exp
index 707fb44..ba0e74b 100644
--- a/gdb/testsuite/gdb.threads/hand-call-in-threads.exp
+++ b/gdb/testsuite/gdb.threads/hand-call-in-threads.exp
@@ -18,10 +18,6 @@

 set NR_THREADS 4

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "hand-call-in-threads"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.threads/interrupted-hand-call.exp b/gdb/testsuite/gdb.threads/interrupted-hand-call.exp
index 8c22bd3..926c612 100644
--- a/gdb/testsuite/gdb.threads/interrupted-hand-call.exp
+++ b/gdb/testsuite/gdb.threads/interrupted-hand-call.exp
@@ -19,10 +19,6 @@

 set NR_THREADS 4

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "interrupted-hand-call"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.threads/killed.exp b/gdb/testsuite/gdb.threads/killed.exp
index c9c6397..fa99e6e 100644
--- a/gdb/testsuite/gdb.threads/killed.exp
+++ b/gdb/testsuite/gdb.threads/killed.exp
@@ -54,10 +54,6 @@
 # [7]+  Killed                  $D6/gdb/gdb -nw killed
 # $

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "killed"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/linux-dp.exp b/gdb/testsuite/gdb.threads/linux-dp.exp
index b211aa2..d7fa125 100644
--- a/gdb/testsuite/gdb.threads/linux-dp.exp
+++ b/gdb/testsuite/gdb.threads/linux-dp.exp
@@ -33,10 +33,6 @@
 ### killing and restarting
 ### quitting gracefully

-if $tracelevel then {
-	strace $tracelevel
-}
-

 # This only works with Linux configurations.
 if ![istarget *-*-linux-gnu*] then {
diff --git a/gdb/testsuite/gdb.threads/manythreads.exp b/gdb/testsuite/gdb.threads/manythreads.exp
index 1c13b42..42333e6 100644
--- a/gdb/testsuite/gdb.threads/manythreads.exp
+++ b/gdb/testsuite/gdb.threads/manythreads.exp
@@ -16,10 +16,6 @@

 # This file was written by Jeff Johnston. (jjohnstn@redhat.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "manythreads"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/print-threads.exp b/gdb/testsuite/gdb.threads/print-threads.exp
index 97c8cf6..b5a99fe 100644
--- a/gdb/testsuite/gdb.threads/print-threads.exp
+++ b/gdb/testsuite/gdb.threads/print-threads.exp
@@ -20,10 +20,6 @@
 # It tests miscellaneous actions with multiple threads, including
 # handling for thread exit.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "print-threads"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/pthread_cond_wait.exp b/gdb/testsuite/gdb.threads/pthread_cond_wait.exp
index 283545a..fc2942e 100644
--- a/gdb/testsuite/gdb.threads/pthread_cond_wait.exp
+++ b/gdb/testsuite/gdb.threads/pthread_cond_wait.exp
@@ -19,10 +19,6 @@
 # This file verifies that GDB is able to compute a backtrace for a thread
 # being blocked on a call to pthread_cond_wait().

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "pthread_cond_wait"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.threads/pthreads.exp b/gdb/testsuite/gdb.threads/pthreads.exp
index 31008ca..e216993 100644
--- a/gdb/testsuite/gdb.threads/pthreads.exp
+++ b/gdb/testsuite/gdb.threads/pthreads.exp
@@ -16,10 +16,6 @@

 # This file was written by Fred Fish. (fnf@cygnus.com)

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "pthreads"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/schedlock.exp b/gdb/testsuite/gdb.threads/schedlock.exp
index 2c34a89..522559c 100644
--- a/gdb/testsuite/gdb.threads/schedlock.exp
+++ b/gdb/testsuite/gdb.threads/schedlock.exp
@@ -19,10 +19,6 @@
 #
 # This test covers the various forms of "set scheduler-locking".

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "schedlock"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/staticthreads.exp b/gdb/testsuite/gdb.threads/staticthreads.exp
index bb65156..a073d55 100644
--- a/gdb/testsuite/gdb.threads/staticthreads.exp
+++ b/gdb/testsuite/gdb.threads/staticthreads.exp
@@ -18,10 +18,6 @@
 # Based on manythreads written by Jeff Johnston, contributed by Red
 # Hat.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "staticthreads"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/step.exp b/gdb/testsuite/gdb.threads/step.exp
index 6b6d2cc..1f370f0 100644
--- a/gdb/testsuite/gdb.threads/step.exp
+++ b/gdb/testsuite/gdb.threads/step.exp
@@ -33,10 +33,6 @@
 #	catch the fact it continued rather than stepped)


-if $tracelevel then {
-	strace $tracelevel
-}
-
 set program_exited 0

 proc set_bp { where } {
diff --git a/gdb/testsuite/gdb.threads/step2.exp b/gdb/testsuite/gdb.threads/step2.exp
index 42a279b..811f95a 100644
--- a/gdb/testsuite/gdb.threads/step2.exp
+++ b/gdb/testsuite/gdb.threads/step2.exp
@@ -18,10 +18,6 @@
 #


-if $tracelevel then {
-	strace $tracelevel
-}
-
 set program_exited 0

 # A simple and crude test to see that we can step two threads independently
diff --git a/gdb/testsuite/gdb.threads/switch-threads.exp b/gdb/testsuite/gdb.threads/switch-threads.exp
index 7a0e261..1561e5b 100644
--- a/gdb/testsuite/gdb.threads/switch-threads.exp
+++ b/gdb/testsuite/gdb.threads/switch-threads.exp
@@ -23,10 +23,6 @@
 # TODO: we should also test explicitly changing threads with the "thread"
 # command.

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "switch-threads"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.threads/thread-find.exp b/gdb/testsuite/gdb.threads/thread-find.exp
index cce83fc..f39886c 100644
--- a/gdb/testsuite/gdb.threads/thread-find.exp
+++ b/gdb/testsuite/gdb.threads/thread-find.exp
@@ -16,10 +16,6 @@
 # Please email any bugs, comments, and/or additions to this file to:
 # bug-gdb@gnu.org

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "linux-dp"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.threads/thread-specific.exp b/gdb/testsuite/gdb.threads/thread-specific.exp
index d914fe2..6e22dde 100644
--- a/gdb/testsuite/gdb.threads/thread-specific.exp
+++ b/gdb/testsuite/gdb.threads/thread-specific.exp
@@ -17,10 +17,6 @@
 # It tests that the correct breakpoint is reported when we hit a
 # thread-specific breakpoint inserted for several threads.

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "thread-specific"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/thread-unwindonsignal.exp b/gdb/testsuite/gdb.threads/thread-unwindonsignal.exp
index 302a9d1..bacbe4c 100644
--- a/gdb/testsuite/gdb.threads/thread-unwindonsignal.exp
+++ b/gdb/testsuite/gdb.threads/thread-unwindonsignal.exp
@@ -18,10 +18,6 @@

 set NR_THREADS 4

-if $tracelevel then {
-	strace $tracelevel
-}
-
 set testfile "interrupted-hand-call"
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.threads/thread_check.exp b/gdb/testsuite/gdb.threads/thread_check.exp
index 18446ca..1a4526d 100644
--- a/gdb/testsuite/gdb.threads/thread_check.exp
+++ b/gdb/testsuite/gdb.threads/thread_check.exp
@@ -31,10 +31,6 @@
 # - delete all breakpoints
 # - exit gdb.

-if $tracelevel then {
-        strace $tracelevel
-}
-

 set testfile "thread_check"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/thread_events.exp b/gdb/testsuite/gdb.threads/thread_events.exp
index 176c90b..2b69eb8 100644
--- a/gdb/testsuite/gdb.threads/thread_events.exp
+++ b/gdb/testsuite/gdb.threads/thread_events.exp
@@ -33,10 +33,6 @@ if [is_remote target] then {
     return
 }

-if $tracelevel then {
-        strace $tracelevel
-}
-

 set testfile "thread_events"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/threadapply.exp b/gdb/testsuite/gdb.threads/threadapply.exp
index 7ec3f67..a46ceeb 100644
--- a/gdb/testsuite/gdb.threads/threadapply.exp
+++ b/gdb/testsuite/gdb.threads/threadapply.exp
@@ -15,10 +15,6 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.

-if $tracelevel {
-    strace $tracelevel
-}
-

 # This test verifies that a macro using backtrace can be applied to all threads
 # and will continue for each thread even though an error may occur in
diff --git a/gdb/testsuite/gdb.threads/tls-shared.exp b/gdb/testsuite/gdb.threads/tls-shared.exp
index ac3c4c5..f645729 100644
--- a/gdb/testsuite/gdb.threads/tls-shared.exp
+++ b/gdb/testsuite/gdb.threads/tls-shared.exp
@@ -16,10 +16,6 @@
 # tls-shared.exp -- Expect script to test thread local storage in gdb, with
 # shared libraries.

-if $tracelevel then {
-    strace $tracelevel
-}
-
 set testfile tls-main
 set libfile tls-shared
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.threads/watchthreads.exp b/gdb/testsuite/gdb.threads/watchthreads.exp
index d9fc87c..c18505e 100644
--- a/gdb/testsuite/gdb.threads/watchthreads.exp
+++ b/gdb/testsuite/gdb.threads/watchthreads.exp
@@ -17,10 +17,6 @@

 # Check that GDB can support multiple watchpoints across threads.

-if $tracelevel {
-    strace $tracelevel
-}
-

 # This test verifies that a watchpoint is detected in the proper thread
 # so the test is only meaningful on a system with hardware watchpoints.
diff --git a/gdb/testsuite/gdb.threads/watchthreads2.exp b/gdb/testsuite/gdb.threads/watchthreads2.exp
index ef4fa29..aaa3430 100644
--- a/gdb/testsuite/gdb.threads/watchthreads2.exp
+++ b/gdb/testsuite/gdb.threads/watchthreads2.exp
@@ -21,10 +21,6 @@
 set NR_THREADS 4
 set X_INCR_COUNT 10

-if $tracelevel {
-    strace $tracelevel
-}
-

 # This test verifies that a watchpoint is detected in the proper thread
 # so the test is only meaningful on a system with hardware watchpoints.
diff --git a/gdb/testsuite/gdb.trace/actions.exp b/gdb/testsuite/gdb.trace/actions.exp
index e337fb3..18c778a 100644
--- a/gdb/testsuite/gdb.trace/actions.exp
+++ b/gdb/testsuite/gdb.trace/actions.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/ax.exp b/gdb/testsuite/gdb.trace/ax.exp
index 2b2a1cd..aa25f6c 100644
--- a/gdb/testsuite/gdb.trace/ax.exp
+++ b/gdb/testsuite/gdb.trace/ax.exp
@@ -20,10 +20,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/backtrace.exp b/gdb/testsuite/gdb.trace/backtrace.exp
index 07aed30..f683442 100644
--- a/gdb/testsuite/gdb.trace/backtrace.exp
+++ b/gdb/testsuite/gdb.trace/backtrace.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/change-loc.exp b/gdb/testsuite/gdb.trace/change-loc.exp
index ec3c555..451a0e1 100644
--- a/gdb/testsuite/gdb.trace/change-loc.exp
+++ b/gdb/testsuite/gdb.trace/change-loc.exp
@@ -14,10 +14,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if {[skip_shlib_tests]} {
     return 0
 }
diff --git a/gdb/testsuite/gdb.trace/circ.exp b/gdb/testsuite/gdb.trace/circ.exp
index a0c8e8d..61a5235 100644
--- a/gdb/testsuite/gdb.trace/circ.exp
+++ b/gdb/testsuite/gdb.trace/circ.exp
@@ -15,10 +15,6 @@

 load_lib "trace-support.exp"

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "circ"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.trace/collection.exp b/gdb/testsuite/gdb.trace/collection.exp
index c80334b..9398248 100644
--- a/gdb/testsuite/gdb.trace/collection.exp
+++ b/gdb/testsuite/gdb.trace/collection.exp
@@ -15,10 +15,6 @@

 load_lib "trace-support.exp"

-if $tracelevel then {
-	strace $tracelevel
-}
-

 set testfile "collection"
 set srcfile ${testfile}.c
diff --git a/gdb/testsuite/gdb.trace/deltrace.exp b/gdb/testsuite/gdb.trace/deltrace.exp
index 3664d7a..6baf1d2 100644
--- a/gdb/testsuite/gdb.trace/deltrace.exp
+++ b/gdb/testsuite/gdb.trace/deltrace.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/infotrace.exp b/gdb/testsuite/gdb.trace/infotrace.exp
index f8237e7..5a99d16 100644
--- a/gdb/testsuite/gdb.trace/infotrace.exp
+++ b/gdb/testsuite/gdb.trace/infotrace.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/packetlen.exp b/gdb/testsuite/gdb.trace/packetlen.exp
index e9e42b8..ccc4384 100644
--- a/gdb/testsuite/gdb.trace/packetlen.exp
+++ b/gdb/testsuite/gdb.trace/packetlen.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp"

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/passc-dyn.exp b/gdb/testsuite/gdb.trace/passc-dyn.exp
index b8d3a14..1ec120e 100644
--- a/gdb/testsuite/gdb.trace/passc-dyn.exp
+++ b/gdb/testsuite/gdb.trace/passc-dyn.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/passcount.exp b/gdb/testsuite/gdb.trace/passcount.exp
index b91cdbd..a56c846 100644
--- a/gdb/testsuite/gdb.trace/passcount.exp
+++ b/gdb/testsuite/gdb.trace/passcount.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/pending.exp b/gdb/testsuite/gdb.trace/pending.exp
index 3b246c9..9dc8706 100644
--- a/gdb/testsuite/gdb.trace/pending.exp
+++ b/gdb/testsuite/gdb.trace/pending.exp
@@ -14,10 +14,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if {[skip_shlib_tests]} {
     return 0
 }
diff --git a/gdb/testsuite/gdb.trace/report.exp b/gdb/testsuite/gdb.trace/report.exp
index 2d9d785..2f2962a 100644
--- a/gdb/testsuite/gdb.trace/report.exp
+++ b/gdb/testsuite/gdb.trace/report.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/save-trace.exp b/gdb/testsuite/gdb.trace/save-trace.exp
index d0db3a6..e5cada7 100644
--- a/gdb/testsuite/gdb.trace/save-trace.exp
+++ b/gdb/testsuite/gdb.trace/save-trace.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/strace.exp b/gdb/testsuite/gdb.trace/strace.exp
index 5348432..4d6ea10 100644
--- a/gdb/testsuite/gdb.trace/strace.exp
+++ b/gdb/testsuite/gdb.trace/strace.exp
@@ -14,10 +14,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-
 if {[skip_shlib_tests]} {
     return 0
 }
diff --git a/gdb/testsuite/gdb.trace/tfile.exp b/gdb/testsuite/gdb.trace/tfile.exp
index 7e996a4..391dfbb 100644
--- a/gdb/testsuite/gdb.trace/tfile.exp
+++ b/gdb/testsuite/gdb.trace/tfile.exp
@@ -27,10 +27,6 @@ if [target_info exists gdb,nofileio] {
     continue
 }

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/tfind.exp b/gdb/testsuite/gdb.trace/tfind.exp
index 8e9d066..ec0ba11 100644
--- a/gdb/testsuite/gdb.trace/tfind.exp
+++ b/gdb/testsuite/gdb.trace/tfind.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/tracecmd.exp b/gdb/testsuite/gdb.trace/tracecmd.exp
index 10cf27f..1581166 100644
--- a/gdb/testsuite/gdb.trace/tracecmd.exp
+++ b/gdb/testsuite/gdb.trace/tracecmd.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/tsv.exp b/gdb/testsuite/gdb.trace/tsv.exp
index 4fc180d..373bc42 100644
--- a/gdb/testsuite/gdb.trace/tsv.exp
+++ b/gdb/testsuite/gdb.trace/tsv.exp
@@ -15,10 +15,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/while-dyn.exp b/gdb/testsuite/gdb.trace/while-dyn.exp
index 547f0b8..f71f3a4 100644
--- a/gdb/testsuite/gdb.trace/while-dyn.exp
+++ b/gdb/testsuite/gdb.trace/while-dyn.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp"

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.trace/while-stepping.exp b/gdb/testsuite/gdb.trace/while-stepping.exp
index 0ee27fd..0e53815 100644
--- a/gdb/testsuite/gdb.trace/while-stepping.exp
+++ b/gdb/testsuite/gdb.trace/while-stepping.exp
@@ -17,10 +17,6 @@

 load_lib "trace-support.exp";

-if $tracelevel then {
-    strace $tracelevel
-}
-

 gdb_exit
 gdb_start


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]