From 48fb558e74bf35f4fa5dbf189d2ea9ddec7c7c5c Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Sun, 5 Oct 2025 22:50:09 +0200 Subject: [PATCH] [gdb/testsuite, tclint] Fix lib/gdb-guile.exp --- gdb/tclint.toml | 1 - gdb/testsuite/lib/gdb-guile.exp | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/gdb/tclint.toml b/gdb/tclint.toml index a9c3f1aa377..143c6b87a3c 100644 --- a/gdb/tclint.toml +++ b/gdb/tclint.toml @@ -44,7 +44,6 @@ exclude = [ "gdb/testsuite/lib/fortran.exp", "gdb/testsuite/lib/future.exp", "gdb/testsuite/lib/gdb.exp", -"gdb/testsuite/lib/gdb-guile.exp", "gdb/testsuite/lib/gdbreplay-support.exp", "gdb/testsuite/lib/gdbserver-support.exp", "gdb/testsuite/lib/gdb-utils.exp", diff --git a/gdb/testsuite/lib/gdb-guile.exp b/gdb/testsuite/lib/gdb-guile.exp index 776dbc675bd..9205312cf91 100644 --- a/gdb/testsuite/lib/gdb-guile.exp +++ b/gdb/testsuite/lib/gdb-guile.exp @@ -37,7 +37,7 @@ proc gdb_scm_test_silent_cmd { cmd name {report_pass 1} } { -re "Backtrace.*$gdb_prompt $" { fail $name } -re "ERROR.*$gdb_prompt $" { fail $name } -re "Undefined command: .*$gdb_prompt $" { fail $name } - -re "$gdb_prompt $" { if $report_pass { pass $name } } + -re "$gdb_prompt $" { if {$report_pass} { pass $name } } } } @@ -85,7 +85,7 @@ proc gdb_install_guile_module { } { # The result is the same as for runto_main. proc gdb_guile_runto_main { } { - if ![runto_main] { + if {![runto_main]} { return 0 } -- 2.47.3