* 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.
This commit is contained in:
Fred Fish
1995-09-02 07:25:13 +00:00
parent 1613e0758e
commit 218f9f03b8
2 changed files with 10 additions and 3 deletions

View File

@ -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

View File

@ -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 *"
}