[gdb/testsuite, tclint] Fix lib/ada.exp

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 1d77b080f59eeb5208dadfc3bf42466f3a389ef7..8807c1d2683fc6e8c431d52f6bed9883435a54f3 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -35,7 +35,6 @@ exclude = [
 "gdb/testsuite/config",
 "gdb/testsuite/lib/aarch64.exp",
 "gdb/testsuite/lib/aarch64-scalable.exp",
-"gdb/testsuite/lib/ada.exp",
 "gdb/testsuite/lib/cache.exp",
 "gdb/testsuite/lib/check-test-names.exp",
 "gdb/testsuite/lib/completion-support.exp",

diff --git a/gdb/testsuite/lib/ada.exp b/gdb/testsuite/lib/ada.exp
index 50067eb2707c5a0729df97b18c1edbe8b68c23d7..04aaee1c1d4612b9d1201dd97839511add7568ee 100644 (file)
--- a/gdb/testsuite/lib/ada.exp
+++ b/gdb/testsuite/lib/ada.exp
@@ -111,7 +111,7 @@ proc gdb_compile_ada_1 {source dest type options} {
     # gdb_compile to determine whether the build has succeeded or not.
     # We therefore simply check whether the dest file has been created
     # or not. Unless not present, the build has succeeded.
-    if [file exists $dest] { set result "" }
+    if {[file exists $dest]} { set result "" }
     return $result
 }