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

[Tom de Vries]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=9061cd9aa388ecce61dd03b1996939888466c62f

commit 9061cd9aa388ecce61dd03b1996939888466c62f
Author: Tom de Vries <tdevries@suse.de>
Date:   Sun Oct 5 22:50:09 2025 +0200

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

Diff:
---
 gdb/tclint.toml           | 1 -
 gdb/testsuite/lib/ada.exp | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 1d77b080f59..8807c1d2683 100644
--- 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 50067eb2707..04aaee1c1d4 100644
--- 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
 }