From 5b4d350eab4c1f35c05111e5460b88968e4a297d Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Wed, 17 Sep 2025 06:53:14 +0200 Subject: [PATCH] [gdb/testsuite, tclint] Fix gdb.server some more Running tclint on the test-cases in gdb.server shows a few problems. Fix these. Tested on x86_64-linux. --- gdb/testsuite/gdb.server/inferior-args.exp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/gdb.server/inferior-args.exp b/gdb/testsuite/gdb.server/inferior-args.exp index 9c33874a9e5..18ac5a39f94 100644 --- a/gdb/testsuite/gdb.server/inferior-args.exp +++ b/gdb/testsuite/gdb.server/inferior-args.exp @@ -91,7 +91,7 @@ proc do_test_inner { extended_p with_shell_p escape_p arglist re_list } { gdb_breakpoint main gdb_continue_to_breakpoint main - set expected_len [expr 1 + [llength $re_list]] + set expected_len [expr {1 + [llength $re_list]}] gdb_test "print argc" \ "\\\$$::decimal = $expected_len" "check argc" @@ -100,7 +100,7 @@ proc do_test_inner { extended_p with_shell_p escape_p arglist re_list } { gdb_test "print argv\[$i\]" \ "\\\$$::decimal = $::hex \"$arg\"" \ "check argv\[$i\]" - set i [expr $i + 1] + incr i } } -- 2.47.3