From: Hafiz Abid Qadeer <abidh@codesourcery.com>
Date: Tue, 18 Sep 2018 10:23:30 +0000 (+0100)
Subject: Add '_' in the match pattern.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a466edac5f9913e3373e59335607e9666a0ac8c7;p=binutils-gdb.git

Add '_' in the match pattern.

I was looking at GDB testcase results for arm-eabi target with qemu and
noticed that register groups returned by the qemu can have '_' in the
name e.g. 'cp_regs'. The reggroups.exp fails to recognize that as group
name. Fixed by adding '_' in the pattern.

2018-09-20  Hafiz Abid Qadeer  <abidh@codesourcery.com>

	gdb.base/reggroups.exp (fetch_reggroups): Add '_' in match pattern.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 53173c2f18c..3fabd80aeb9 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2018-09-20  Hafiz Abid Qadeer  <abidh@codesourcery.com>
+
+	gdb.base/reggroups.exp (fetch_reggroups): Add '_' in match pattern.
+
 2018-09-18  Sandra Loosemore  <sandra@codesourcery.com>
 
 	* gdb.base/complete-empty.exp: Skip tab-completion tests if
diff --git a/gdb/testsuite/gdb.base/reggroups.exp b/gdb/testsuite/gdb.base/reggroups.exp
index 294f90931fb..036c97b8446 100644
--- a/gdb/testsuite/gdb.base/reggroups.exp
+++ b/gdb/testsuite/gdb.base/reggroups.exp
@@ -43,7 +43,7 @@ proc fetch_reggroups {test} {
 	-re "^ Group\[ \t\]+Type\[ \t\]+\r\n" {
 	    exp_continue
 	}
-	-re "^ (\[0-9a-zA-Z-\]+)\[ \t\]+(user|internal)\[ \t\]+\r\n" {
+	-re "^ (\[_0-9a-zA-Z-\]+)\[ \t\]+(user|internal)\[ \t\]+\r\n" {
 	    lappend reggroups $expect_out(1,string)
 	    exp_continue
 	}