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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index d177891e476afa039b6665fdb9180c3b56b19ca0..4a77ce9ad89a5e0fdd138ff2cd75d7d6ec8a6733 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -44,7 +44,6 @@ exclude = [
 "gdb/testsuite/lib/pascal.exp",
 "gdb/testsuite/lib/perftest.exp",
 "gdb/testsuite/lib/prelink-support.exp",
-"gdb/testsuite/lib/selftest-support.exp",
 "gdb/testsuite/lib/trace-support.exp",
 # IGNORE (document reason in trailing comment):
 "gdb/testsuite/gdb.stabs", # To be removed.

diff --git a/gdb/testsuite/lib/selftest-support.exp b/gdb/testsuite/lib/selftest-support.exp
index af8ec6fb9820e5cf99d78533c4ebe9f021292401..d0905eb20f281555711957e53a7a88075d716352 100644 (file)
--- a/gdb/testsuite/lib/selftest-support.exp
+++ b/gdb/testsuite/lib/selftest-support.exp
@@ -64,11 +64,11 @@ proc _selftest_has_libtool {} {
 # wrapper.
 
 proc selftest_libtool_get_real_gdb_executable { executable } {
-    if [_selftest_gdb_is_installed] {
+    if {[_selftest_gdb_is_installed]} {
        return $executable
     }
 
-    if ![_selftest_has_libtool] {
+    if {![_selftest_has_libtool]} {
        return $executable
     }
 
@@ -206,14 +206,14 @@ proc selftest_prepare {} {
 
     # ... or seemingly testing with a cross debugger?  Likely GDB
     # wouldn't be able to debug itself then...
-    if ![isnative] {
+    if {![isnative]} {
        return
     }
 
     # ... or with a stub-like server?  I.e., gdbserver + "target
     # remote"?  In that case we won't be able to pass command line
     # arguments to GDB, and _selftest_setup wants to do exactly that.
-    if [use_gdb_stub] {
+    if {[use_gdb_stub]} {
        return
     }