From 23e37ab112e96e05c45e74c2143ec1cbdc70cffc Mon Sep 17 00:00:00 2001 From: "J.T. Conklin" Date: Fri, 7 Apr 2000 22:26:35 +0000 Subject: [PATCH] 2000-04-07 J.T. Conklin * gdb.base/funcargs.exp: Relax patterns matching pointers to char. --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/gdb.base/funcargs.exp | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index aeebf250be4..b9b24468e10 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2000-04-07 J.T. Conklin + + * gdb.base/funcargs.exp: Relax patterns matching pointers to char. + Thu Mar 30 13:26:19 2000 Philippe De Muyter * gdb.base/call-ar-st.c (init_small_structs, main): Use floating-point diff --git a/gdb/testsuite/gdb.base/funcargs.exp b/gdb/testsuite/gdb.base/funcargs.exp index d8f58c49ec1..4806ab1d076 100644 --- a/gdb/testsuite/gdb.base/funcargs.exp +++ b/gdb/testsuite/gdb.base/funcargs.exp @@ -289,7 +289,7 @@ proc pointer_args {} { setup_xfail "a29k-*-udi" gdb_run_cmd gdb_expect { - -re ".* call3a \\(cp=$hex \"a\", sp=$hex, ip=$hex, lp=$hex\\) .*$gdb_prompt $" { pass "run to call3a" } + -re ".* call3a \\(cp=$hex \"a.*\", sp=$hex, ip=$hex, lp=$hex\\) .*$gdb_prompt $" { pass "run to call3a" } -re "$gdb_prompt $" { fail "run to call3a" ; gdb_suppress_tests; } timeout { fail "(timeout) run to call3a" ; gdb_suppress_tests; } } @@ -301,7 +301,7 @@ proc pointer_args {} { # Continue; should stop at call3b and print actual arguments. # Try dereferencing the arguments. - if [gdb_test "cont" ".* call3b \\(ucp=$hex \"b\", usp=$hex, uip=$hex, ulp=$hex\\) .*" "continue to call3b"] { + if [gdb_test "cont" ".* call3b \\(ucp=$hex \"b.*\", usp=$hex, uip=$hex, ulp=$hex\\) .*" "continue to call3b"] { gdb_suppress_tests; } -- 2.30.2