aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.chill
diff options
context:
space:
mode:
authorFred Fish <fnf@specifix.com>1996-11-23 21:28:30 +0000
committerFred Fish <fnf@specifix.com>1996-11-23 21:28:30 +0000
commite8ee39bcfb8ebad2d69b01cdbb056abb08136cac (patch)
tree02307372b7c0401f2f0258c6a564c0567d1a8c6c /gdb/testsuite/gdb.chill
parent23def2765bceb1edc097c7f2acf3aef4272358ad (diff)
downloadfsf-binutils-gdb-e8ee39bcfb8ebad2d69b01cdbb056abb08136cac.zip
fsf-binutils-gdb-e8ee39bcfb8ebad2d69b01cdbb056abb08136cac.tar.gz
fsf-binutils-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/ChangeLog13
-rw-r--r--gdb/testsuite/gdb.chill/misc.exp2
-rw-r--r--gdb/testsuite/gdb.chill/pr-5016.exp2
-rw-r--r--gdb/testsuite/gdb.chill/tests2.exp4
-rw-r--r--gdb/testsuite/gdb.chill/tuples.exp12
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"