From 86c5ec30041d6c2c4b131b4e746702bd7fcc9218 Mon Sep 17 00:00:00 2001 From: Simon Marchi Date: Mon, 15 Dec 2025 16:27:18 -0500 Subject: [PATCH] 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 --- gdb/testsuite/gdb.base/startup-hints.exp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 |" } -- 2.47.3