aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorSimon Marchi <simon.marchi@efficios.com>2022-12-05 16:38:24 -0500
committerSimon Marchi <simon.marchi@efficios.com>2022-12-05 16:38:24 -0500
commit30add7ee24bf88630ee38cd73b6a1dd3aa384999 (patch)
tree31126cc2c4495ec816d449387c35fe90fdeb5f16 /gdb
parent09a5d200e6166522e0d0a9276bd6b2227ac5ace1 (diff)
downloadbinutils-30add7ee24bf88630ee38cd73b6a1dd3aa384999.zip
binutils-30add7ee24bf88630ee38cd73b6a1dd3aa384999.tar.gz
binutils-30add7ee24bf88630ee38cd73b6a1dd3aa384999.tar.bz2
gdb/testsuite: remove perror calls when failing to run
I noticed that when running these two tests in sequence: Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.ada/arrayptr.exp ... ERROR: GDB process no longer exists ERROR: Couldn't run foo-all Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.ada/assign_1.exp ... The results in gdb.sum are: Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.ada/arrayptr.exp ... PASS: gdb.ada/arrayptr.exp: scenario=all: compilation foo.adb ERROR: GDB process no longer exists UNRESOLVED: gdb.ada/arrayptr.exp: scenario=all: gdb_breakpoint: set breakpoint at foo.adb:40 (eof) ERROR: Couldn't run foo-all Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.ada/assign_1.exp ... UNRESOLVED: gdb.ada/assign_1.exp: changing the language to ada PASS: gdb.ada/assign_1.exp: set convenience variable $xxx to 1 The UNRESOLVED for arrayptr.exp is fine, as GDB crashes in that test, while trying to run to main. However, the UNRESOLVED in assign_1.exp doesn't make sense, GDB behaves as expected in that test: (gdb) set lang ada^M (gdb) UNRESOLVED: gdb.ada/assign_1.exp: changing the language to ada print $xxx := 1^M $1 = 1^M (gdb) PASS: gdb.ada/assign_1.exp: set convenience variable $xxx to 1 The problem is that arrayptr.exp calls perror when failing to run to main, then returns. perror makes it so that the next test (as in pass/fail) will be recorded as UNRESOLVED. However, here, the next test (as in pass/fail) is in the next test (as in .exp). Hence the spurious UNRESOLVED in assign_1.exp. These perror when failing to run to X are not really useful, especially since runto records a FAIL on error, by default. Remove all the perrors on runto failure I could find. When there wasn't one already, add a return statement when failing to run, to avoid running the test of the test unnecessarily. I thought of adding a check ran between test (in gdb_finish probably) where we would emit a warning if errcnt > 0, meaning a test quit and left a perror "active". However, reading that variable would poke into the DejaGNU internals, not sure it's a good idea. Change-Id: I2203df6d06e199540b36f56470d1c5f1dc988f7b
Diffstat (limited to 'gdb')
-rw-r--r--gdb/testsuite/gdb.ada/access_tagged_param.exp1
-rw-r--r--gdb/testsuite/gdb.ada/addr_arith.exp1
-rw-r--r--gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp1
-rw-r--r--gdb/testsuite/gdb.ada/arr_arr.exp1
-rw-r--r--gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp1
-rw-r--r--gdb/testsuite/gdb.ada/array_bounds.exp1
-rw-r--r--gdb/testsuite/gdb.ada/arrayptr.exp1
-rw-r--r--gdb/testsuite/gdb.ada/bp_c_mixed_case.exp1
-rw-r--r--gdb/testsuite/gdb.ada/call_pn.exp1
-rw-r--r--gdb/testsuite/gdb.ada/convvar_comp.exp1
-rw-r--r--gdb/testsuite/gdb.ada/disc_arr_bound.exp1
-rw-r--r--gdb/testsuite/gdb.ada/discrete-char.exp1
-rw-r--r--gdb/testsuite/gdb.ada/dot_all.exp1
-rw-r--r--gdb/testsuite/gdb.ada/formatted_ref.exp1
-rw-r--r--gdb/testsuite/gdb.ada/frame_args.exp1
-rw-r--r--gdb/testsuite/gdb.ada/fun_in_declare.exp1
-rw-r--r--gdb/testsuite/gdb.ada/ghost.exp1
-rw-r--r--gdb/testsuite/gdb.ada/info_addr_mixed_case.exp1
-rw-r--r--gdb/testsuite/gdb.ada/local-enum.exp1
-rw-r--r--gdb/testsuite/gdb.ada/minsyms.exp1
-rw-r--r--gdb/testsuite/gdb.ada/mod_from_name.exp1
-rw-r--r--gdb/testsuite/gdb.ada/optim_drec.exp1
-rw-r--r--gdb/testsuite/gdb.ada/rec_comp.exp1
-rw-r--r--gdb/testsuite/gdb.ada/rec_return.exp1
-rw-r--r--gdb/testsuite/gdb.ada/ref_param.exp1
-rw-r--r--gdb/testsuite/gdb.ada/scalar_storage.exp1
-rw-r--r--gdb/testsuite/gdb.ada/set_wstr.exp1
-rw-r--r--gdb/testsuite/gdb.ada/small_reg_param.exp1
-rw-r--r--gdb/testsuite/gdb.ada/str_uninit.exp1
-rw-r--r--gdb/testsuite/gdb.ada/taft_type.exp1
-rw-r--r--gdb/testsuite/gdb.ada/varsize_limit.exp1
-rw-r--r--gdb/testsuite/gdb.ada/whatis_array_val.exp1
-rw-r--r--gdb/testsuite/gdb.ada/widewide.exp1
-rw-r--r--gdb/testsuite/gdb.base/all-bin.exp1
-rw-r--r--gdb/testsuite/gdb.base/arithmet.exp1
-rw-r--r--gdb/testsuite/gdb.base/arrayidx.exp1
-rw-r--r--gdb/testsuite/gdb.base/assign.exp1
-rw-r--r--gdb/testsuite/gdb.base/async.exp1
-rw-r--r--gdb/testsuite/gdb.base/bfp-test.exp1
-rw-r--r--gdb/testsuite/gdb.base/call-ar-st.exp1
-rw-r--r--gdb/testsuite/gdb.base/call-rt-st.exp1
-rw-r--r--gdb/testsuite/gdb.base/call-strs.exp1
-rw-r--r--gdb/testsuite/gdb.base/completion.exp2
-rw-r--r--gdb/testsuite/gdb.base/cond-expr.exp1
-rw-r--r--gdb/testsuite/gdb.base/consecutive.exp1
-rw-r--r--gdb/testsuite/gdb.base/constvars.exp1
-rw-r--r--gdb/testsuite/gdb.base/ctf-constvars.exp1
-rw-r--r--gdb/testsuite/gdb.base/dfp-test.exp1
-rw-r--r--gdb/testsuite/gdb.base/enum_cond.exp1
-rw-r--r--gdb/testsuite/gdb.base/eval-skip.exp1
-rw-r--r--gdb/testsuite/gdb.base/exe-lock.exp1
-rw-r--r--gdb/testsuite/gdb.base/exprs.exp1
-rw-r--r--gdb/testsuite/gdb.base/fileio.exp1
-rw-r--r--gdb/testsuite/gdb.base/float.exp1
-rw-r--r--gdb/testsuite/gdb.base/float128.exp1
-rw-r--r--gdb/testsuite/gdb.base/floatn.exp1
-rw-r--r--gdb/testsuite/gdb.base/frame-args.exp1
-rw-r--r--gdb/testsuite/gdb.base/gdb1821.exp1
-rw-r--r--gdb/testsuite/gdb.base/interrupt.exp1
-rw-r--r--gdb/testsuite/gdb.base/jump.exp1
-rw-r--r--gdb/testsuite/gdb.base/logical.exp1
-rw-r--r--gdb/testsuite/gdb.base/maint.exp2
-rw-r--r--gdb/testsuite/gdb.base/miscexprs.exp1
-rw-r--r--gdb/testsuite/gdb.base/nested-subp1.exp1
-rw-r--r--gdb/testsuite/gdb.base/nested-subp2.exp1
-rw-r--r--gdb/testsuite/gdb.base/nested-subp3.exp1
-rw-r--r--gdb/testsuite/gdb.base/opaque.exp2
-rw-r--r--gdb/testsuite/gdb.base/pc-fp.exp1
-rw-r--r--gdb/testsuite/gdb.base/permissions.exp1
-rw-r--r--gdb/testsuite/gdb.base/pointers.exp1
-rw-r--r--gdb/testsuite/gdb.base/prologue.exp1
-rw-r--r--gdb/testsuite/gdb.base/readnever.exp1
-rw-r--r--gdb/testsuite/gdb.base/relational.exp1
-rw-r--r--gdb/testsuite/gdb.base/setvar.exp1
-rw-r--r--gdb/testsuite/gdb.base/shlib-call.exp2
-rw-r--r--gdb/testsuite/gdb.base/sizeof.exp1
-rw-r--r--gdb/testsuite/gdb.base/store.exp1
-rw-r--r--gdb/testsuite/gdb.base/varargs.exp1
-rw-r--r--gdb/testsuite/gdb.base/volatile.exp1
-rw-r--r--gdb/testsuite/gdb.base/whatis-exp.exp1
-rw-r--r--gdb/testsuite/gdb.cp/ambiguous.exp1
-rw-r--r--gdb/testsuite/gdb.cp/anon-ns.exp1
-rw-r--r--gdb/testsuite/gdb.cp/anon-union.exp1
-rw-r--r--gdb/testsuite/gdb.cp/breakpoint.exp1
-rw-r--r--gdb/testsuite/gdb.cp/bs15503.exp1
-rw-r--r--gdb/testsuite/gdb.cp/casts.exp2
-rw-r--r--gdb/testsuite/gdb.cp/class2.exp1
-rw-r--r--gdb/testsuite/gdb.cp/classes.exp1
-rw-r--r--gdb/testsuite/gdb.cp/constexpr-field.exp1
-rw-r--r--gdb/testsuite/gdb.cp/converts.exp1
-rw-r--r--gdb/testsuite/gdb.cp/ctti.exp1
-rw-r--r--gdb/testsuite/gdb.cp/derivation.exp2
-rw-r--r--gdb/testsuite/gdb.cp/disasm-func-name.exp1
-rw-r--r--gdb/testsuite/gdb.cp/dispcxx.exp1
-rw-r--r--gdb/testsuite/gdb.cp/filename.exp1
-rw-r--r--gdb/testsuite/gdb.cp/fpointer.exp1
-rw-r--r--gdb/testsuite/gdb.cp/gdb1355.exp1
-rw-r--r--gdb/testsuite/gdb.cp/gdb2384.exp1
-rw-r--r--gdb/testsuite/gdb.cp/gdb2495.exp2
-rw-r--r--gdb/testsuite/gdb.cp/impl-this.exp1
-rw-r--r--gdb/testsuite/gdb.cp/inherit.exp3
-rw-r--r--gdb/testsuite/gdb.cp/iostream.exp1
-rw-r--r--gdb/testsuite/gdb.cp/koenig.exp1
-rw-r--r--gdb/testsuite/gdb.cp/local.exp2
-rw-r--r--gdb/testsuite/gdb.cp/m-data.exp1
-rw-r--r--gdb/testsuite/gdb.cp/m-static.exp1
-rw-r--r--gdb/testsuite/gdb.cp/many-args.exp1
-rw-r--r--gdb/testsuite/gdb.cp/mb-ctor.exp1
-rw-r--r--gdb/testsuite/gdb.cp/member-name.exp1
-rw-r--r--gdb/testsuite/gdb.cp/member-ptr.exp1
-rw-r--r--gdb/testsuite/gdb.cp/meth-typedefs.exp1
-rw-r--r--gdb/testsuite/gdb.cp/method.exp1
-rw-r--r--gdb/testsuite/gdb.cp/method2.exp1
-rw-r--r--gdb/testsuite/gdb.cp/namespace-nested-import.exp1
-rw-r--r--gdb/testsuite/gdb.cp/namespace.exp3
-rw-r--r--gdb/testsuite/gdb.cp/nextoverthrow.exp1
-rw-r--r--gdb/testsuite/gdb.cp/nsdecl.exp1
-rw-r--r--gdb/testsuite/gdb.cp/nsimport.exp1
-rw-r--r--gdb/testsuite/gdb.cp/nsnested.exp1
-rw-r--r--gdb/testsuite/gdb.cp/nsnoimports.exp1
-rw-r--r--gdb/testsuite/gdb.cp/nsrecurs.exp1
-rw-r--r--gdb/testsuite/gdb.cp/nsstress.exp1
-rw-r--r--gdb/testsuite/gdb.cp/nsusing.exp1
-rw-r--r--gdb/testsuite/gdb.cp/operator.exp1
-rw-r--r--gdb/testsuite/gdb.cp/oranking.exp1
-rw-r--r--gdb/testsuite/gdb.cp/overload.exp2
-rw-r--r--gdb/testsuite/gdb.cp/ovldbreak.exp1
-rw-r--r--gdb/testsuite/gdb.cp/ovsrch.exp1
-rw-r--r--gdb/testsuite/gdb.cp/pr-1023.exp1
-rw-r--r--gdb/testsuite/gdb.cp/pr-1210.exp1
-rw-r--r--gdb/testsuite/gdb.cp/pr-574.exp1
-rw-r--r--gdb/testsuite/gdb.cp/pr10728.exp1
-rw-r--r--gdb/testsuite/gdb.cp/pr12028.exp1
-rw-r--r--gdb/testsuite/gdb.cp/pr9067.exp1
-rw-r--r--gdb/testsuite/gdb.cp/pr9631.exp1
-rw-r--r--gdb/testsuite/gdb.cp/printmethod.exp1
-rw-r--r--gdb/testsuite/gdb.cp/ptype-flags.exp1
-rw-r--r--gdb/testsuite/gdb.cp/ref-types.exp5
-rw-r--r--gdb/testsuite/gdb.cp/rtti.exp1
-rw-r--r--gdb/testsuite/gdb.cp/rvalue-ref-types.exp1
-rw-r--r--gdb/testsuite/gdb.cp/shadow.exp1
-rw-r--r--gdb/testsuite/gdb.cp/smartp.exp1
-rw-r--r--gdb/testsuite/gdb.cp/static-method.exp1
-rw-r--r--gdb/testsuite/gdb.cp/try_catch.exp1
-rw-r--r--gdb/testsuite/gdb.cp/userdef.exp1
-rw-r--r--gdb/testsuite/gdb.cp/var-tag.exp1
-rw-r--r--gdb/testsuite/gdb.cp/virtbase.exp1
-rw-r--r--gdb/testsuite/gdb.cp/virtbase2.exp1
-rw-r--r--gdb/testsuite/gdb.cp/virtfunc.exp1
-rw-r--r--gdb/testsuite/gdb.cp/virtfunc2.exp1
-rw-r--r--gdb/testsuite/gdb.cp/watch-cp.exp1
-rw-r--r--gdb/testsuite/gdb.dwarf2/count.exp1
-rw-r--r--gdb/testsuite/gdb.dwarf2/dw2-common-block.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/array-element.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/charset.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/common-block.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/complex.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/derived-type-function.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/derived-type-striding.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/derived-type.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/function-calls.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/library-module.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/module.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/multi-dim.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/namelist.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/nested-funcs-2.exp1
-rwxr-xr-xgdb/testsuite/gdb.fortran/nested-funcs.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/ptype-on-functions.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/string-types.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/subarray.exp1
-rw-r--r--gdb/testsuite/gdb.fortran/vla-value.exp1
-rw-r--r--gdb/testsuite/gdb.modula2/multidim.exp1
-rw-r--r--gdb/testsuite/gdb.modula2/unbounded-array.exp1
-rw-r--r--gdb/testsuite/gdb.opt/fortran-string.exp1
-rw-r--r--gdb/testsuite/gdb.python/py-format-string.exp1
-rw-r--r--gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp1
-rw-r--r--gdb/testsuite/gdb.python/py-framefilter.exp2
-rw-r--r--gdb/testsuite/gdb.python/py-objfile-script.exp1
-rw-r--r--gdb/testsuite/gdb.python/py-prettyprint.exp2
-rw-r--r--gdb/testsuite/gdb.python/py-section-script.exp1
-rw-r--r--gdb/testsuite/gdb.python/py-template.exp1
-rw-r--r--gdb/testsuite/gdb.python/py-type.exp1
-rw-r--r--gdb/testsuite/gdb.python/py-value.exp1
-rw-r--r--gdb/testsuite/gdb.stabs/exclfwd.exp1
185 files changed, 4 insertions, 200 deletions
diff --git a/gdb/testsuite/gdb.ada/access_tagged_param.exp b/gdb/testsuite/gdb.ada/access_tagged_param.exp
index 2103e4b..4676cbd 100644
--- a/gdb/testsuite/gdb.ada/access_tagged_param.exp
+++ b/gdb/testsuite/gdb.ada/access_tagged_param.exp
@@ -29,7 +29,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" }
clean_restart ${testfile}
if {![runto "foo"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/addr_arith.exp b/gdb/testsuite/gdb.ada/addr_arith.exp
index 4e3059f..82d2e67 100644
--- a/gdb/testsuite/gdb.ada/addr_arith.exp
+++ b/gdb/testsuite/gdb.ada/addr_arith.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/foo_na07_019.adb]
if {![runto "foo_na07_019.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp
index ac720ff..39e12c6 100644
--- a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp
+++ b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "BREAK" ${testdir}/enum_with_gap_main.adb]
if {![runto "enum_with_gap_main.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/arr_arr.exp b/gdb/testsuite/gdb.ada/arr_arr.exp
index 488eb00..8358aae 100644
--- a/gdb/testsuite/gdb.ada/arr_arr.exp
+++ b/gdb/testsuite/gdb.ada/arr_arr.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp
index 3a6785f..ed1915f 100644
--- a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp
+++ b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp
@@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} {
set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo_q418_043.adb]
if {![runto "foo_q418_043.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}-${scenario}"
return
}
diff --git a/gdb/testsuite/gdb.ada/array_bounds.exp b/gdb/testsuite/gdb.ada/array_bounds.exp
index b68e448..0a897d0 100644
--- a/gdb/testsuite/gdb.ada/array_bounds.exp
+++ b/gdb/testsuite/gdb.ada/array_bounds.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/bar.adb]
if {![runto "bar.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp
index d8429c4..eefd21a 100644
--- a/gdb/testsuite/gdb.ada/arrayptr.exp
+++ b/gdb/testsuite/gdb.ada/arrayptr.exp
@@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} {
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}-${scenario}"
return
}
diff --git a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
index d6eb9f5..98f75f7 100644
--- a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
+++ b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
@@ -47,7 +47,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $options] != "" } {
clean_restart ${testfile}
if {![runto "foo_h731_021"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/call_pn.exp b/gdb/testsuite/gdb.ada/call_pn.exp
index c4f8124..758b64a 100644
--- a/gdb/testsuite/gdb.ada/call_pn.exp
+++ b/gdb/testsuite/gdb.ada/call_pn.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/convvar_comp.exp b/gdb/testsuite/gdb.ada/convvar_comp.exp
index 6908bc2..366ac60 100644
--- a/gdb/testsuite/gdb.ada/convvar_comp.exp
+++ b/gdb/testsuite/gdb.ada/convvar_comp.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
clean_restart ${testfile}
if {![runto "break_me"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/disc_arr_bound.exp b/gdb/testsuite/gdb.ada/disc_arr_bound.exp
index 8cbfe5d..e5155f3 100644
--- a/gdb/testsuite/gdb.ada/disc_arr_bound.exp
+++ b/gdb/testsuite/gdb.ada/disc_arr_bound.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo_n612_026.adb]
if {![runto "foo_n612_026.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/discrete-char.exp b/gdb/testsuite/gdb.ada/discrete-char.exp
index 1d380e4..1896252 100644
--- a/gdb/testsuite/gdb.ada/discrete-char.exp
+++ b/gdb/testsuite/gdb.ada/discrete-char.exp
@@ -29,7 +29,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/main.adb]
if {![runto "main.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/dot_all.exp b/gdb/testsuite/gdb.ada/dot_all.exp
index 6064a7d..0b0eba5 100644
--- a/gdb/testsuite/gdb.ada/dot_all.exp
+++ b/gdb/testsuite/gdb.ada/dot_all.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/formatted_ref.exp b/gdb/testsuite/gdb.ada/formatted_ref.exp
index 19a3265..1d780cc 100644
--- a/gdb/testsuite/gdb.ada/formatted_ref.exp
+++ b/gdb/testsuite/gdb.ada/formatted_ref.exp
@@ -44,7 +44,6 @@ proc get_address { var } {
return $expect_out(1,string)
}
}
- perror "couldn't find address of $var"
return ""
}
diff --git a/gdb/testsuite/gdb.ada/frame_args.exp b/gdb/testsuite/gdb.ada/frame_args.exp
index 9961780..f3fa41f 100644
--- a/gdb/testsuite/gdb.ada/frame_args.exp
+++ b/gdb/testsuite/gdb.ada/frame_args.exp
@@ -31,7 +31,6 @@ set eol "\[\r\n\]+"
set sp "\[ \t\]*"
if {![runto break_me]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/fun_in_declare.exp b/gdb/testsuite/gdb.ada/fun_in_declare.exp
index 4b30a77..a097244 100644
--- a/gdb/testsuite/gdb.ada/fun_in_declare.exp
+++ b/gdb/testsuite/gdb.ada/fun_in_declare.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
clean_restart ${testfile}
if {![runto_main]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/ghost.exp b/gdb/testsuite/gdb.ada/ghost.exp
index 93ab507..412a260 100644
--- a/gdb/testsuite/gdb.ada/ghost.exp
+++ b/gdb/testsuite/gdb.ada/ghost.exp
@@ -28,7 +28,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/main.adb]
if {![runto "main.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp
index d512ef4..4b3277b 100644
--- a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp
+++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/local-enum.exp b/gdb/testsuite/gdb.ada/local-enum.exp
index 908ee73..409ea35 100644
--- a/gdb/testsuite/gdb.ada/local-enum.exp
+++ b/gdb/testsuite/gdb.ada/local-enum.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/local.adb]
if {![runto "local.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/minsyms.exp b/gdb/testsuite/gdb.ada/minsyms.exp
index 7ce2d81..4e97439 100644
--- a/gdb/testsuite/gdb.ada/minsyms.exp
+++ b/gdb/testsuite/gdb.ada/minsyms.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable ""] != "" } {
clean_restart ${testfile}
if {![runto "_ada_foo_qb07_057"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/mod_from_name.exp b/gdb/testsuite/gdb.ada/mod_from_name.exp
index 8eb6156..7ee7d8c 100644
--- a/gdb/testsuite/gdb.ada/mod_from_name.exp
+++ b/gdb/testsuite/gdb.ada/mod_from_name.exp
@@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} {
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}-${scenario}"
return
}
diff --git a/gdb/testsuite/gdb.ada/optim_drec.exp b/gdb/testsuite/gdb.ada/optim_drec.exp
index 823156c..51ad14d 100644
--- a/gdb/testsuite/gdb.ada/optim_drec.exp
+++ b/gdb/testsuite/gdb.ada/optim_drec.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
clean_restart ${testfile}
if {![runto "foo"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/rec_comp.exp b/gdb/testsuite/gdb.ada/rec_comp.exp
index 342fe3a..0c155bc 100644
--- a/gdb/testsuite/gdb.ada/rec_comp.exp
+++ b/gdb/testsuite/gdb.ada/rec_comp.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/bar_o203_012.adb]
if {![runto "bar_o203_012.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/rec_return.exp
index 723244f..d06fae4 100644
--- a/gdb/testsuite/gdb.ada/rec_return.exp
+++ b/gdb/testsuite/gdb.ada/rec_return.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/ref_param.exp b/gdb/testsuite/gdb.ada/ref_param.exp
index 871e755..6f72c91 100644
--- a/gdb/testsuite/gdb.ada/ref_param.exp
+++ b/gdb/testsuite/gdb.ada/ref_param.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
clean_restart ${testfile}
if {![runto pck.adb:20]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/scalar_storage.exp b/gdb/testsuite/gdb.ada/scalar_storage.exp
index 106413e..bfb2fac 100644
--- a/gdb/testsuite/gdb.ada/scalar_storage.exp
+++ b/gdb/testsuite/gdb.ada/scalar_storage.exp
@@ -30,7 +30,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/storage.adb]
if {![runto "storage.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/set_wstr.exp b/gdb/testsuite/gdb.ada/set_wstr.exp
index 97a683d..6c19af3 100644
--- a/gdb/testsuite/gdb.ada/set_wstr.exp
+++ b/gdb/testsuite/gdb.ada/set_wstr.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/a.adb]
if {![runto "a.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/small_reg_param.exp b/gdb/testsuite/gdb.ada/small_reg_param.exp
index cb3c3bf..cac9a5a 100644
--- a/gdb/testsuite/gdb.ada/small_reg_param.exp
+++ b/gdb/testsuite/gdb.ada/small_reg_param.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug optimize=-
clean_restart ${testfile}
if {![runto_main]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/str_uninit.exp b/gdb/testsuite/gdb.ada/str_uninit.exp
index 9686290..30c7bfc 100644
--- a/gdb/testsuite/gdb.ada/str_uninit.exp
+++ b/gdb/testsuite/gdb.ada/str_uninit.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/parse.adb]
if {![runto "parse.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/taft_type.exp b/gdb/testsuite/gdb.ada/taft_type.exp
index a791cd1..e9210cd 100644
--- a/gdb/testsuite/gdb.ada/taft_type.exp
+++ b/gdb/testsuite/gdb.ada/taft_type.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/p.adb]
if {![runto "p.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/varsize_limit.exp b/gdb/testsuite/gdb.ada/varsize_limit.exp
index af5a394..45ab865 100644
--- a/gdb/testsuite/gdb.ada/varsize_limit.exp
+++ b/gdb/testsuite/gdb.ada/varsize_limit.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/vsizelim.adb]
if {![runto "vsizelim.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/whatis_array_val.exp b/gdb/testsuite/gdb.ada/whatis_array_val.exp
index eadd6ed..27febfc 100644
--- a/gdb/testsuite/gdb.ada/whatis_array_val.exp
+++ b/gdb/testsuite/gdb.ada/whatis_array_val.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.ada/widewide.exp b/gdb/testsuite/gdb.ada/widewide.exp
index 34f5967..9db4048 100644
--- a/gdb/testsuite/gdb.ada/widewide.exp
+++ b/gdb/testsuite/gdb.ada/widewide.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
if {![runto "foo.adb:$bp_location"]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.base/all-bin.exp b/gdb/testsuite/gdb.base/all-bin.exp
index 2bb9cfe..b5979a4 100644
--- a/gdb/testsuite/gdb.base/all-bin.exp
+++ b/gdb/testsuite/gdb.base/all-bin.exp
@@ -38,7 +38,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/arithmet.exp b/gdb/testsuite/gdb.base/arithmet.exp
index 4fa2ab2..c1fe169 100644
--- a/gdb/testsuite/gdb.base/arithmet.exp
+++ b/gdb/testsuite/gdb.base/arithmet.exp
@@ -38,7 +38,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug nowarning
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/arrayidx.exp b/gdb/testsuite/gdb.base/arrayidx.exp
index 677e4f0..ad8eed3 100644
--- a/gdb/testsuite/gdb.base/arrayidx.exp
+++ b/gdb/testsuite/gdb.base/arrayidx.exp
@@ -27,7 +27,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debu
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/assign.exp b/gdb/testsuite/gdb.base/assign.exp
index 526e063..8a80b45 100644
--- a/gdb/testsuite/gdb.base/assign.exp
+++ b/gdb/testsuite/gdb.base/assign.exp
@@ -41,7 +41,6 @@ clean_restart ${binfile}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/async.exp b/gdb/testsuite/gdb.base/async.exp
index 7630581..2fdeeb0 100644
--- a/gdb/testsuite/gdb.base/async.exp
+++ b/gdb/testsuite/gdb.base/async.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
# set it up at a breakpoint so we can play with it
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/bfp-test.exp b/gdb/testsuite/gdb.base/bfp-test.exp
index 1741521..b84019e 100644
--- a/gdb/testsuite/gdb.base/bfp-test.exp
+++ b/gdb/testsuite/gdb.base/bfp-test.exp
@@ -26,7 +26,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debu
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/call-ar-st.exp b/gdb/testsuite/gdb.base/call-ar-st.exp
index a5599d7..754ed7c 100644
--- a/gdb/testsuite/gdb.base/call-ar-st.exp
+++ b/gdb/testsuite/gdb.base/call-ar-st.exp
@@ -45,7 +45,6 @@ gdb_test_no_output "set width 0"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp
index 63792ee..40786d8 100644
--- a/gdb/testsuite/gdb.base/call-rt-st.exp
+++ b/gdb/testsuite/gdb.base/call-rt-st.exp
@@ -46,7 +46,6 @@ gdb_test_no_output "set width 0"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/call-strs.exp b/gdb/testsuite/gdb.base/call-strs.exp
index f933581..346d516 100644
--- a/gdb/testsuite/gdb.base/call-strs.exp
+++ b/gdb/testsuite/gdb.base/call-strs.exp
@@ -43,7 +43,6 @@ gdb_test_no_output "set print symbol off"
gdb_test_no_output "set width 0"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp
index 2a46d4f..f8fbf60 100644
--- a/gdb/testsuite/gdb.base/completion.exp
+++ b/gdb/testsuite/gdb.base/completion.exp
@@ -58,7 +58,7 @@ if {[prepare_for_testing "failed to prepare" $testfile \
}
if {![runto_main]} {
- perror "tests suppressed"
+ return
}
set timeout 30
diff --git a/gdb/testsuite/gdb.base/cond-expr.exp b/gdb/testsuite/gdb.base/cond-expr.exp
index 36754f9..34ccac2 100644
--- a/gdb/testsuite/gdb.base/cond-expr.exp
+++ b/gdb/testsuite/gdb.base/cond-expr.exp
@@ -43,7 +43,6 @@ clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/consecutive.exp b/gdb/testsuite/gdb.base/consecutive.exp
index b517b42..fdad00b 100644
--- a/gdb/testsuite/gdb.base/consecutive.exp
+++ b/gdb/testsuite/gdb.base/consecutive.exp
@@ -27,7 +27,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug nowarning
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/constvars.exp b/gdb/testsuite/gdb.base/constvars.exp
index 8d1af0b..40ce0a4 100644
--- a/gdb/testsuite/gdb.base/constvars.exp
+++ b/gdb/testsuite/gdb.base/constvars.exp
@@ -41,7 +41,6 @@ clean_restart ${binfile}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/ctf-constvars.exp b/gdb/testsuite/gdb.base/ctf-constvars.exp
index 4a8307e..cd0198d 100644
--- a/gdb/testsuite/gdb.base/ctf-constvars.exp
+++ b/gdb/testsuite/gdb.base/ctf-constvars.exp
@@ -47,7 +47,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} \
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/dfp-test.exp b/gdb/testsuite/gdb.base/dfp-test.exp
index 0d7314f..3f91358 100644
--- a/gdb/testsuite/gdb.base/dfp-test.exp
+++ b/gdb/testsuite/gdb.base/dfp-test.exp
@@ -31,7 +31,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {quie
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/enum_cond.exp b/gdb/testsuite/gdb.base/enum_cond.exp
index bb5d6c2..cfe5af6 100644
--- a/gdb/testsuite/gdb.base/enum_cond.exp
+++ b/gdb/testsuite/gdb.base/enum_cond.exp
@@ -28,7 +28,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $opts
clean_restart $testfile
if {![runto_main]} {
- perror "could not run to main"
return
}
diff --git a/gdb/testsuite/gdb.base/eval-skip.exp b/gdb/testsuite/gdb.base/eval-skip.exp
index fe6f7f0..baea1de 100644
--- a/gdb/testsuite/gdb.base/eval-skip.exp
+++ b/gdb/testsuite/gdb.base/eval-skip.exp
@@ -43,7 +43,6 @@ clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/exe-lock.exp b/gdb/testsuite/gdb.base/exe-lock.exp
index 1276ec0..c15d8b4 100644
--- a/gdb/testsuite/gdb.base/exe-lock.exp
+++ b/gdb/testsuite/gdb.base/exe-lock.exp
@@ -38,7 +38,6 @@ if { ! [file exists $binfile] } {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/exprs.exp b/gdb/testsuite/gdb.base/exprs.exp
index 7b081ec..5bf03bf 100644
--- a/gdb/testsuite/gdb.base/exprs.exp
+++ b/gdb/testsuite/gdb.base/exprs.exp
@@ -33,7 +33,6 @@ clean_restart ${binfile}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/fileio.exp b/gdb/testsuite/gdb.base/fileio.exp
index 18e429c..95f4b4e 100644
--- a/gdb/testsuite/gdb.base/fileio.exp
+++ b/gdb/testsuite/gdb.base/fileio.exp
@@ -56,7 +56,6 @@ gdb_test_no_output "set print address off"
gdb_test_no_output "set width 0"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/float.exp b/gdb/testsuite/gdb.base/float.exp
index b9c5057..5f17aea 100644
--- a/gdb/testsuite/gdb.base/float.exp
+++ b/gdb/testsuite/gdb.base/float.exp
@@ -30,7 +30,6 @@ if { [prepare_for_testing "failed to prepare" float float.c] } {
# Set it up at a breakpoint so we have its registers.
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/float128.exp b/gdb/testsuite/gdb.base/float128.exp
index a4d94d4..21a1a99 100644
--- a/gdb/testsuite/gdb.base/float128.exp
+++ b/gdb/testsuite/gdb.base/float128.exp
@@ -33,7 +33,6 @@ if { [do_compile] != "" && [do_compile {-mfloat128}] != "" } {
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/floatn.exp b/gdb/testsuite/gdb.base/floatn.exp
index 58be8eb..ec1bfd4 100644
--- a/gdb/testsuite/gdb.base/floatn.exp
+++ b/gdb/testsuite/gdb.base/floatn.exp
@@ -33,7 +33,6 @@ if { [do_compile] != "" && [do_compile {-mfloat128}] != "" } {
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/frame-args.exp b/gdb/testsuite/gdb.base/frame-args.exp
index adc2a9e..1ddb9a0 100644
--- a/gdb/testsuite/gdb.base/frame-args.exp
+++ b/gdb/testsuite/gdb.base/frame-args.exp
@@ -22,7 +22,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debu
clean_restart ${binfile}
if {![runto break_me]} {
- perror "Couldn't run ${testfile}"
return
}
diff --git a/gdb/testsuite/gdb.base/gdb1821.exp b/gdb/testsuite/gdb.base/gdb1821.exp
index 40dcb0c..ea96136 100644
--- a/gdb/testsuite/gdb.base/gdb1821.exp
+++ b/gdb/testsuite/gdb.base/gdb1821.exp
@@ -29,7 +29,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test "print /x bar" "{x__0 = 0x0, y__0 = 0x0, z__1 = 0x0}"
diff --git a/gdb/testsuite/gdb.base/interrupt.exp b/gdb/testsuite/gdb.base/interrupt.exp
index 143116c..fca1772 100644
--- a/gdb/testsuite/gdb.base/interrupt.exp
+++ b/gdb/testsuite/gdb.base/interrupt.exp
@@ -39,7 +39,6 @@ gdb_start
if {![file exists $binfile]} {
- perror "$binfile does not exist."
return 0
} else {
gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.base/jump.exp b/gdb/testsuite/gdb.base/jump.exp
index 527a1ae..2137585 100644
--- a/gdb/testsuite/gdb.base/jump.exp
+++ b/gdb/testsuite/gdb.base/jump.exp
@@ -30,7 +30,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
clean_restart ${binfile}
if {![runto_main]} {
- perror "Couldn't run to main"
return -1
}
diff --git a/gdb/testsuite/gdb.base/logical.exp b/gdb/testsuite/gdb.base/logical.exp
index 25eb071..a0fe2b0 100644
--- a/gdb/testsuite/gdb.base/logical.exp
+++ b/gdb/testsuite/gdb.base/logical.exp
@@ -40,7 +40,6 @@ clean_restart ${binfile}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/maint.exp b/gdb/testsuite/gdb.base/maint.exp
index 981c2f6..0025139 100644
--- a/gdb/testsuite/gdb.base/maint.exp
+++ b/gdb/testsuite/gdb.base/maint.exp
@@ -114,7 +114,7 @@ gdb_test "mt set per off" ".*" "mt set per off for expand-symtabs"
gdb_load ${binfile}
if {![runto_main]} {
- perror "tests suppressed"
+ return
}
# If we're using .gdb_index or .debug_names there will be no psymtabs.
diff --git a/gdb/testsuite/gdb.base/miscexprs.exp b/gdb/testsuite/gdb.base/miscexprs.exp
index 1cf1217..a344a9b 100644
--- a/gdb/testsuite/gdb.base/miscexprs.exp
+++ b/gdb/testsuite/gdb.base/miscexprs.exp
@@ -51,7 +51,6 @@ clean_restart ${binfile}
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/nested-subp1.exp b/gdb/testsuite/gdb.base/nested-subp1.exp
index dc96e97..61f35e0 100644
--- a/gdb/testsuite/gdb.base/nested-subp1.exp
+++ b/gdb/testsuite/gdb.base/nested-subp1.exp
@@ -41,7 +41,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${testcase}.c" \
clean_restart "${testcase}"
if ![runto_main] {
- perror "could not run to main"
return
}
diff --git a/gdb/testsuite/gdb.base/nested-subp2.exp b/gdb/testsuite/gdb.base/nested-subp2.exp
index ac41b55..642d3f3 100644
--- a/gdb/testsuite/gdb.base/nested-subp2.exp
+++ b/gdb/testsuite/gdb.base/nested-subp2.exp
@@ -50,7 +50,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${testcase}.c" \
clean_restart "${testcase}"
if ![runto_main] {
- perror "could not run to main"
return
}
diff --git a/gdb/testsuite/gdb.base/nested-subp3.exp b/gdb/testsuite/gdb.base/nested-subp3.exp
index d0c8583..ae676e4 100644
--- a/gdb/testsuite/gdb.base/nested-subp3.exp
+++ b/gdb/testsuite/gdb.base/nested-subp3.exp
@@ -50,7 +50,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${testcase}.c" \
clean_restart "${testcase}"
if ![runto_main] {
- perror "could not run to main"
return
}
diff --git a/gdb/testsuite/gdb.base/opaque.exp b/gdb/testsuite/gdb.base/opaque.exp
index 4d3f11b..cdf6ba0 100644
--- a/gdb/testsuite/gdb.base/opaque.exp
+++ b/gdb/testsuite/gdb.base/opaque.exp
@@ -111,7 +111,7 @@ gdb_load ${binfile}
# Run to main, where struct foo is incomplete.
if ![runto_main] {
- perror "cannot run to breakpoint at main"
+ return
}
diff --git a/gdb/testsuite/gdb.base/pc-fp.exp b/gdb/testsuite/gdb.base/pc-fp.exp
index 191c842..b75119b 100644
--- a/gdb/testsuite/gdb.base/pc-fp.exp
+++ b/gdb/testsuite/gdb.base/pc-fp.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug nowarning
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/permissions.exp b/gdb/testsuite/gdb.base/permissions.exp
index af6c7f4..28af5c6 100644
--- a/gdb/testsuite/gdb.base/permissions.exp
+++ b/gdb/testsuite/gdb.base/permissions.exp
@@ -82,7 +82,6 @@ gdb_test_no_output "set non-stop off"
gdb_load ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/pointers.exp b/gdb/testsuite/gdb.base/pointers.exp
index 5fb7cf6..b6014b4 100644
--- a/gdb/testsuite/gdb.base/pointers.exp
+++ b/gdb/testsuite/gdb.base/pointers.exp
@@ -40,7 +40,6 @@ clean_restart ${binfile}
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/prologue.exp b/gdb/testsuite/gdb.base/prologue.exp
index 9d5d40a..682ba7d 100644
--- a/gdb/testsuite/gdb.base/prologue.exp
+++ b/gdb/testsuite/gdb.base/prologue.exp
@@ -26,7 +26,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
clean_restart ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/readnever.exp b/gdb/testsuite/gdb.base/readnever.exp
index f475633..60e4d4f 100644
--- a/gdb/testsuite/gdb.base/readnever.exp
+++ b/gdb/testsuite/gdb.base/readnever.exp
@@ -35,7 +35,6 @@ save_vars { GDBFLAGS } {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/relational.exp b/gdb/testsuite/gdb.base/relational.exp
index 98f4379..7359f78 100644
--- a/gdb/testsuite/gdb.base/relational.exp
+++ b/gdb/testsuite/gdb.base/relational.exp
@@ -34,7 +34,6 @@ if { [prepare_for_testing "failed to prepare" relational int-type.c {debug nowar
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/setvar.exp b/gdb/testsuite/gdb.base/setvar.exp
index 673df0a..f05bd80 100644
--- a/gdb/testsuite/gdb.base/setvar.exp
+++ b/gdb/testsuite/gdb.base/setvar.exp
@@ -36,7 +36,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
gdb_test_no_output "set print sevenbit-strings"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/shlib-call.exp b/gdb/testsuite/gdb.base/shlib-call.exp
index 5db6b12..b148e91 100644
--- a/gdb/testsuite/gdb.base/shlib-call.exp
+++ b/gdb/testsuite/gdb.base/shlib-call.exp
@@ -62,7 +62,7 @@ gdb_load_shlib $lib2
if {![runto_main]} {
- perror "C function calling tests suppressed"
+ return
}
diff --git a/gdb/testsuite/gdb.base/sizeof.exp b/gdb/testsuite/gdb.base/sizeof.exp
index 7cdbace..f8bf6a5 100644
--- a/gdb/testsuite/gdb.base/sizeof.exp
+++ b/gdb/testsuite/gdb.base/sizeof.exp
@@ -30,7 +30,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/store.exp b/gdb/testsuite/gdb.base/store.exp
index 6fc22f2..188e507 100644
--- a/gdb/testsuite/gdb.base/store.exp
+++ b/gdb/testsuite/gdb.base/store.exp
@@ -27,7 +27,6 @@ if { [prepare_for_testing "failed to prepare" $executable $srcfile] } {
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/varargs.exp b/gdb/testsuite/gdb.base/varargs.exp
index a7807ea..d6dc56a 100644
--- a/gdb/testsuite/gdb.base/varargs.exp
+++ b/gdb/testsuite/gdb.base/varargs.exp
@@ -59,7 +59,6 @@ if [gdb_skip_stdio_test "varargs.exp"] {
}
if {![runto test]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/volatile.exp b/gdb/testsuite/gdb.base/volatile.exp
index 7fda226..2338473 100644
--- a/gdb/testsuite/gdb.base/volatile.exp
+++ b/gdb/testsuite/gdb.base/volatile.exp
@@ -43,7 +43,6 @@ if { [prepare_for_testing "failed to prepare" volatile constvars.c] } {
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.base/whatis-exp.exp b/gdb/testsuite/gdb.base/whatis-exp.exp
index 132eee7..df13dd1 100644
--- a/gdb/testsuite/gdb.base/whatis-exp.exp
+++ b/gdb/testsuite/gdb.base/whatis-exp.exp
@@ -38,7 +38,6 @@ if { [prepare_for_testing "failed to prepare" whatis-exp int-type.c {debug nowar
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/ambiguous.exp b/gdb/testsuite/gdb.cp/ambiguous.exp
index 0f04668..5d0d2f8 100644
--- a/gdb/testsuite/gdb.cp/ambiguous.exp
+++ b/gdb/testsuite/gdb.cp/ambiguous.exp
@@ -37,7 +37,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/anon-ns.exp b/gdb/testsuite/gdb.cp/anon-ns.exp
index 852d9bc..bab7717 100644
--- a/gdb/testsuite/gdb.cp/anon-ns.exp
+++ b/gdb/testsuite/gdb.cp/anon-ns.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile "$srcfile $srcfile2" {c++
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/anon-union.exp b/gdb/testsuite/gdb.cp/anon-union.exp
index 9f18545..fd51d79 100644
--- a/gdb/testsuite/gdb.cp/anon-union.exp
+++ b/gdb/testsuite/gdb.cp/anon-union.exp
@@ -32,7 +32,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
continue
}
diff --git a/gdb/testsuite/gdb.cp/breakpoint.exp b/gdb/testsuite/gdb.cp/breakpoint.exp
index e1f2d4c..31952b6 100644
--- a/gdb/testsuite/gdb.cp/breakpoint.exp
+++ b/gdb/testsuite/gdb.cp/breakpoint.exp
@@ -33,7 +33,6 @@ proc test_breakpoint {name} {
# Restart the program every time, so that a single failure doesn't
# lead to a cascade.
if {![runto_main]} {
- perror "couldn't run to main when testing ${name}"
return -code continue
} else {
gdb_breakpoint "${name}"
diff --git a/gdb/testsuite/gdb.cp/bs15503.exp b/gdb/testsuite/gdb.cp/bs15503.exp
index f00421a..b50333f 100644
--- a/gdb/testsuite/gdb.cp/bs15503.exp
+++ b/gdb/testsuite/gdb.cp/bs15503.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/casts.exp b/gdb/testsuite/gdb.cp/casts.exp
index 43851d4..f98f844 100644
--- a/gdb/testsuite/gdb.cp/casts.exp
+++ b/gdb/testsuite/gdb.cp/casts.exp
@@ -34,7 +34,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
@@ -182,7 +181,6 @@ if {[prepare_for_testing "failed to prepare" ${testfile}03 $srcfile2 \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/class2.exp b/gdb/testsuite/gdb.cp/class2.exp
index 9392e25..69e9809 100644
--- a/gdb/testsuite/gdb.cp/class2.exp
+++ b/gdb/testsuite/gdb.cp/class2.exp
@@ -35,7 +35,6 @@ gdb_test_no_output "set print object off"
gdb_test_no_output "set print symbol off"
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/classes.exp b/gdb/testsuite/gdb.cp/classes.exp
index beac268..c6d9c05 100644
--- a/gdb/testsuite/gdb.cp/classes.exp
+++ b/gdb/testsuite/gdb.cp/classes.exp
@@ -652,7 +652,6 @@ proc do_tests {} {
gdb_test_no_output "set width 0" ""
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/constexpr-field.exp b/gdb/testsuite/gdb.cp/constexpr-field.exp
index b1ecf13..f534961 100644
--- a/gdb/testsuite/gdb.cp/constexpr-field.exp
+++ b/gdb/testsuite/gdb.cp/constexpr-field.exp
@@ -25,7 +25,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/converts.exp b/gdb/testsuite/gdb.cp/converts.exp
index ea7a2f4..9e4b6ea 100644
--- a/gdb/testsuite/gdb.cp/converts.exp
+++ b/gdb/testsuite/gdb.cp/converts.exp
@@ -22,7 +22,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/ctti.exp b/gdb/testsuite/gdb.cp/ctti.exp
index 4a2012e..aacda45 100644
--- a/gdb/testsuite/gdb.cp/ctti.exp
+++ b/gdb/testsuite/gdb.cp/ctti.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/derivation.exp b/gdb/testsuite/gdb.cp/derivation.exp
index f5d20a0..67ec4c1 100644
--- a/gdb/testsuite/gdb.cp/derivation.exp
+++ b/gdb/testsuite/gdb.cp/derivation.exp
@@ -56,7 +56,6 @@ with_test_prefix "before run" {
# Set it up at a breakpoint so we can play with the variable values.
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
@@ -266,7 +265,6 @@ gdb_test "ptype N::Derived::value_type" "type = int"
# Now run to N::Derived::doit and get the type of "value_type"
if {![runto "N::Derived::doit"]} {
- perror "couldn't run to N::Derived::doit"
return
}
diff --git a/gdb/testsuite/gdb.cp/disasm-func-name.exp b/gdb/testsuite/gdb.cp/disasm-func-name.exp
index 45f18ab..bfc1739 100644
--- a/gdb/testsuite/gdb.cp/disasm-func-name.exp
+++ b/gdb/testsuite/gdb.cp/disasm-func-name.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/dispcxx.exp b/gdb/testsuite/gdb.cp/dispcxx.exp
index 9d2e340..e12b082 100644
--- a/gdb/testsuite/gdb.cp/dispcxx.exp
+++ b/gdb/testsuite/gdb.cp/dispcxx.exp
@@ -22,7 +22,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/filename.exp b/gdb/testsuite/gdb.cp/filename.exp
index 6d97ee5..91ee330 100644
--- a/gdb/testsuite/gdb.cp/filename.exp
+++ b/gdb/testsuite/gdb.cp/filename.exp
@@ -22,7 +22,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/fpointer.exp b/gdb/testsuite/gdb.cp/fpointer.exp
index 5fc9905..b7befe9 100644
--- a/gdb/testsuite/gdb.cp/fpointer.exp
+++ b/gdb/testsuite/gdb.cp/fpointer.exp
@@ -23,7 +23,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/gdb1355.exp b/gdb/testsuite/gdb.cp/gdb1355.exp
index e18bcc1..cd4ee9b 100644
--- a/gdb/testsuite/gdb.cp/gdb1355.exp
+++ b/gdb/testsuite/gdb.cp/gdb1355.exp
@@ -34,7 +34,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/gdb2384.exp b/gdb/testsuite/gdb.cp/gdb2384.exp
index 7fc5a5b..e08ed9c 100644
--- a/gdb/testsuite/gdb.cp/gdb2384.exp
+++ b/gdb/testsuite/gdb.cp/gdb2384.exp
@@ -39,7 +39,6 @@ gdb_load_shlib ${sofile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return -1
}
diff --git a/gdb/testsuite/gdb.cp/gdb2495.exp b/gdb/testsuite/gdb.cp/gdb2495.exp
index 6ade5d9..b2305a1 100644
--- a/gdb/testsuite/gdb.cp/gdb2495.exp
+++ b/gdb/testsuite/gdb.cp/gdb2495.exp
@@ -52,7 +52,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
@@ -97,7 +96,6 @@ gdb_test "p exceptions.throw_function()" \
# Restart the inferior back at main.
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/impl-this.exp b/gdb/testsuite/gdb.cp/impl-this.exp
index 4a11fb2..9ce409e 100644
--- a/gdb/testsuite/gdb.cp/impl-this.exp
+++ b/gdb/testsuite/gdb.cp/impl-this.exp
@@ -52,7 +52,6 @@ with_test_prefix "before run" {
# Run to D::f.
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/inherit.exp b/gdb/testsuite/gdb.cp/inherit.exp
index c3cfefc..e1099fe 100644
--- a/gdb/testsuite/gdb.cp/inherit.exp
+++ b/gdb/testsuite/gdb.cp/inherit.exp
@@ -678,7 +678,6 @@ proc do_tests { } {
gdb_test_no_output "set width 0"
if {![runto_main]} {
- perror "couldn't run to main"
return
}
@@ -689,7 +688,6 @@ proc do_tests { } {
test_ptype_mvi
if {![runto 'inheritance2']} {
- perror "couldn't run to inheritance2"
return
}
@@ -708,7 +706,6 @@ proc do_tests { } {
test_print_anon_union
if { ![runto 'inheritance4'] } {
- perror "couldn't run to inheritance4"
return
}
diff --git a/gdb/testsuite/gdb.cp/iostream.exp b/gdb/testsuite/gdb.cp/iostream.exp
index 5189a0d..aa7c535 100644
--- a/gdb/testsuite/gdb.cp/iostream.exp
+++ b/gdb/testsuite/gdb.cp/iostream.exp
@@ -25,7 +25,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if ![runto_main] {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/koenig.exp b/gdb/testsuite/gdb.cp/koenig.exp
index 912a7ea..60aa130 100644
--- a/gdb/testsuite/gdb.cp/koenig.exp
+++ b/gdb/testsuite/gdb.cp/koenig.exp
@@ -23,7 +23,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/local.exp b/gdb/testsuite/gdb.cp/local.exp
index 351f39f..378a5c3 100644
--- a/gdb/testsuite/gdb.cp/local.exp
+++ b/gdb/testsuite/gdb.cp/local.exp
@@ -39,12 +39,10 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
diff --git a/gdb/testsuite/gdb.cp/m-data.exp b/gdb/testsuite/gdb.cp/m-data.exp
index aca98c7..282b33a 100644
--- a/gdb/testsuite/gdb.cp/m-data.exp
+++ b/gdb/testsuite/gdb.cp/m-data.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/m-static.exp b/gdb/testsuite/gdb.cp/m-static.exp
index 228c120..1acaf13 100644
--- a/gdb/testsuite/gdb.cp/m-static.exp
+++ b/gdb/testsuite/gdb.cp/m-static.exp
@@ -39,7 +39,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/many-args.exp b/gdb/testsuite/gdb.cp/many-args.exp
index aba1e78..c9c02f4 100644
--- a/gdb/testsuite/gdb.cp/many-args.exp
+++ b/gdb/testsuite/gdb.cp/many-args.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if ![runto_main] {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/mb-ctor.exp b/gdb/testsuite/gdb.cp/mb-ctor.exp
index 3bf5ee3..f60d071 100644
--- a/gdb/testsuite/gdb.cp/mb-ctor.exp
+++ b/gdb/testsuite/gdb.cp/mb-ctor.exp
@@ -32,7 +32,6 @@ if {[test_compiler_info {clang-*-*} c++]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/member-name.exp b/gdb/testsuite/gdb.cp/member-name.exp
index 7e413ca..6e3e0f0 100644
--- a/gdb/testsuite/gdb.cp/member-name.exp
+++ b/gdb/testsuite/gdb.cp/member-name.exp
@@ -22,7 +22,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/member-ptr.exp b/gdb/testsuite/gdb.cp/member-ptr.exp
index 8e20c01..abb2091 100644
--- a/gdb/testsuite/gdb.cp/member-ptr.exp
+++ b/gdb/testsuite/gdb.cp/member-ptr.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/meth-typedefs.exp b/gdb/testsuite/gdb.cp/meth-typedefs.exp
index c11e991..b357e36 100644
--- a/gdb/testsuite/gdb.cp/meth-typedefs.exp
+++ b/gdb/testsuite/gdb.cp/meth-typedefs.exp
@@ -41,7 +41,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/method.exp b/gdb/testsuite/gdb.cp/method.exp
index 07a17b0..7a3227b 100644
--- a/gdb/testsuite/gdb.cp/method.exp
+++ b/gdb/testsuite/gdb.cp/method.exp
@@ -44,7 +44,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/method2.exp b/gdb/testsuite/gdb.cp/method2.exp
index ad0129c..c657b38 100644
--- a/gdb/testsuite/gdb.cp/method2.exp
+++ b/gdb/testsuite/gdb.cp/method2.exp
@@ -27,7 +27,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/namespace-nested-import.exp b/gdb/testsuite/gdb.cp/namespace-nested-import.exp
index a08a4e0..43c6fcf 100644
--- a/gdb/testsuite/gdb.cp/namespace-nested-import.exp
+++ b/gdb/testsuite/gdb.cp/namespace-nested-import.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
# been imported.
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/namespace.exp b/gdb/testsuite/gdb.cp/namespace.exp
index 2f3a766..f2eb2a4 100644
--- a/gdb/testsuite/gdb.cp/namespace.exp
+++ b/gdb/testsuite/gdb.cp/namespace.exp
@@ -47,12 +47,10 @@ gdb_test "show lang" "auto; currently c\\+\\+.*"
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
@@ -193,7 +191,6 @@ gdb_test_multiple $test $test {
# namespace.
if {![runto "C::D::marker2"]} {
- perror "couldn't run to marker2"
return
}
diff --git a/gdb/testsuite/gdb.cp/nextoverthrow.exp b/gdb/testsuite/gdb.cp/nextoverthrow.exp
index 58e54f8..fe6445c 100644
--- a/gdb/testsuite/gdb.cp/nextoverthrow.exp
+++ b/gdb/testsuite/gdb.cp/nextoverthrow.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/nsdecl.exp b/gdb/testsuite/gdb.cp/nsdecl.exp
index d1859f8..1b12917 100644
--- a/gdb/testsuite/gdb.cp/nsdecl.exp
+++ b/gdb/testsuite/gdb.cp/nsdecl.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/nsimport.exp b/gdb/testsuite/gdb.cp/nsimport.exp
index 56a74e7..61a8d6d 100644
--- a/gdb/testsuite/gdb.cp/nsimport.exp
+++ b/gdb/testsuite/gdb.cp/nsimport.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
# the function.
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/nsnested.exp b/gdb/testsuite/gdb.cp/nsnested.exp
index 01aba76..d9e5b6f 100644
--- a/gdb/testsuite/gdb.cp/nsnested.exp
+++ b/gdb/testsuite/gdb.cp/nsnested.exp
@@ -21,7 +21,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/nsnoimports.exp b/gdb/testsuite/gdb.cp/nsnoimports.exp
index 11bcdae..e5d3186 100644
--- a/gdb/testsuite/gdb.cp/nsnoimports.exp
+++ b/gdb/testsuite/gdb.cp/nsnoimports.exp
@@ -21,7 +21,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/nsrecurs.exp b/gdb/testsuite/gdb.cp/nsrecurs.exp
index 30eab17..b1592ff 100644
--- a/gdb/testsuite/gdb.cp/nsrecurs.exp
+++ b/gdb/testsuite/gdb.cp/nsrecurs.exp
@@ -21,7 +21,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/nsstress.exp b/gdb/testsuite/gdb.cp/nsstress.exp
index 2ff8879..3fbca5d 100644
--- a/gdb/testsuite/gdb.cp/nsstress.exp
+++ b/gdb/testsuite/gdb.cp/nsstress.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
continue
}
diff --git a/gdb/testsuite/gdb.cp/nsusing.exp b/gdb/testsuite/gdb.cp/nsusing.exp
index f767b6b..18bb282 100644
--- a/gdb/testsuite/gdb.cp/nsusing.exp
+++ b/gdb/testsuite/gdb.cp/nsusing.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
# Test printing of namespace imported within the function.
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
continue
}
diff --git a/gdb/testsuite/gdb.cp/operator.exp b/gdb/testsuite/gdb.cp/operator.exp
index b5609ba..54c8cbb 100644
--- a/gdb/testsuite/gdb.cp/operator.exp
+++ b/gdb/testsuite/gdb.cp/operator.exp
@@ -23,7 +23,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/oranking.exp b/gdb/testsuite/gdb.cp/oranking.exp
index b9aa27d..07c3f79 100644
--- a/gdb/testsuite/gdb.cp/oranking.exp
+++ b/gdb/testsuite/gdb.cp/oranking.exp
@@ -22,7 +22,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/overload.exp b/gdb/testsuite/gdb.cp/overload.exp
index 4dcd0ef..fde9d73 100644
--- a/gdb/testsuite/gdb.cp/overload.exp
+++ b/gdb/testsuite/gdb.cp/overload.exp
@@ -35,7 +35,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
# Set it up at a breakpoint so we can play with the variable values.
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
continue
}
@@ -360,7 +359,6 @@ with_test_prefix "list all overloads" {
}
if {![runto 'XXX::marker2']} {
- perror "couldn't run to XXX::marker2"
continue
}
diff --git a/gdb/testsuite/gdb.cp/ovldbreak.exp b/gdb/testsuite/gdb.cp/ovldbreak.exp
index 0ed9eae..94b58a5 100644
--- a/gdb/testsuite/gdb.cp/ovldbreak.exp
+++ b/gdb/testsuite/gdb.cp/ovldbreak.exp
@@ -39,7 +39,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/ovsrch.exp b/gdb/testsuite/gdb.cp/ovsrch.exp
index 767d12b..32ac7ce 100644
--- a/gdb/testsuite/gdb.cp/ovsrch.exp
+++ b/gdb/testsuite/gdb.cp/ovsrch.exp
@@ -63,7 +63,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/pr-1023.exp b/gdb/testsuite/gdb.cp/pr-1023.exp
index 390459a..0cd310b 100644
--- a/gdb/testsuite/gdb.cp/pr-1023.exp
+++ b/gdb/testsuite/gdb.cp/pr-1023.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/pr-1210.exp b/gdb/testsuite/gdb.cp/pr-1210.exp
index c74e7aa..5fabf6f 100644
--- a/gdb/testsuite/gdb.cp/pr-1210.exp
+++ b/gdb/testsuite/gdb.cp/pr-1210.exp
@@ -30,7 +30,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/pr-574.exp b/gdb/testsuite/gdb.cp/pr-574.exp
index 32c7f63..06b96cc 100644
--- a/gdb/testsuite/gdb.cp/pr-574.exp
+++ b/gdb/testsuite/gdb.cp/pr-574.exp
@@ -39,7 +39,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile $flags]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/pr10728.exp b/gdb/testsuite/gdb.cp/pr10728.exp
index 8051eae..07db26a 100644
--- a/gdb/testsuite/gdb.cp/pr10728.exp
+++ b/gdb/testsuite/gdb.cp/pr10728.exp
@@ -43,7 +43,6 @@ if { [gdb_compile "${tfx}.o ${tfy}.o" ${binfile} executable {debug c++}] != ""
clean_restart $binfile
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/pr12028.exp b/gdb/testsuite/gdb.cp/pr12028.exp
index c9583bd..50c46e5 100644
--- a/gdb/testsuite/gdb.cp/pr12028.exp
+++ b/gdb/testsuite/gdb.cp/pr12028.exp
@@ -22,7 +22,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
continue
}
diff --git a/gdb/testsuite/gdb.cp/pr9067.exp b/gdb/testsuite/gdb.cp/pr9067.exp
index 417abb1..79d18b5 100644
--- a/gdb/testsuite/gdb.cp/pr9067.exp
+++ b/gdb/testsuite/gdb.cp/pr9067.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/pr9631.exp b/gdb/testsuite/gdb.cp/pr9631.exp
index c98e3e9..612feaa 100644
--- a/gdb/testsuite/gdb.cp/pr9631.exp
+++ b/gdb/testsuite/gdb.cp/pr9631.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/printmethod.exp b/gdb/testsuite/gdb.cp/printmethod.exp
index 94aaba3..1530a40 100644
--- a/gdb/testsuite/gdb.cp/printmethod.exp
+++ b/gdb/testsuite/gdb.cp/printmethod.exp
@@ -32,7 +32,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/ptype-flags.exp b/gdb/testsuite/gdb.cp/ptype-flags.exp
index b04a4a4..8c42de8 100644
--- a/gdb/testsuite/gdb.cp/ptype-flags.exp
+++ b/gdb/testsuite/gdb.cp/ptype-flags.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/ref-types.exp b/gdb/testsuite/gdb.cp/ref-types.exp
index 8135a28..fd99ea9 100644
--- a/gdb/testsuite/gdb.cp/ref-types.exp
+++ b/gdb/testsuite/gdb.cp/ref-types.exp
@@ -32,12 +32,10 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
@@ -58,12 +56,10 @@ proc gdb_start_again {} {
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
if {![runto 'marker1']} {
- perror "couldn't run to marker1"
return
}
@@ -129,7 +125,6 @@ gdb_test "print ras\[3\]" ".\[0-9\]* = 3" "print value of ras\[3\]"
if {![runto 'f']} {
- perror "couldn't run to f"
return
}
diff --git a/gdb/testsuite/gdb.cp/rtti.exp b/gdb/testsuite/gdb.cp/rtti.exp
index 77cc6b6..c72777b 100644
--- a/gdb/testsuite/gdb.cp/rtti.exp
+++ b/gdb/testsuite/gdb.cp/rtti.exp
@@ -40,7 +40,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/rvalue-ref-types.exp b/gdb/testsuite/gdb.cp/rvalue-ref-types.exp
index 6056af4..e38393d 100644
--- a/gdb/testsuite/gdb.cp/rvalue-ref-types.exp
+++ b/gdb/testsuite/gdb.cp/rvalue-ref-types.exp
@@ -62,7 +62,6 @@ gdb_test "print rrat\[3\]" ".$decimal = 3" "print value of rrat\[3\]"
if {![runto 'f']} {
- perror "couldn't run to f"
return
}
diff --git a/gdb/testsuite/gdb.cp/shadow.exp b/gdb/testsuite/gdb.cp/shadow.exp
index 641feed..4ddfe38 100644
--- a/gdb/testsuite/gdb.cp/shadow.exp
+++ b/gdb/testsuite/gdb.cp/shadow.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/smartp.exp b/gdb/testsuite/gdb.cp/smartp.exp
index c94dfae..75faefd 100644
--- a/gdb/testsuite/gdb.cp/smartp.exp
+++ b/gdb/testsuite/gdb.cp/smartp.exp
@@ -22,7 +22,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
############################################
if {![runto_main]} {
- perror "couldn't run to breakpoint main"
return
}
diff --git a/gdb/testsuite/gdb.cp/static-method.exp b/gdb/testsuite/gdb.cp/static-method.exp
index efe5604..1499955 100644
--- a/gdb/testsuite/gdb.cp/static-method.exp
+++ b/gdb/testsuite/gdb.cp/static-method.exp
@@ -65,7 +65,6 @@ gdb_test_multiple $test $test {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/try_catch.exp b/gdb/testsuite/gdb.cp/try_catch.exp
index 437309a..25c2040 100644
--- a/gdb/testsuite/gdb.cp/try_catch.exp
+++ b/gdb/testsuite/gdb.cp/try_catch.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/userdef.exp b/gdb/testsuite/gdb.cp/userdef.exp
index 5eba7e2..0245a6e 100644
--- a/gdb/testsuite/gdb.cp/userdef.exp
+++ b/gdb/testsuite/gdb.cp/userdef.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/var-tag.exp b/gdb/testsuite/gdb.cp/var-tag.exp
index e69f7c9..3a04dc6 100644
--- a/gdb/testsuite/gdb.cp/var-tag.exp
+++ b/gdb/testsuite/gdb.cp/var-tag.exp
@@ -82,7 +82,6 @@ with_test_prefix "before start" {
# Run to main and test again.
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/virtbase.exp b/gdb/testsuite/gdb.cp/virtbase.exp
index b026cfb..1b83daf 100644
--- a/gdb/testsuite/gdb.cp/virtbase.exp
+++ b/gdb/testsuite/gdb.cp/virtbase.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/virtbase2.exp b/gdb/testsuite/gdb.cp/virtbase2.exp
index d58403b..d55b024 100644
--- a/gdb/testsuite/gdb.cp/virtbase2.exp
+++ b/gdb/testsuite/gdb.cp/virtbase2.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.cp/virtfunc.exp b/gdb/testsuite/gdb.cp/virtfunc.exp
index 23088f7..8c2dc51 100644
--- a/gdb/testsuite/gdb.cp/virtfunc.exp
+++ b/gdb/testsuite/gdb.cp/virtfunc.exp
@@ -274,7 +274,6 @@ proc do_tests {} {
gdb_test_no_output "set width 0" ""
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
test_ptype_of_classes
diff --git a/gdb/testsuite/gdb.cp/virtfunc2.exp b/gdb/testsuite/gdb.cp/virtfunc2.exp
index 3ec0530..b2798b3 100644
--- a/gdb/testsuite/gdb.cp/virtfunc2.exp
+++ b/gdb/testsuite/gdb.cp/virtfunc2.exp
@@ -29,7 +29,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.cp/watch-cp.exp b/gdb/testsuite/gdb.cp/watch-cp.exp
index 8ef64bb..62bedde 100644
--- a/gdb/testsuite/gdb.cp/watch-cp.exp
+++ b/gdb/testsuite/gdb.cp/watch-cp.exp
@@ -22,7 +22,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
}
if {![runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.dwarf2/count.exp b/gdb/testsuite/gdb.dwarf2/count.exp
index 663114c..f930062 100644
--- a/gdb/testsuite/gdb.dwarf2/count.exp
+++ b/gdb/testsuite/gdb.dwarf2/count.exp
@@ -147,7 +147,6 @@ clean_restart ${testfile}
set GDBFLAGS $saved_gdbflags
if ![runto_main] {
- perror "couldn't run to main"
return -1
}
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp b/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp
index 12c2f4c..5e04cf9 100644
--- a/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp
+++ b/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp
@@ -38,7 +38,6 @@ if { [prepare_for_testing "failed to prepare" "${testfile}" $srcfile \
}
if {![runto MAIN__]} {
- perror "couldn't run to breakpoint MAIN__"
return
}
diff --git a/gdb/testsuite/gdb.fortran/array-element.exp b/gdb/testsuite/gdb.fortran/array-element.exp
index f5d313c..9c8798d 100644
--- a/gdb/testsuite/gdb.fortran/array-element.exp
+++ b/gdb/testsuite/gdb.fortran/array-element.exp
@@ -27,7 +27,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
}
if {![runto sub_]} {
- perror "couldn't run to breakpoint sub_"
return
}
diff --git a/gdb/testsuite/gdb.fortran/charset.exp b/gdb/testsuite/gdb.fortran/charset.exp
index ae3e34c..5238faa 100644
--- a/gdb/testsuite/gdb.fortran/charset.exp
+++ b/gdb/testsuite/gdb.fortran/charset.exp
@@ -31,7 +31,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug addi
}
if ![fortran_runto_main] {
- perror "Couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/common-block.exp b/gdb/testsuite/gdb.fortran/common-block.exp
index b8cbfb8..8509283 100644
--- a/gdb/testsuite/gdb.fortran/common-block.exp
+++ b/gdb/testsuite/gdb.fortran/common-block.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" ${testfile} \
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp
index 896e01c..b6fc955 100644
--- a/gdb/testsuite/gdb.fortran/complex.exp
+++ b/gdb/testsuite/gdb.fortran/complex.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90 quiet
}
if {![fortran_runto_main]} {
- perror "Couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/derived-type-function.exp b/gdb/testsuite/gdb.fortran/derived-type-function.exp
index 3adabd6..08d8ad4 100644
--- a/gdb/testsuite/gdb.fortran/derived-type-function.exp
+++ b/gdb/testsuite/gdb.fortran/derived-type-function.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/derived-type-striding.exp b/gdb/testsuite/gdb.fortran/derived-type-striding.exp
index bf868f5..3d45a63 100644
--- a/gdb/testsuite/gdb.fortran/derived-type-striding.exp
+++ b/gdb/testsuite/gdb.fortran/derived-type-striding.exp
@@ -30,7 +30,6 @@ if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \
}
if {![runto [gdb_get_line_number "post_init"]]} {
- perror "couldn't run to breakpoint post_init"
return
}
diff --git a/gdb/testsuite/gdb.fortran/derived-type.exp b/gdb/testsuite/gdb.fortran/derived-type.exp
index 63ec0c8..5187e3e 100644
--- a/gdb/testsuite/gdb.fortran/derived-type.exp
+++ b/gdb/testsuite/gdb.fortran/derived-type.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/function-calls.exp b/gdb/testsuite/gdb.fortran/function-calls.exp
index ea58e62..f240bd7 100644
--- a/gdb/testsuite/gdb.fortran/function-calls.exp
+++ b/gdb/testsuite/gdb.fortran/function-calls.exp
@@ -40,7 +40,6 @@ with_complaints 5 {
}
if {![runto [gdb_get_line_number "post_init"]]} {
- perror "couldn't run to breakpoint post_init"
return
}
diff --git a/gdb/testsuite/gdb.fortran/library-module.exp b/gdb/testsuite/gdb.fortran/library-module.exp
index a6ed67d..08fb605 100644
--- a/gdb/testsuite/gdb.fortran/library-module.exp
+++ b/gdb/testsuite/gdb.fortran/library-module.exp
@@ -40,7 +40,6 @@ clean_restart $testfile
gdb_load_shlib $libfile
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp
index b9c9d6b..47fbf74 100644
--- a/gdb/testsuite/gdb.fortran/module.exp
+++ b/gdb/testsuite/gdb.fortran/module.exp
@@ -35,7 +35,6 @@ gdb_test "print mod1::var_const" " = 20" "fully qualified name of DW_TAG_constan
gdb_test_no_output "set auto-solib-add off"
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/multi-dim.exp b/gdb/testsuite/gdb.fortran/multi-dim.exp
index fc517b6..cafb12d 100644
--- a/gdb/testsuite/gdb.fortran/multi-dim.exp
+++ b/gdb/testsuite/gdb.fortran/multi-dim.exp
@@ -26,7 +26,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug f90}
}
if ![fortran_runto_main] {
- perror "Couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/namelist.exp b/gdb/testsuite/gdb.fortran/namelist.exp
index 46f24f4..8e2c9be 100644
--- a/gdb/testsuite/gdb.fortran/namelist.exp
+++ b/gdb/testsuite/gdb.fortran/namelist.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp b/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
index 2a83144..9aaf57d 100644
--- a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
+++ b/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
@@ -109,7 +109,6 @@ proc do_bp_tests {with_src_prefix_p with_nest_prefix_p} {
# Break on a contained function and run to it.
if {![runto ${src_prefix}[gdb_get_line_number "pre_init"]]} {
- perror "couldn't run to breakpoint pre_init"
return
}
diff --git a/gdb/testsuite/gdb.fortran/nested-funcs.exp b/gdb/testsuite/gdb.fortran/nested-funcs.exp
index 237e09e..b065336 100755
--- a/gdb/testsuite/gdb.fortran/nested-funcs.exp
+++ b/gdb/testsuite/gdb.fortran/nested-funcs.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
continue
}
diff --git a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
index 6751b50..156e4fe 100644
--- a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
+++ b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
@@ -25,7 +25,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp b/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp
index d458e1a..ccb4d14 100644
--- a/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp
+++ b/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90}]} {
}
if {![runto [gdb_get_line_number "post_truth_table_init"]]} {
- perror "couldn't run to breakpoint post_truth_table_init"
return
}
diff --git a/gdb/testsuite/gdb.fortran/string-types.exp b/gdb/testsuite/gdb.fortran/string-types.exp
index 7031c07..a39d55c 100644
--- a/gdb/testsuite/gdb.fortran/string-types.exp
+++ b/gdb/testsuite/gdb.fortran/string-types.exp
@@ -27,7 +27,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
}
if { ![fortran_runto_main] } {
- perror "Couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/subarray.exp b/gdb/testsuite/gdb.fortran/subarray.exp
index 88d47f9..776872e 100644
--- a/gdb/testsuite/gdb.fortran/subarray.exp
+++ b/gdb/testsuite/gdb.fortran/subarray.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
gdb_test_no_output "set auto-solib-add off"
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.fortran/vla-value.exp b/gdb/testsuite/gdb.fortran/vla-value.exp
index 36ba0b4..a920fb8 100644
--- a/gdb/testsuite/gdb.fortran/vla-value.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value.exp
@@ -131,7 +131,6 @@ gdb_test "print vla1(9, 9, 9)" "no such vector element \\\(vector not allocated\
clean_restart ${testfile}
if {![fortran_runto_main]} {
- perror "couldn't run to main"
return
}
gdb_breakpoint [gdb_get_line_number "vla2-allocated"]
diff --git a/gdb/testsuite/gdb.modula2/multidim.exp b/gdb/testsuite/gdb.modula2/multidim.exp
index 06a74d4..349f762 100644
--- a/gdb/testsuite/gdb.modula2/multidim.exp
+++ b/gdb/testsuite/gdb.modula2/multidim.exp
@@ -25,7 +25,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
}
if {![runto here]} {
- perror "couldn't run to breakpoint 'here'"
return
}
diff --git a/gdb/testsuite/gdb.modula2/unbounded-array.exp b/gdb/testsuite/gdb.modula2/unbounded-array.exp
index e75f199..ab43842 100644
--- a/gdb/testsuite/gdb.modula2/unbounded-array.exp
+++ b/gdb/testsuite/gdb.modula2/unbounded-array.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug quiet}]}
}
if {![runto foo]} {
- perror "couldn't run to breakpoint foo"
return
}
diff --git a/gdb/testsuite/gdb.opt/fortran-string.exp b/gdb/testsuite/gdb.opt/fortran-string.exp
index 5798ad0..323605e 100644
--- a/gdb/testsuite/gdb.opt/fortran-string.exp
+++ b/gdb/testsuite/gdb.opt/fortran-string.exp
@@ -28,7 +28,6 @@ if { [prepare_for_testing "prepare for testing" ${testfile} ${srcfile} \
}
if {![runto f]} {
- perror "couldn't run to f"
return
}
diff --git a/gdb/testsuite/gdb.python/py-format-string.exp b/gdb/testsuite/gdb.python/py-format-string.exp
index 26b18ce..02065ea 100644
--- a/gdb/testsuite/gdb.python/py-format-string.exp
+++ b/gdb/testsuite/gdb.python/py-format-string.exp
@@ -53,7 +53,6 @@ proc prepare_gdb {exefile} {
gdb_load ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp b/gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp
index 81c4340..b9c8c30 100644
--- a/gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp
+++ b/gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp
@@ -52,7 +52,6 @@ gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*" \
"Test auto-load had loaded python scripts"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test_no_output "set python print-stack full" \
diff --git a/gdb/testsuite/gdb.python/py-framefilter.exp b/gdb/testsuite/gdb.python/py-framefilter.exp
index 794d1c2..9a97b65 100644
--- a/gdb/testsuite/gdb.python/py-framefilter.exp
+++ b/gdb/testsuite/gdb.python/py-framefilter.exp
@@ -53,7 +53,6 @@ gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*" \
"Test auto-load had loaded python scripts"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
gdb_test_no_output "set python print-stack full" \
@@ -311,7 +310,6 @@ gdb_load ${binfile}
gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*" \
"Set autoload path for no debug info tests"
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.python/py-objfile-script.exp b/gdb/testsuite/gdb.python/py-objfile-script.exp
index 8dec58e..4c28f95 100644
--- a/gdb/testsuite/gdb.python/py-objfile-script.exp
+++ b/gdb/testsuite/gdb.python/py-objfile-script.exp
@@ -43,7 +43,6 @@ gdb_load ${binfile}
gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*"
if ![runto_main] {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.python/py-prettyprint.exp b/gdb/testsuite/gdb.python/py-prettyprint.exp
index 46a346c..a96a96d 100644
--- a/gdb/testsuite/gdb.python/py-prettyprint.exp
+++ b/gdb/testsuite/gdb.python/py-prettyprint.exp
@@ -43,7 +43,6 @@ proc run_lang_tests {exefile lang} {
gdb_load ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
@@ -199,7 +198,6 @@ gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.python/py-section-script.exp b/gdb/testsuite/gdb.python/py-section-script.exp
index e1a60db..d9dc0be 100644
--- a/gdb/testsuite/gdb.python/py-section-script.exp
+++ b/gdb/testsuite/gdb.python/py-section-script.exp
@@ -115,7 +115,6 @@ gdb_test "info auto-load python-scripts no-script-matches-this" \
"No auto-load scripts matching no-script-matches-this."
if ![runto_main] {
- perror "couldn't run to main"
return
}
diff --git a/gdb/testsuite/gdb.python/py-template.exp b/gdb/testsuite/gdb.python/py-template.exp
index 25f3f52..c2fd510 100644
--- a/gdb/testsuite/gdb.python/py-template.exp
+++ b/gdb/testsuite/gdb.python/py-template.exp
@@ -44,7 +44,6 @@ proc test_template_arg {exefile type} {
}
gdb_load ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
# There is no executable code in main(), so we are where we want to be
diff --git a/gdb/testsuite/gdb.python/py-type.exp b/gdb/testsuite/gdb.python/py-type.exp
index fbe56f3..594c974 100644
--- a/gdb/testsuite/gdb.python/py-type.exp
+++ b/gdb/testsuite/gdb.python/py-type.exp
@@ -42,7 +42,6 @@ proc restart_gdb {exefile} {
gdb_load ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
}
diff --git a/gdb/testsuite/gdb.python/py-value.exp b/gdb/testsuite/gdb.python/py-value.exp
index c04c98d..a2e42dc 100644
--- a/gdb/testsuite/gdb.python/py-value.exp
+++ b/gdb/testsuite/gdb.python/py-value.exp
@@ -416,7 +416,6 @@ proc test_subscript_regression {exefile lang} {
clean_restart ${exefile}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}
diff --git a/gdb/testsuite/gdb.stabs/exclfwd.exp b/gdb/testsuite/gdb.stabs/exclfwd.exp
index 201c13d..ed2e546 100644
--- a/gdb/testsuite/gdb.stabs/exclfwd.exp
+++ b/gdb/testsuite/gdb.stabs/exclfwd.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
}
if {![runto_main]} {
- perror "couldn't run to breakpoint"
return
}