From: Tom de Vries <tdevries@suse.de>
Date: Sun, 5 Oct 2025 20:50:09 +0000 (+0200)
Subject: [gdb/testsuite, tclint] Fix lib/gdb-utils.exp
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=543ea4bde0407150fbdc8a779c5b9c356f3249e5;p=thirdparty%2Fbinutils-gdb.git

[gdb/testsuite, tclint] Fix lib/gdb-utils.exp
---

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index e71f2e0c636..088243e4594 100644
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -40,7 +40,6 @@ exclude = [
 "gdb/testsuite/lib/future.exp",
 "gdb/testsuite/lib/gdb.exp",
 "gdb/testsuite/lib/gdbserver-support.exp",
-"gdb/testsuite/lib/gdb-utils.exp",
 "gdb/testsuite/lib/gen-perf-test.exp",
 "gdb/testsuite/lib/mi-support.exp",
 "gdb/testsuite/lib/pascal.exp",
diff --git a/gdb/testsuite/lib/gdb-utils.exp b/gdb/testsuite/lib/gdb-utils.exp
index c24e7ed407a..f4506a1f92a 100644
--- a/gdb/testsuite/lib/gdb-utils.exp
+++ b/gdb/testsuite/lib/gdb-utils.exp
@@ -20,10 +20,10 @@
 
 proc gdb_init_commands {} {
     set commands ""
-    if [target_info exists gdb_init_command] {
+    if {[target_info exists gdb_init_command]} {
 	lappend commands [target_info gdb_init_command]
     }
-    if [target_info exists gdb_init_commands] {
+    if {[target_info exists gdb_init_commands]} {
 	set commands [concat $commands [target_info gdb_init_commands]]
     }
     return $commands
@@ -165,6 +165,7 @@ proc version_compare { l1 op l2 } {
 	if {$v1 == $v2} {
 	    continue
 	}
+	# tclint-disable-next-line unbraced-expr
 	return [expr $v1 $op $v2]
     }