From 5a8a03d88144ca295a11430f1bda981f803df269 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Sun, 31 Dec 1995 00:03:54 +0000 Subject: [PATCH] * tests2.exp: Setup_xfail "i*86-*-linux" and "mips-sgi-irix*" for "real write 4" and "real write 8". Conditionalize both tests for system specific value of "infinity" string. --- gdb/testsuite/gdb.chill/ChangeLog | 7 +++++++ gdb/testsuite/gdb.chill/tests2.exp | 15 ++++++++++++--- 2 files changed, 19 insertions(+), 3 deletions(-) diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog index c645bd70fb8..0be91fcec10 100644 --- a/gdb/testsuite/gdb.chill/ChangeLog +++ b/gdb/testsuite/gdb.chill/ChangeLog @@ -1,3 +1,10 @@ +Sat Dec 30 15:31:59 1995 Fred Fish + + * tests2.exp: Setup_xfail "i*86-*-linux" and + "mips-sgi-irix*" for "real write 4" and "real write 8". + Conditionalize both tests for system specific value + of "infinity" string. + Fri Dec 29 10:46:09 1995 Fred Fish * builtins.exp (test_size): Alpha seems to have long builtins. diff --git a/gdb/testsuite/gdb.chill/tests2.exp b/gdb/testsuite/gdb.chill/tests2.exp index 38260f12d64..2630a16d449 100644 --- a/gdb/testsuite/gdb.chill/tests2.exp +++ b/gdb/testsuite/gdb.chill/tests2.exp @@ -37,6 +37,13 @@ if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" return -1 } +global infinity +if [istarget "i*86-*-sysv4*"] then { + set infinity "inf" +} else { + set infinity "Infinity" +} + proc set_lang_chill {} { global prompt global binfile objdir subdir @@ -118,6 +125,7 @@ proc test_write { args } { # test write access from gdb (setvar x:=y) from gdb proc write_access { } { + global infinity verbose "testing write access to locations" @@ -203,12 +211,13 @@ 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" - test_write re1 "1e+39" Infinity "real write 4" + setup_xfail "i*86-*-linux" "mips-sgi-irix*" + 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" - test_write re2 "1e+309" Infinity "real write 8" - + setup_xfail "i*86-*-linux" "mips-sgi-irix*" + test_write re2 "1e+309" $infinity "real write 8" # array modes test_write arrl1 {[(1:3): [(1:2): -128]]} {\[\(1:3\): \[\(1:2\): -128\]\]}\ "array write 1" -- 2.30.2