OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* 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 ]]]'.
This commit is contained in:
Fred Fish 1996-11-23 21:28:30 +00:00
parent 23def2765b
commit e8ee39bcfb
5 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gdb/testsuite/gdb.chill/ChangeLog
View File

@ -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

2
gdb/testsuite/gdb.chill/misc.exp
View File

@ -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"

2
gdb/testsuite/gdb.chill/pr-5016.exp
View File

@ -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"

4
gdb/testsuite/gdb.chill/tests2.exp
View File

@ -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\]\]}\

12
gdb/testsuite/gdb.chill/tuples.exp
View File

@ -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"