From 9ba5cdc8680d25789ca507a73a3ed91741ff646c Mon Sep 17 00:00:00 2001
From: Tom de Vries <tdevries@suse.de>
Date: Sat, 18 Jul 2026 00:30:57 +0200
Subject: [PATCH] [gdb/testsuite] Fix tclint errors

Fix tclint errors in a few files.
---
 gdb/testsuite/gdb.base/var-shadowing.exp  | 4 ++--
 gdb/testsuite/gdb.mi/mi-var-shadowing.exp | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/gdb/testsuite/gdb.base/var-shadowing.exp b/gdb/testsuite/gdb.base/var-shadowing.exp
index 119b8c39d4a..502cbad11f6 100644
--- a/gdb/testsuite/gdb.base/var-shadowing.exp
+++ b/gdb/testsuite/gdb.base/var-shadowing.exp
@@ -14,11 +14,11 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 standard_testfile
-if [prepare_for_testing "failed to prepare" $testfile $srcfile] {
+if {[prepare_for_testing "failed to prepare" $testfile $srcfile]} {
     return
 }
 
-if ![runto_main] {
+if {![runto_main]} {
     return
 }
 
diff --git a/gdb/testsuite/gdb.mi/mi-var-shadowing.exp b/gdb/testsuite/gdb.mi/mi-var-shadowing.exp
index 3c0dbc2884c..48a313be290 100644
--- a/gdb/testsuite/gdb.mi/mi-var-shadowing.exp
+++ b/gdb/testsuite/gdb.mi/mi-var-shadowing.exp
@@ -17,14 +17,14 @@ load_lib mi-support.exp
 set MIFLAGS "-i=mi"
 
 gdb_exit
-if [mi_gdb_start] {
+if {[mi_gdb_start]} {
     continue
 }
 
 standard_testfile
 
 set opts {debug}
-if [build_executable ${testfile}.exp ${testfile} ${srcfile} $opts] {
+if {[build_executable ${testfile}.exp ${testfile} ${srcfile} $opts]} {
     return
 }