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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index e71f2e0c636640b82e6e025859e1c419400b959a..088243e4594ea2d06b7b3bbaeeeb2a3d9a043fb3 100644 (file)
--- 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 c24e7ed407a74071d259d38fc79269c3f711aeb1..f4506a1f92a53f8f8247f56c371d41dfd2829b77 100644 (file)
--- 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]
     }