From: Tom de Vries <tdevries@suse.de>
Date: Wed, 17 Sep 2025 04:53:14 +0000 (+0200)
Subject: [gdb/testsuite, tclint] Fix gdb.server some more
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=5b4d350eab4c1f35c05111e5460b88968e4a297d;p=thirdparty%2Fbinutils-gdb.git

[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.
---

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
     }
 }