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

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 7e0a94176ea5ae525e78a8daa993067d3575f5e8..d46acc71efb384d3712eccb890d1313d95bdcbb9 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gdb/testsuite/gdb.base/return.exp b/gdb/testsuite/gdb.base/return.exp
index c3a85e8923ca701724abed572c512fb27f8ab110..e7a536bdac673cb2b4c6a2c7df0fca6df7f9d722 100644 (file)
--- 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 ba2bfa9e044d03f541fee37654e4c47ca7bd1fd9..d10faf001fbacfde5f889b5d34b561c90eca9170 100644 (file)
--- 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.