[PATCH] Add kfails for PR gdb/1447 for SPARC platforms

[Mark Kettenis <kettenis at chello dot nl>]

Tests involving `long double' in gdb.base/structs.exp fail for the
same reason on SPARC targets with 128-bit long doubles as on the i386.
I already sent a message to gnats.  This adds the associated kfails.

Committed,

Mark

Index: testsuite/ChangeLog
from  Mark Kettenis  <kettenis@gnu.org>
 
	* gdb.base/structs.exp: Add patterns to kfail PR gdb/1447 for
	sparc64-*-* and sparc*-solaris2*.

Index: testsuite/gdb.base/structs.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/structs.exp,v
retrieving revision 1.15
diff -u -p -r1.15 structs.exp
--- testsuite/gdb.base/structs.exp 3 Jan 2004 23:49:31 -0000 1.15
+++ testsuite/gdb.base/structs.exp 4 Jan 2004 14:04:59 -0000
@@ -1,6 +1,6 @@
 # This testcase is part of GDB, the GNU debugger.
 
-# Copyright 1996, 1997, 1999, 2003 Free Software Foundation, Inc.
+# Copyright 1996, 1997, 1999, 2003, 2004 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
@@ -219,6 +219,8 @@ proc test_struct_calls { n } {
 
     # Call fun${n}, checking the printed return-value.
     setup_kfails structs-*tld* i*86-*-* gdb/1447
+    setup_kfails structs-*tld* sparc64-*-* gdb/1447
+    setup_kfails structs-*tld* sparc*-*-solaris2* gdb/1447
     setup_compiler_kfails structs-tc-* gcc-3-3 "DWARF 2" i*86-*-* gdb/1455
     gdb_test "p/c fun${n}()"  "[foo ${n}]" "p/c fun<n>(); ${tests}"
 
@@ -231,6 +233,8 @@ proc test_struct_calls { n } {
 
     gdb_test "call Fun${n}(foo${n})" "" "call Fun<n>(foo<n>); ${tests}"
     setup_kfails structs-*tld* i*86-*-* gdb/1447
+    setup_kfails structs-*tld* sparc64-*-* gdb/1447
+    setup_kfails structs-*tld* sparc*-*-solaris2* gdb/1447
     setup_compiler_kfails structs-tc-* gcc-3-3 "DWARF 2" i*86-*-* gdb/1455
     gdb_test "p/c L${n}" [foo ${n}] "p/c L<n>; ${tests}"
 }
@@ -285,6 +289,8 @@ proc test_struct_returns { n } {
 
     # Check that the program invalidated the relevant global.
     setup_kfails structs-tld i*86-*-* gdb/1447
+    setup_kfails structs-tld sparc64-*-* gdb/1447
+    setup_kfails structs-tld sparc*-*-solaris2* gdb/1447
     gdb_test "p/c L${n}" " = [zed $n]" "zed L<n> for return; ${tests}"
 
     # Force the "return".  This checks that the return is always
@@ -334,6 +340,8 @@ proc test_struct_returns { n } {
 
     set test "value foo<n> returned; ${tests}"
     setup_kfails structs-*tld* i*86-*-* gdb/1447
+    setup_kfails structs-*tld* sparc64-*-* gdb/1447
+    setup_kfails structs-*tld* sparc*-*-solaris2* gdb/1447
     gdb_test_multiple "p/c L${n}" "${test}" {
 	-re " = [foo ${n}].*${gdb_prompt} $" {
 	    if $return_value_unknown {
@@ -385,6 +393,8 @@ proc test_struct_returns { n } {
 
     # Check that the program invalidated the relevant global.
     setup_kfails structs-tld i*86-*-* gdb/1447
+    setup_kfails structs-tld sparc64-*-* gdb/1447
+    setup_kfails structs-tld sparc*-*-solaris2* gdb/1447
     gdb_test "p/c L${n}" " = [zed $n]" "zed L<n> for finish; ${tests}"
 
     # Finish the function, set 'finish_value_unknown" to non-empty if the
@@ -407,6 +417,8 @@ proc test_struct_returns { n } {
     # check that the variable was cleared, is printed.
     set test "value foo<n> finished; ${tests}"
     setup_kfails structs-*tld* i*86-*-* gdb/1447
+    setup_kfails structs-*tld* sparc64-*-* gdb/1447
+    setup_kfails structs-*tld* sparc*-*-solaris2* gdb/1447
     gdb_test_multiple "p/c" "${test}" {
 	-re "[foo ${n}]\[\r\n\]+${gdb_prompt} $" {
 	    if $finish_value_unknown {