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

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index bda9cee6a7288eb28bfc3d5d8b503ad8fbe271aa..589f352f056a57d8d49487e695eab86f1a03cd16 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -40,7 +40,6 @@ exclude = [
 "gdb/testsuite/lib/dwarf.exp",
 "gdb/testsuite/lib/future.exp",
 "gdb/testsuite/lib/gdb.exp",
-"gdb/testsuite/lib/gdbreplay-support.exp",
 "gdb/testsuite/lib/gdbserver-support.exp",
 "gdb/testsuite/lib/gdb-utils.exp",
 "gdb/testsuite/lib/gen-perf-test.exp",

diff --git a/gdb/testsuite/lib/gdbreplay-support.exp b/gdb/testsuite/lib/gdbreplay-support.exp
index dc79299d733ad75da24a930f1371850ad582a782..2a43ede04344c54324c01f8075050512d357543b 100644 (file)
--- a/gdb/testsuite/lib/gdbreplay-support.exp
+++ b/gdb/testsuite/lib/gdbreplay-support.exp
@@ -45,7 +45,7 @@ proc gdbreplay_write_cmd_file { cmdline } {
     set logfile [standard_output_file_with_gdb_instance gdbreplay.cmd]
     set cmd_file [open $logfile w]
     puts $cmd_file $cmdline
-    catch "close $cmd_file"
+    catch {close $cmd_file}
 }
 
 # Start gdbreplay using REMOTELOG as the log file.  Return a list of
@@ -57,7 +57,7 @@ proc gdbreplay_start { remotelog } {
     set portnum [get_portnum]
 
     # Extract the protocol
-    if [target_info exists gdb_protocol] {
+    if {[target_info exists gdb_protocol]} {
        set protocol [target_info gdb_protocol]
     } else {
        set protocol "remote"