Add '_' in the match pattern.

[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.base / reggroups.exp

diff --git a/gdb/testsuite/gdb.base/reggroups.exp b/gdb/testsuite/gdb.base/reggroups.exp
index 294f90931fbccf80a4bcbd213e512d0595cd7c27..036c97b844622d2ea3bfe35d2a167447c434ed12 100644 (file)
--- 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
        }