From: Doug Evans <xdje42@gmail.com>
Date: Tue, 9 Sep 2014 05:19:32 +0000 (-0700)
Subject: gdb.guile/scm-error.exp: Handle guile 2.2 backtrace output.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=837405970476d31d6b4d7774e2c914fdfa7a9930;p=binutils-gdb.git

gdb.guile/scm-error.exp: Handle guile 2.2 backtrace output.

gdb/testsuite/ChangeLog:

	* gdb.guile/scm-error.exp: Handle guile 2.2 backtrace output.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index d3d78d79ae7..d5ebf48f059 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-09  Doug Evans  <xdje42@gmail.com>
+
+	* gdb.guile/scm-error.exp: Handle guile 2.2 backtrace output.
+
 2014-09-09  Yao Qi  <yao@codesourcery.com>
 
 	* gdb.mi/mi-var-display.exp: Set print symbol off.
diff --git a/gdb/testsuite/gdb.guile/scm-error.exp b/gdb/testsuite/gdb.guile/scm-error.exp
index b5a1028d383..3de3dc25af1 100644
--- a/gdb/testsuite/gdb.guile/scm-error.exp
+++ b/gdb/testsuite/gdb.guile/scm-error.exp
@@ -95,7 +95,7 @@ gdb_test_no_output "set guile print-stack full" \
     "set print-stack to full, for backtrace test"
 
 gdb_test "guile (define x (top-func 42))" \
-    "Guile Backtrace:.*top-func 42.*middle-func 42.*bottom-func 42.*" \
+    "Guile Backtrace:.*top-func (42|_).*middle-func (42|_).*bottom-func (42|_).*" \
     "backtrace printed"
 
 # Verify gdb-specific errors are printed properly.