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

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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 4a77ce9ad89..cc433636a39 100644
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -42,7 +42,6 @@ exclude = [
 "gdb/testsuite/lib/gen-perf-test.exp",
 "gdb/testsuite/lib/mi-support.exp",
 "gdb/testsuite/lib/pascal.exp",
-"gdb/testsuite/lib/perftest.exp",
 "gdb/testsuite/lib/prelink-support.exp",
 "gdb/testsuite/lib/trace-support.exp",
 # IGNORE (document reason in trailing comment):
diff --git a/gdb/testsuite/lib/perftest.exp b/gdb/testsuite/lib/perftest.exp
index cca0ede13b7..68022f9620f 100644
--- a/gdb/testsuite/lib/perftest.exp
+++ b/gdb/testsuite/lib/perftest.exp
@@ -90,11 +90,12 @@ namespace eval PerfTest {
     proc assemble {compile startup run} {
 	global GDB_PERFTEST_MODE
 
-	if ![info exists GDB_PERFTEST_MODE] {
+	if {![info exists GDB_PERFTEST_MODE]} {
 	    return
 	}
 
 	if { [string compare $GDB_PERFTEST_MODE "run"] != 0 } {
+	    # tclint-disable-next-line command-args
 	    if { [eval compile {$compile}] } {
 		untested "failed to compile"
 		return
@@ -108,7 +109,8 @@ namespace eval PerfTest {
 
 	verbose -log "PerfTest::assemble, startup ..."
 
-	if [eval startup {$startup}] {
+	# tclint-disable-next-line command-args
+	if {[eval startup {$startup}]} {
 	    fail "startup"
 	    return
 	}
@@ -119,7 +121,8 @@ namespace eval PerfTest {
 
 	verbose -log "PerfTest::assemble, run ..."
 
-	if [eval run {$run}] {
+	# tclint-disable-next-line command-args
+	if {[eval run {$run}]} {
 	    fail "run"
 	}
 
@@ -134,7 +137,7 @@ namespace eval PerfTest {
 proc allow_perf_tests { } {
     global GDB_PERFTEST_MODE
 
-    if [info exists GDB_PERFTEST_MODE] {
+    if {[info exists GDB_PERFTEST_MODE]} {
 	if { "$GDB_PERFTEST_MODE" != "compile"
 	     && "$GDB_PERFTEST_MODE" != "run"
 	     && "$GDB_PERFTEST_MODE" != "both" } {