2000-04-07 J.T. Conklin <jtc@redback.com>

        * gdb.base/funcargs.exp: Relax patterns matching pointers to char.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index aeebf250be428e07caa4e4216ea41117592b5a87..b9b24468e10bb26c44d21db60280a597be58e41a 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2000-04-07  J.T. Conklin  <jtc@redback.com>
+
+       * gdb.base/funcargs.exp: Relax patterns matching pointers to char.
+
 Thu Mar 30 13:26:19 2000  Philippe De Muyter  <phdm@macqel.be>
 
        * 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 d8f58c49ec187f5a6c4af8e3005ac05dec0664f7..4806ab1d0761de4edb0a3419af5ca1b6a950b547 100644 (file)
--- 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;
     }