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

2 files changed, 19 insertions, 3 deletions

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index c645bd7..0be91fc 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  <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 38260f1..2630a16 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"