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

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

Most changes are the result of running:

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

inside gdb/testsuite/gdb.guile.  The exceptions are in
scm-breakpoint.exp, and are inside procedures whose callers don't use
the return value;
---
 gdb/testsuite/gdb.guile/scm-block.exp      | 2 +-
 gdb/testsuite/gdb.guile/scm-breakpoint.exp | 8 ++++----
 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, 11 insertions(+), 11 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
@@ -23,7 +23,7 @@ require allow_guile_tests
 standard_testfile
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
-    return -1
+    return
 }
 
 if {![gdb_guile_runto_main]} {
diff --git a/gdb/testsuite/gdb.guile/scm-breakpoint.exp b/gdb/testsuite/gdb.guile/scm-breakpoint.exp
index 68744bb87f7f..c0f6f56ff449 100644
--- a/gdb/testsuite/gdb.guile/scm-breakpoint.exp
+++ b/gdb/testsuite/gdb.guile/scm-breakpoint.exp
@@ -23,7 +23,7 @@ require allow_guile_tests
 standard_testfile
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
-    return -1
+    return
 }
 
 proc_with_prefix test_bkpt_basic { } {
@@ -491,7 +491,7 @@ proc_with_prefix test_bkpt_temporary { } {
     clean_restart ${testfile}
 
     if {![gdb_guile_runto_main]} {
-	return 0
+	return
     }
     delete_breakpoints
 
@@ -532,7 +532,7 @@ proc_with_prefix test_bkpt_probe {} {
 
     if { [prepare_for_testing "failed to prepare" ${testfile}-probes \
 	    ${srcfile} {additional_flags=-DUSE_PROBES}] } {
-	return -1
+	return
     }
 
     if {![gdb_guile_runto_main]} {
@@ -571,7 +571,7 @@ proc_with_prefix test_catchpoints {} {
     gdb_test_multiple "catch syscall" "" {
 	-re "The feature \'catch syscall\' is not supported.*\r\n$gdb_prompt $" {
 	    unsupported "catch syscall isn't supported"
-	    return -1
+	    return
 	}
 	-re "Catchpoint ($decimal) \\(any syscall\\)\r\n$gdb_prompt $" {
 	    set num $expect_out(1,string)
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
@@ -23,7 +23,7 @@ require allow_guile_tests
 standard_testfile
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
-    return -1
+    return
 }
 
 # The following tests require execution.
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
@@ -23,7 +23,7 @@ require allow_guile_tests
 standard_testfile
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } {
-    return -1
+    return
 }
 
 if {![gdb_guile_runto_main]} {
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
@@ -23,7 +23,7 @@ require allow_guile_tests
 standard_testfile
 
 if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
-    return -1
+    return
 }
 
 clean_restart
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
@@ -23,7 +23,7 @@ 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
@@ -138,7 +138,7 @@ gdb_test "guile (print (symbol-symtab t))" "= #<gdb:symtab (.*/)?scm-symbol.c>"
 # 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
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
@@ -27,7 +27,7 @@ lappend flags debug
 lappend flags c++
 
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $flags] } {
-    return -1
+    return
 }
 
 if {![gdb_guile_runto_main]} {