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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 4a77ce9ad89a5e0fdd138ff2cd75d7d6ec8a6733..cc433636a3979d9d22bb9fb15d4a3487387b45c6 100644 (file)
--- 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 cca0ede13b71f7b968721cc33710f92ce977f9a5..68022f9620fd7bdb01c3d81cc2ab2388e04d017d 100644 (file)
--- 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" } {