From: Simon Marchi <simon.marchi@efficios.com>
Date: Mon, 15 Dec 2025 21:27:18 +0000 (-0500)
Subject: gdb/testsuite: fix tcllint errors in gdb.base/startup-hints.exp
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=86c5ec30041d6c2c4b131b4e746702bd7fcc9218;p=thirdparty%2Fbinutils-gdb.git

gdb/testsuite: fix tcllint errors in gdb.base/startup-hints.exp

Fix:

    gdb/testsuite/gdb.base/startup-hints.exp:61:44: expression with substitutions should be enclosed by braces [unbraced-expr]
    gdb/testsuite/gdb.base/startup-hints.exp:64:28: expression with substitutions should be enclosed by braces [unbraced-expr]

Change-Id: Id21ff11ced82b11c11d0eb0d186fe6fc5c4c06c5
---

diff --git a/gdb/testsuite/gdb.base/startup-hints.exp b/gdb/testsuite/gdb.base/startup-hints.exp
index 0addf3769a2..08d1a8fc0e7 100644
--- a/gdb/testsuite/gdb.base/startup-hints.exp
+++ b/gdb/testsuite/gdb.base/startup-hints.exp
@@ -58,10 +58,10 @@ proc build_hint_re { width } {
 
 	# Place the lines into a box, padding with whitespace so that
 	# the sides are correctly aligned.
-	set top_bottom "+[string repeat "-" [expr $width - 2]]+"
+	set top_bottom "+[string repeat "-" [expr {$width - 2}]]+"
 	set lines [list $top_bottom]
 	foreach m $msg {
-	    set space_count [expr $width - 4 - [string length $m]]
+	    set space_count [expr {$width - 4 - [string length $m]}]
 	    set spaces [string repeat " " $space_count]
 	    lappend lines "| $m$spaces |"
 	}