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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 1edad001ba60544203bb3fb38db6815beb47f59f..565dbaae701bf719146ac1e34e535b40df4caed5 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -47,7 +47,6 @@ exclude = [
 "gdb/testsuite/lib/pascal.exp",
 "gdb/testsuite/lib/perftest.exp",
 "gdb/testsuite/lib/prelink-support.exp",
-"gdb/testsuite/lib/prompt.exp",
 "gdb/testsuite/lib/rust-support.exp",
 "gdb/testsuite/lib/selftest-support.exp",
 "gdb/testsuite/lib/trace-support.exp",

diff --git a/gdb/testsuite/lib/prompt.exp b/gdb/testsuite/lib/prompt.exp
index 7fa131bf20f6880b4f9fd31277f4bd9685647cc0..0473d69e624ad64bcca3a2ad37832b1913938b33 100644 (file)
--- a/gdb/testsuite/lib/prompt.exp
+++ b/gdb/testsuite/lib/prompt.exp
@@ -44,11 +44,11 @@ proc default_prompt_gdb_start { } {
     verbose "Spawning $GDB $INTERNAL_GDBFLAGS $GDBFLAGS"
     gdb_write_cmd_file "$GDB $INTERNAL_GDBFLAGS $GDBFLAGS"
 
-    if [info exists gdb_spawn_id] {
+    if {[info exists gdb_spawn_id]} {
        return 0
     }
 
-    if ![is_remote host] {
+    if {![is_remote host]} {
        if {[which $GDB] == 0} {
            perror "$GDB does not exist."
            exit 1