From: Stephan Rohr <stephan.rohr@intel.com>
Date: Thu, 22 Feb 2024 11:14:29 +0000 (-0800)
Subject: gdb, testsuite: fix TCL error in 'gdb.base/structs.exp'
X-Git-Tag: gdb-16-branchpoint~190
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=c7e0511ae4fba9906b8650a503bee8d3da940dcb;p=thirdparty%2Fbinutils-gdb.git

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 ab68da27efa..99b6aa9daa1 100644
--- 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