mirrors/binutils-gdb
0
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-12-24 01:33:32 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

* tests2.exp: Setup_xfail "i*86-*-linux" and

Browse Source 
"mips-sgi-irix*" for "real write 4" and "real write 8".
	Conditionalize both tests for system specific value
	of "infinity" string.
This commit is contained in:
Fred Fish 1995-12-31 00:03:54 +00:00
parent af6d4d16ea
commit 5a8a03d881
2 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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