* 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.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index c645bd70fb8b1f35f4a7a48f35ed8a1f6d62a418..0be91fcec1000f9b5aca2b3cdd66d89ed10f361f 100644 (file)
--- 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  <fnf@cygnus.com>
+
+       * 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  <fnf@cygnus.com>
 
        * 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 38260f12d64c183905025ddad13030330f15a94a..2630a16d449f38310feae17ca9d2577e10d254b3 100644 (file)
--- 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"