[PATCH] [gdb/testsuite] Fix two test-cases on ppc64-linux

[Tom de Vries <tdevries@suse.de>]

Fix two test-cases on ppc64-linux, where the .dot prefix used in the v1 ABI
is causing a mismatch.

Tested on ppc64-linux and x86_64-linux.
---
 gdb/testsuite/gdb.ada/bp_c_mixed_case.exp | 6 +++++-
 gdb/testsuite/gdb.opt/break-on-_exit.exp  | 4 +++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
index 4dd4106649a..d428825e051 100644
--- a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
+++ b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
@@ -60,8 +60,12 @@ gdb_test "p <MixedCaseFunc>" \
     " = void" \
     "p <MixedCaseFunc>, in Ada"
 
+# The optional leading dot is for ppc64 v1 ABI function descriptors.
 gdb_test "p <NoDebugMixedCaseFunc>" \
-    " = {<text variable, no debug info>} $hex <NoDebugMixedCaseFunc>" \
+    [quotemeta \
+	 [string cat \
+	      {$@DECIMAL = {<text variable, no debug info>} @HEX} \
+	      { <@/[.]?/NoDebugMixedCaseFunc>}]] \
     "p <NoDebugMixedCaseFunc>, in Ada"
 
 # Try inserting a breakpoint inside a C function. Because the function's
diff --git a/gdb/testsuite/gdb.opt/break-on-_exit.exp b/gdb/testsuite/gdb.opt/break-on-_exit.exp
index fa7cd96d61d..9caa54e4ad8 100644
--- a/gdb/testsuite/gdb.opt/break-on-_exit.exp
+++ b/gdb/testsuite/gdb.opt/break-on-_exit.exp
@@ -62,4 +62,6 @@ gdb_test "info shared"
 
 # If the skip_prologue analysis of _exit is too eager, we may not hit the
 # breakpoint.
-gdb_continue_to_breakpoint "_exit" "_exit \\(\\) .*"
+# The optional leading dot is for ppc64 v1 ABI function descriptors.
+gdb_continue_to_breakpoint "_exit" \
+    [quotemeta {@/[.]?/_exit () @...}]

base-commit: f94273aeb37908c32aa26530ff56e862f0060daf
-- 
2.51.0