gdb, testsuite: fix TCL error in 'gdb.base/structs.exp'

A failure of 'runto_main' in 'start_structs_test' results in a TCL
error.  The return value of 'start_structs_test' function is evaluated
inside an if conditional clause, which expects a boolean value.  Return
'-1' on failure to avoid the error.

Reviewed-By: Keith Seitz <keiths@redhat.com>
Approved-By: Tom Tromey <tom@tromey.com>

diff --git a/gdb/testsuite/gdb.base/structs.exp b/gdb/testsuite/gdb.base/structs.exp
index ab68da27efa24865d0ad732e05873115d48e115e..99b6aa9daa15c2b33f02484b3cd1117842aff52f 100644 (file)
--- a/gdb/testsuite/gdb.base/structs.exp
+++ b/gdb/testsuite/gdb.base/structs.exp
@@ -68,7 +68,7 @@ proc start_structs_test { types } {
 
     # Advance to main
     if {![runto_main]} {
-       return
+       return -1
     }
 
     # Get the debug format