From: Mark Kettenis <kettenis@gnu.org>
Date: Wed, 28 Apr 2004 00:15:52 +0000 (+0000)
Subject: * gdb.base/call-sc.exp (start_scalars_test): Fix regular
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0ef32fd971cddc5cb65921549d1aaf813940c58f;p=binutils-gdb.git

* gdb.base/call-sc.exp (start_scalars_test): Fix regular
expression that checks the return type.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 1ca1beb6b77..2117015f9bd 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-25  Mark Kettenis  <kettenis@gnu.org>
+
+	* gdb.base/call-sc.exp (start_scalars_test): Fix regular
+	expression that checks the return type.
+
 2004-04-23  Andrew Cagney  <cagney@redhat.com>
 
 	* gdb.base/call-sc.exp: New test of scalar call/return values.
diff --git a/gdb/testsuite/gdb.base/call-sc.exp b/gdb/testsuite/gdb.base/call-sc.exp
index 98d959176e3..3de8d67311f 100644
--- a/gdb/testsuite/gdb.base/call-sc.exp
+++ b/gdb/testsuite/gdb.base/call-sc.exp
@@ -115,7 +115,7 @@ proc start_scalars_test { type } {
     set test "ptype; ${testfile}"
     set foo_t "xxx"
     gdb_test_multiple "ptype ${type}" "${test}" {
-	-re "type = (\[^\\r\\n\]*).*$gdb_prompt $" {
+	-re "type = (\[^\r\n\]*)\r\n$gdb_prompt $" {
 	    set foo_t "$expect_out(1,string)"
 	    pass "$test (${foo_t})"
 	}