diff options
-rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/call-sc.exp | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 1ca1beb..2117015 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 98d9591..3de8d67 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})" } |