From 63c12fd35f9054a05373df01f589d45d2aec4cce 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/d-support.exp --- gdb/tclint.toml | 1 - gdb/testsuite/lib/d-support.exp | 7 ++++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gdb/tclint.toml b/gdb/tclint.toml index 1700b94b406..4853968dfb7 100644 --- a/gdb/tclint.toml +++ b/gdb/tclint.toml @@ -37,7 +37,6 @@ exclude = [ "gdb/testsuite/lib/aarch64-scalable.exp", "gdb/testsuite/lib/check-test-names.exp", "gdb/testsuite/lib/cp-support.exp", -"gdb/testsuite/lib/d-support.exp", "gdb/testsuite/lib/dwarf.exp", "gdb/testsuite/lib/fortran.exp", "gdb/testsuite/lib/future.exp", diff --git a/gdb/testsuite/lib/d-support.exp b/gdb/testsuite/lib/d-support.exp index 717d88bf078..0714b40d35c 100644 --- a/gdb/testsuite/lib/d-support.exp +++ b/gdb/testsuite/lib/d-support.exp @@ -17,11 +17,12 @@ # The result is 1 (true) for success, 0 (false) for failure. proc set_lang_d {} { - if [gdb_test_no_output "set language d"] { + if {[gdb_test_no_output "set language d"]} { return 0 } - if [gdb_test "show language" ".* source language is \"d\"." \ - "set language to \"d\""] { + if {[gdb_test "show language" \ + [string_to_regexp {The current source language is "d".}] \ + {set language to "d"}]} { return 0 } return 1 -- 2.47.3