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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 143c6b87a3cdc16b62ecd274058dfcb14c80de44..ef508942881f01bbb273c536267644dd8d8ae21a 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/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 4ebb82599578f906d2237f3eaca5097d6b853ec7..f5780721e0f98788e2811a2423096137382f581e 100644 (file)
--- 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
 }