diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/return.exp | 9 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/return2.exp | 10 |
3 files changed, 20 insertions, 5 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 7e0a941..d46acc7 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2001-07-16 Stephane Carrez <Stephane.Carrez@worldnet.fr> + * gdb.base/return2.exp: return of long long and double fails for + 68HC11; don't execute these tests on that platform. + * gdb.base/return.exp: Return of a double fails for 68hc11. + +2001-07-16 Stephane Carrez <Stephane.Carrez@worldnet.fr> + * call-ar-st.exp: Use gdb_skip_float_test to avoid executing tests that print a float. * call-rt-st.exp: Likewise. diff --git a/gdb/testsuite/gdb.base/return.exp b/gdb/testsuite/gdb.base/return.exp index c3a85e8..e7a536b 100644 --- a/gdb/testsuite/gdb.base/return.exp +++ b/gdb/testsuite/gdb.base/return.exp @@ -1,4 +1,4 @@ -# Copyright (C) 1992, 1997 Free Software Foundation, Inc. +# Copyright (C) 1992, 1997, 2001 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -73,6 +73,10 @@ proc return_tests { } { gdb_test "p tmp2" ".* = 5" "correct value returned (integer test)" gdb_test "continue" "return -5.0;" "continue to return of -5.0" + + # Return of a double does not work for 68hc11 (need struct return + # in memory). + setup_xfail "m6811-*-*" send_gdb "return 5.0\n" gdb_expect { -re "Make .* return now.*y or n. $" { @@ -84,6 +88,7 @@ proc return_tests { } { timeout { fail "(timeout) did not return (double test)" } } + setup_xfail "m6811-*-*" gdb_test "next" "printf.*" "next over call to func3" # This test is going to fail on all i*86 systems using an i*87. @@ -108,7 +113,7 @@ proc return_tests { } { # process start, making this test pass, it will be for a version that # is not xfailed. - setup_xfail "i*86-*-*" "sparc-*-solaris2.3*" "sparc-*-solaris2.4*" + setup_xfail "i*86-*-*" "sparc-*-solaris2.3*" "sparc-*-solaris2.4*" "m6811-*-*" gdb_test "p tmp3" ".* = 5.*" "correct value returned double test (known problem with i*86 and sparc solaris" } diff --git a/gdb/testsuite/gdb.base/return2.exp b/gdb/testsuite/gdb.base/return2.exp index ba2bfa9..d10faf0 100644 --- a/gdb/testsuite/gdb.base/return2.exp +++ b/gdb/testsuite/gdb.base/return2.exp @@ -1,4 +1,4 @@ -# Copyright 2000 Free Software Foundation, Inc. +# Copyright 2000, 2001 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -109,9 +109,13 @@ proc return2_tests { } { return_1 "short" return_1 "int" return_1 "long" - return_1 "long_long" + if { ! [istarget "m6811-*-*"] } then { + return_1 "long_long" + } return_1 "float" - return_1 "double" + if { ! [istarget "m6811-*-*"] } then { + return_1 "double" + } } # Start with a fresh gdb. |