* gdb.base/return2.exp: return of long long and double fails for
authorStephane Carrez <stcarrez@nerim.fr>
Mon, 16 Jul 2001 18:49:43 +0000 (18:49 +0000)
committerStephane Carrez <stcarrez@nerim.fr>
Mon, 16 Jul 2001 18:49:43 +0000 (18:49 +0000)
68HC11; don't execute these tests on that platform.
* gdb.base/return.exp: Return of a double fails for 68hc11.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.base/return.exp
gdb/testsuite/gdb.base/return2.exp

index 7e0a941..d46acc7 100644 (file)
@@ -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.
index c3a85e8..e7a536b 100644 (file)
@@ -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"
 }
 
index ba2bfa9..d10faf0 100644 (file)
@@ -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.