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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 8807c1d2683fc6e8c431d52f6bed9883435a54f3..9e5fa7e7d83d4795571d1d324a3f8a63da1d2f9f 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -37,7 +37,6 @@ exclude = [
 "gdb/testsuite/lib/aarch64-scalable.exp",
 "gdb/testsuite/lib/cache.exp",
 "gdb/testsuite/lib/check-test-names.exp",
-"gdb/testsuite/lib/completion-support.exp",
 "gdb/testsuite/lib/cp-support.exp",
 "gdb/testsuite/lib/debuginfod-support.exp",
 "gdb/testsuite/lib/d-support.exp",

diff --git a/gdb/testsuite/lib/completion-support.exp b/gdb/testsuite/lib/completion-support.exp
index 15f59e6b4b65abce6bc3856714ca3bc29274df8b..8ddf53d6243b9ada484736f5a8385da274ff30db 100644 (file)
--- a/gdb/testsuite/lib/completion-support.exp
+++ b/gdb/testsuite/lib/completion-support.exp
@@ -400,7 +400,7 @@ proc index_after {needle haystack} {
     if {$start == -1} {
        error "could not find \"$needle\" in \"$haystack\""
     }
-    return [expr $start + [string length $needle]]
+    return [expr {$start + [string length $needle]}]
 }
 
 # Create a breakpoint using BREAK_COMMAND, and return the number