[PATCH v2 21/37] GDB: testsuite: Guile: Don't return -1 from top-level

[Thiago Jung Bauermann <thiago.bauermann@linaro.org>]

All changes are the result of running:

$ sed -i 's/^    return -1/    return/' *.exp

inside gdb/testsuite/gdb.guile.
---
 gdb/testsuite/gdb.guile/scm-block.exp      | 2 +-
 gdb/testsuite/gdb.guile/scm-breakpoint.exp | 2 +-
 gdb/testsuite/gdb.guile/scm-frame.exp      | 2 +-
 gdb/testsuite/gdb.guile/scm-iterator.exp   | 2 +-
 gdb/testsuite/gdb.guile/scm-progspace.exp  | 2 +-
 gdb/testsuite/gdb.guile/scm-symbol.exp     | 4 ++--
 gdb/testsuite/gdb.guile/types-module.exp   | 2 +-
 7 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/gdb/testsuite/gdb.guile/scm-block.exp b/gdb/testsuite/gdb.guile/scm-block.exp
index 8027dc0ce193..c5e2fd4403bc 100644
--- a/gdb/testsuite/gdb.guile/scm-block.exp
+++ b/gdb/testsuite/gdb.guile/scm-block.exp
@@ -21,11 +21,11 @@ load_lib gdb-guile.exp
 require allow_guile_tests
 
 standard_testfile
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
-    return -1
+    return
 }
 
 if {![gdb_guile_runto_main]} {
     return
 }
diff --git a/gdb/testsuite/gdb.guile/scm-breakpoint.exp b/gdb/testsuite/gdb.guile/scm-breakpoint.exp
index 68744bb87f7f..60764a986c13 100644
--- a/gdb/testsuite/gdb.guile/scm-breakpoint.exp
+++ b/gdb/testsuite/gdb.guile/scm-breakpoint.exp
@@ -21,11 +21,11 @@ load_lib gdb-guile.exp
 require allow_guile_tests
 
 standard_testfile
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
-    return -1
+    return
 }
 
 proc_with_prefix test_bkpt_basic { } {
     global srcfile testfile hex decimal
 
diff --git a/gdb/testsuite/gdb.guile/scm-frame.exp b/gdb/testsuite/gdb.guile/scm-frame.exp
index 8c86b7a8249b..7db24f6e4e9a 100644
--- a/gdb/testsuite/gdb.guile/scm-frame.exp
+++ b/gdb/testsuite/gdb.guile/scm-frame.exp
@@ -21,11 +21,11 @@ load_lib gdb-guile.exp
 require allow_guile_tests
 
 standard_testfile
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
-    return -1
+    return
 }
 
 # The following tests require execution.
 
 if {![gdb_guile_runto_main]} {
diff --git a/gdb/testsuite/gdb.guile/scm-iterator.exp b/gdb/testsuite/gdb.guile/scm-iterator.exp
index 6907ec2d8699..cdbaf20d6995 100644
--- a/gdb/testsuite/gdb.guile/scm-iterator.exp
+++ b/gdb/testsuite/gdb.guile/scm-iterator.exp
@@ -21,11 +21,11 @@ load_lib gdb-guile.exp
 require allow_guile_tests
 
 standard_testfile
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
-    return -1
+    return
 }
 
 if {![gdb_guile_runto_main]} {
     return
 }
diff --git a/gdb/testsuite/gdb.guile/scm-progspace.exp b/gdb/testsuite/gdb.guile/scm-progspace.exp
index 306d08769e8d..3b73ecb82330 100644
--- a/gdb/testsuite/gdb.guile/scm-progspace.exp
+++ b/gdb/testsuite/gdb.guile/scm-progspace.exp
@@ -21,11 +21,11 @@ load_lib gdb-guile.exp
 require allow_guile_tests
 
 standard_testfile
 
 if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
-    return -1
+    return
 }
 
 clean_restart
 
 gdb_install_guile_utils
diff --git a/gdb/testsuite/gdb.guile/scm-symbol.exp b/gdb/testsuite/gdb.guile/scm-symbol.exp
index bed817edcc02..6cd1199e9b28 100644
--- a/gdb/testsuite/gdb.guile/scm-symbol.exp
+++ b/gdb/testsuite/gdb.guile/scm-symbol.exp
@@ -21,11 +21,11 @@ load_lib gdb-guile.exp
 require allow_guile_tests
 
 standard_testfile
 
 if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
-    return -1
+    return
 }
 
 # These tests are done before we call gdb_guile_runto_main so we have to
 # import the gdb module ourselves.
 gdb_install_guile_utils
@@ -136,11 +136,11 @@ gdb_test "guile (print (symbol-symtab t))" "= #<gdb:symtab (.*/)?scm-symbol.c>"
 
 # C++ tests
 # Recompile binary.
 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}-cxx" executable "debug c++"] != "" } {
     untested "failed to compile in C++ mode"
-    return -1
+    return
 }
 
 clean_restart ${::testfile}-cxx
 
 if {![gdb_guile_runto_main]} {
diff --git a/gdb/testsuite/gdb.guile/types-module.exp b/gdb/testsuite/gdb.guile/types-module.exp
index 9693d4b36559..b48a24742ebf 100644
--- a/gdb/testsuite/gdb.guile/types-module.exp
+++ b/gdb/testsuite/gdb.guile/types-module.exp
@@ -25,11 +25,11 @@ standard_testfile .cc
 set flags {}
 lappend flags debug
 lappend flags c++
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $flags] } {
-    return -1
+    return
 }
 
 if {![gdb_guile_runto_main]} {
     return
 }