diff options
author | Fred Fish <fnf@specifix.com> | 1996-11-23 21:28:30 +0000 |
---|---|---|
committer | Fred Fish <fnf@specifix.com> | 1996-11-23 21:28:30 +0000 |
commit | e8ee39bcfb8ebad2d69b01cdbb056abb08136cac (patch) | |
tree | 02307372b7c0401f2f0258c6a564c0567d1a8c6c /gdb/testsuite/gdb.chill | |
parent | 23def2765bceb1edc097c7f2acf3aef4272358ad (diff) | |
download | gdb-e8ee39bcfb8ebad2d69b01cdbb056abb08136cac.zip gdb-e8ee39bcfb8ebad2d69b01cdbb056abb08136cac.tar.gz gdb-e8ee39bcfb8ebad2d69b01cdbb056abb08136cac.tar.bz2 |
* 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 ]]]'.
Diffstat (limited to 'gdb/testsuite/gdb.chill')
-rw-r--r-- | gdb/testsuite/gdb.chill/ChangeLog | 13 | ||||
-rw-r--r-- | gdb/testsuite/gdb.chill/misc.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.chill/pr-5016.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.chill/tests2.exp | 4 | ||||
-rw-r--r-- | gdb/testsuite/gdb.chill/tuples.exp | 12 |
5 files changed, 23 insertions, 10 deletions
diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog index 81f8022..3d1480c 100644 --- 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 fd4c1b7..1c1a5b2 100644 --- 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 bf57ead..4e5ff88 100644 --- 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 5669663..7bc5db4 100644 --- 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 2996f97..5204c76 100644 --- 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" |