From 218f9f03b889ab048141eac1ef6125adef22afc8 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Sat, 2 Sep 1995 07:25:13 +0000 Subject: [PATCH] * 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. --- gdb/testsuite/ChangeLog | 8 ++++++++ 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 33991af2ccb..dab977fcd9b 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,11 @@ +Sat Sep 2 00:17:31 1995 Fred Fish + + * 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 * 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 7dca116799e..d16fb0db41e 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 *" } -- 2.30.2