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

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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 143c6b87a3c..ef508942881 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/cache.exp",
 "gdb/testsuite/lib/check-test-names.exp",
 "gdb/testsuite/lib/cp-support.exp",
 "gdb/testsuite/lib/debuginfod-support.exp",
diff --git a/gdb/testsuite/lib/cache.exp b/gdb/testsuite/lib/cache.exp
index 4ebb8259957..f5780721e0f 100644
--- a/gdb/testsuite/lib/cache.exp
+++ b/gdb/testsuite/lib/cache.exp
@@ -278,6 +278,7 @@ proc gdb_do_cache {name args} {
 proc gdb_caching_proc {name arglist body} {
     # Define the underlying proc that we'll call.
     set real_name gdb_real__$name
+    # tclint-disable-next-line command-args
     proc $real_name $arglist $body
 
     # Define the advertised proc.
@@ -286,5 +287,6 @@ proc gdb_caching_proc {name arglist body} {
 	lappend caching_proc_body $$arg
     }
     set caching_proc_body [join $caching_proc_body]
+    # tclint-disable-next-line command-args
     proc $name $arglist $caching_proc_body
 }