diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/callfuncs.exp | 5 |
2 files changed, 10 insertions, 3 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 33991af..dab977f 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,11 @@ +Sat Sep 2 00:17:31 1995 Fred Fish <fnf@cygnus.com> + + * gdb.base/callfuncs.exp (do_function_calls): Remove + mips-sgi-irix* xfail for + "call inferior func with struct - returns char *" + and fix test so that an optional (unsigned char *) cast is + accepted in the result. + Fri Sep 1 13:42:01 1995 Fred Fish <fnf@cygnus.com> * gdb.base/funcargs.exp (float_and_integral_args): Remove diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp index 7dca116..d16fb0d 100644 --- a/gdb/testsuite/gdb.base/callfuncs.exp +++ b/gdb/testsuite/gdb.base/callfuncs.exp @@ -115,7 +115,7 @@ proc do_function_calls {} { gdb_test "p t_float_values2(0.0,0.0)" " = 0" # Although PR 5318 mentions SunOS specifically, this seems - # to be a generic problem on all platforms except r6000. + # to be a generic problem on quite a few platforms. if $prototypes then { setup_xfail "*-*-*" 5318 clear_xfail "rs6000-*-*" @@ -196,8 +196,7 @@ proc do_function_calls {} { setup_xfail "i*86-*-*" gdb_test "p t_structs_d(struct_val1)" "= 9.87.*" \ "call inferior func with struct - returns double" - if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix*" } - gdb_test "p t_structs_a(struct_val1)" "= \"foo\"" \ + gdb_test "p t_structs_a(struct_val1)" "= (.unsigned char .. )?\"foo\"" \ "call inferior func with struct - returns char *" } |