From: Stephane Carrez <stcarrez@nerim.fr>
Date: Mon, 16 Jul 2001 18:49:43 +0000 (+0000)
Subject: 	* gdb.base/return2.exp: return of long long and double fails for
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d6f5fea1d2e07efbbe9ae8ff64c73941d81e52a8;p=binutils-gdb.git

	* 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 7e0a94176ea..d46acc71efb 100644
--- 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 c3a85e8923c..e7a536bdac6 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 ba2bfa9e044..d10faf001fb 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.