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

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

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
 }