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

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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 8807c1d2683..9e5fa7e7d83 100644
--- 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 15f59e6b4b6..8ddf53d6243 100644
--- 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