[pushed] [gdb/testsuite] Fix gdb.dwarf2/forward-spec.exp with read1

Tom de Vries via Gdb-patches
2023-07-15T08:11:35Z

When running test-case gdb.dwarf2/forward-spec.exp with check-read1 we run
into:
...
parent: ((cooked_index_entry *) 0xFAIL: <exp>: v has a parent
7fdc1c002ed0) [ns]^M
...

The problem is using regexps containing '.' to avoid escaping, which makes
them too generic.

Fix this by eliminating the '.' from the regexps.

Tested on x86_64-linux.
---
gdb/testsuite/gdb.dwarf2/forward-spec.exp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gdb/testsuite/gdb.dwarf2/forward-spec.exp b/gdb/testsuite/gdb.dwarf2/forward-spec.exp
index ac7d16b09b8..f4512cf9b8c 100644
--- a/gdb/testsuite/gdb.dwarf2/forward-spec.exp
+++ b/gdb/testsuite/gdb.dwarf2/forward-spec.exp
@@ -74,7 +74,7 @@ if {[prepare_for_testing "failed to prepare" ${testfile} \

set in_v 0
gdb_test_multiple "maint print objfiles" "v has a parent" {
- -re "^ *\\\[\[0-9\]\\\] *..cooked_index_entry\[^\r\n\]*" {
+ -re "^ *\\\[\[0-9\]\\\] *\\(\\(cooked_index_entry\[^\r\n\]*" {
set in_v 0
exp_continue
}
@@ -82,7 +82,7 @@ gdb_test_multiple "maint print objfiles" "v has a parent" {
set in_v 1
exp_continue
}
- -re "^ *parent: *..cooked_index_entry .. (0|$hex)." {
+ -re "^ *parent: *\\(\\(cooked_index_entry \\*\\) (0|$hex)\\)" {
if {$in_v} {
if {$expect_out(1,string) == "0"} {
fail $gdb_test_name

base-commit: c1f6762ce51fbcffb7ee3fdb1d794435fb19d43c
--
2.35.3