diff options
| author | Fred Fish <fnf@specifix.com> | 1995-09-02 07:25:13 +0000 |
|---|---|---|
| committer | Fred Fish <fnf@specifix.com> | 1995-09-02 07:25:13 +0000 |
| commit | 218f9f03b889ab048141eac1ef6125adef22afc8 (patch) | |
| tree | 0c5883e369a132a5fd0120ff6eb89b38127ebe71 | |
| parent | 1613e0758eb1e86b29734ac170618e1458244728 (diff) | |
| download | gdb-218f9f03b889ab048141eac1ef6125adef22afc8.zip gdb-218f9f03b889ab048141eac1ef6125adef22afc8.tar.gz gdb-218f9f03b889ab048141eac1ef6125adef22afc8.tar.bz2 | |
* 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.
| -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 *" } |