From da6954780b64c323d78fac6b55d08fde68653073 Mon Sep 17 00:00:00 2001
From: Tom de Vries <tdevries@suse.de>
Date: Sun, 5 Oct 2025 22:50:09 +0200
Subject: [PATCH] [gdb/testsuite, tclint] Fix lib/gdbreplay-support.exp

---
 gdb/tclint.toml                         | 1 -
 gdb/testsuite/lib/gdbreplay-support.exp | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index bda9cee6a72..589f352f056 100644
--- 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 dc79299d733..2a43ede0434 100644
--- 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"
-- 
2.47.3