* 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.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 33991af..dab977f 100644 (file)
--- 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 (file)
--- 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 *"
 
 }