* misc.exp: Change x86 linux setup_xfails to use new

 	i*86-pc-linux*-gnu quads.
	* tuples.exp: Ditto.
	* tests2.exp: Ditto.
	* pr-5016.exp: Ditto.

	* tuples.exp: Add i*86-pc-linux-gnu setup_fail to existing
	xfails for 'set var vs1 := [ "bar", 42, m_ps[ a ] ]',
	'set var $i := m_s1["foo", 44, m_ps[a ]]', and
	'set var vs2 := [ 10+3, m_s1[ "foo" , 42, m_ps[ b ]]]'.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 81f80224e2a302125afb0febef305b5fb5b5efbf..3d1480cca6dbdc70d841274609b300686256b97c 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,16 @@
+Sat Nov 23 14:00:59 1996  Fred Fish  <fnf@cygnus.com>
+
+       * misc.exp: Change x86 linux setup_xfails to use new
+       i*86-pc-linux*-gnu quads.
+       * tuples.exp: Ditto.
+       * tests2.exp: Ditto.
+       * pr-5016.exp: Ditto.
+
+       * tuples.exp: Add i*86-pc-linux-gnu setup_fail to existing
+       xfails for 'set var vs1 := [ "bar", 42, m_ps[ a ] ]',
+       'set var $i := m_s1["foo", 44, m_ps[a ]]', and
+       'set var vs2 := [ 10+3, m_s1[ "foo" , 42, m_ps[ b ]]]'.
+       
 Mon Nov 11 10:27:32 1996  Fred Fish  <fnf@cygnus.com>
 
        * callch.exp: Add mips*-sgi-irix* xfail for

diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp
index fd4c1b7a36e446f3a1199aba3068da22351a2bdf..1c1a5b208e31bcef0b72519a97ac19b5c8713569 100644 (file)
--- a/gdb/testsuite/gdb.chill/misc.exp
+++ b/gdb/testsuite/gdb.chill/misc.exp
@@ -84,7 +84,7 @@ if ![set_lang_chill] then {
     gdb_test {print (h'23)} { = 35} "print parantised integer literal"
 
     # Linux thinks this is at line 6, but is otherwise ok.
-    setup_xfail "i*86-*-linux*"
+    setup_xfail "i*86-pc-linux*-gnu"
     gdb_test "info line" \
        {Line 7 of .*misc.ch.* at address H'[0-9a-fA-F]+.*}\
        "info about current line"

diff --git a/gdb/testsuite/gdb.chill/pr-5016.exp b/gdb/testsuite/gdb.chill/pr-5016.exp
index bf57ead805c9ea6cdd3790cc524dfff64d71093c..4e5ff88741f49599c891093f377478f587b0962f 100644 (file)
--- a/gdb/testsuite/gdb.chill/pr-5016.exp
+++ b/gdb/testsuite/gdb.chill/pr-5016.exp
@@ -50,7 +50,7 @@ proc do_tests {} {
 
     runto dump
     # Linux thinks type is "_cint" (and so does sparc-sun-sunos4, alpha-dec-osf2.0)
-    #setup_xfail "i*86-*-linux*" "sparc-sun-sunos4*" "alpha-dec-osf2*"
+    #setup_xfail "i*86-pc-linux*-gnu" "sparc-sun-sunos4*" "alpha-dec-osf2*"
     gdb_test "whatis i" "type = m_index" "whatis int-range"
     gdb_test_exact "ptype m_index" "type = RANGE (1:10)" "ptype m_index"
     gdb_test_exact "whatis a" "type = /*LOC*/ vector"

diff --git a/gdb/testsuite/gdb.chill/tests2.exp b/gdb/testsuite/gdb.chill/tests2.exp
index 566966360abd8aa0e344c7e46cb8767861741879..7bc5db41c91d2f4d681719a56912d3680e1aeab7 100644 (file)
--- a/gdb/testsuite/gdb.chill/tests2.exp
+++ b/gdb/testsuite/gdb.chill/tests2.exp
@@ -211,12 +211,12 @@ proc write_access { } {
     test_write re1 0 "real write 2"
     test_write re1 "1e+38" {1e\+38|1\.0[0-9]*e\+38|9\.9[0-9]*e\+37} \
        "real write 3"
-    setup_xfail "i*86-*-linux" "m68*-*-hpux*"
+    setup_xfail "i*86-pc-linux-gnu" "m68*-*-hpux*"
     test_write re1 "1e+39" $infinity "real write 4"
     test_write re2 42.03 {42.0[0-9]*} "real write 5"
     test_write re2 0 "real write 6"
     test_write re2 "1e+308" {1e\+308} "real write 7"
-    setup_xfail "i*86-*-linux" "m68*-*-hpux*"
+    setup_xfail "i*86-pc-linux-gnu" "m68*-*-hpux*"
     test_write re2 "1e+309" $infinity "real write 8"
     # array modes
     test_write arrl1 {[(1:3): [(1:2): -128]]} {\[\(1:3\): \[\(1:2\): -128\]\]}\

diff --git a/gdb/testsuite/gdb.chill/tuples.exp b/gdb/testsuite/gdb.chill/tuples.exp
index 2996f971749776b58d0083894dc80397bc731bc1..5204c762a12983aa120cc24412751a2033b403f1 100644 (file)
--- a/gdb/testsuite/gdb.chill/tuples.exp
+++ b/gdb/testsuite/gdb.chill/tuples.exp
@@ -123,18 +123,18 @@ proc do_tests {} {
     gdb_test_exact "set var vs1 := \[ \"foo\", 41, \[ b \] \]"  {}
     gdb_test_exact "print vs1" { = [.str: "foo", .i: 41, .ps: [b]]} \
        "print vs1 after tuple assign 1"
-    setup_xfail "sparc-*-solaris*" "sparc-*-sunos*"
+    setup_xfail "i*86-pc-linux*-gnu" "sparc-*-solaris*" "sparc-*-sunos*"
     gdb_test_exact "set var vs1 := \[ \"bar\", 42, m_ps\[ a \] \]" {}
-    setup_xfail "i*86-*-linux*" "sparc-*-solaris*" "sparc-*-sunos*"
+    setup_xfail "i*86-pc-linux*-gnu" "sparc-*-solaris*" "sparc-*-sunos*"
     gdb_test_exact "print vs1" { = [.str: "bar", .i: 42, .ps: [a]]} \
        "print vs1 after tuple assign 2"
 
     gdb_test_exact "set var \$i := m_s1\[\"foo\", 42, \[a \]\]" {}
     gdb_test_exact {print $i} { = [.str: "foo", .i: 42, .ps: [a]]} \
        "print \$i after tuple assign 1"
-    setup_xfail "sparc-*-solaris*" "sparc-*-sunos*"
+    setup_xfail "i*86-pc-linux*-gnu" "sparc-*-solaris*" "sparc-*-sunos*"
     gdb_test_exact "set var \$i := m_s1\[\"foo\", 44, m_ps\[a \]\]" {}
-    setup_xfail "i*86-*-linux*" "sparc-*-solaris*" "sparc-*-sunos*"
+    setup_xfail "i*86-pc-linux*-gnu" "sparc-*-solaris*" "sparc-*-sunos*"
     gdb_test_exact {print $i} { = [.str: "foo", .i: 44, .ps: [a]]} \
        "print \$i after tuple assign 2"
 
@@ -142,9 +142,9 @@ proc do_tests {} {
     gdb_test_exact "print vs2" \
        { = [.i: 10, .s: [.str: "foo", .i: 42, .ps: [b]]]} \
        "print vs2 after tuple assign 1"
-    setup_xfail "sparc-*-solaris*" "sparc-*-sunos*"
+    setup_xfail "i*86-pc-linux*-gnu" "sparc-*-solaris*" "sparc-*-sunos*"
     gdb_test_exact "set var vs2 := \[ 10+3, m_s1\[ \"foo\" , 42, m_ps\[ b \] \] \]" {}
-    setup_xfail "i*86-*-linux*" "sparc-*-solaris*" "sparc-*-sunos*"
+    setup_xfail "i*86-pc-linux*-gnu" "sparc-*-solaris*" "sparc-*-sunos*"
     gdb_test_exact "print vs2" \
        { = [.i: 13, .s: [.str: "foo", .i: 42, .ps: [b]]]} \
        "print vs2 after tuple assign 2"