mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-24 01:33:32 +08:00
* 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.
This commit is contained in:
parent
af6d4d16ea
commit
5a8a03d881
@ -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>
|
Fri Dec 29 10:46:09 1995 Fred Fish <fnf@cygnus.com>
|
||||||
|
|
||||||
* builtins.exp (test_size): Alpha seems to have long builtins.
|
* builtins.exp (test_size): Alpha seems to have long builtins.
|
||||||
|
@ -37,6 +37,13 @@ if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != ""
|
|||||||
return -1
|
return -1
|
||||||
}
|
}
|
||||||
|
|
||||||
|
global infinity
|
||||||
|
if [istarget "i*86-*-sysv4*"] then {
|
||||||
|
set infinity "inf"
|
||||||
|
} else {
|
||||||
|
set infinity "Infinity"
|
||||||
|
}
|
||||||
|
|
||||||
proc set_lang_chill {} {
|
proc set_lang_chill {} {
|
||||||
global prompt
|
global prompt
|
||||||
global binfile objdir subdir
|
global binfile objdir subdir
|
||||||
@ -118,6 +125,7 @@ proc test_write { args } {
|
|||||||
|
|
||||||
# test write access from gdb (setvar x:=y) from gdb
|
# test write access from gdb (setvar x:=y) from gdb
|
||||||
proc write_access { } {
|
proc write_access { } {
|
||||||
|
global infinity
|
||||||
|
|
||||||
verbose "testing write access to locations"
|
verbose "testing write access to locations"
|
||||||
|
|
||||||
@ -203,12 +211,13 @@ proc write_access { } {
|
|||||||
test_write re1 0 "real write 2"
|
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} \
|
test_write re1 "1e+38" {1e\+38|1\.0[0-9]*e\+38|9\.9[0-9]*e\+37} \
|
||||||
"real write 3"
|
"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 42.03 {42.0[0-9]*} "real write 5"
|
||||||
test_write re2 0 "real write 6"
|
test_write re2 0 "real write 6"
|
||||||
test_write re2 "1e+308" {1e\+308} "real write 7"
|
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
|
# array modes
|
||||||
test_write arrl1 {[(1:3): [(1:2): -128]]} {\[\(1:3\): \[\(1:2\): -128\]\]}\
|
test_write arrl1 {[(1:3): [(1:2): -128]]} {\[\(1:3\): \[\(1:2\): -128\]\]}\
|
||||||
"array write 1"
|
"array write 1"
|
||||||
|
Loading…
Reference in New Issue
Block a user