blob: d788d2c9e44775bc30a5d3c6b5893d9881aa1797 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# Reported 93/05/09 by Jim Wilson: IEEE single-precision FLT_MIN value gets
# assembled incorrectly. (Off by one ulp.)
proc dotest {} {
set testname "IEEE FLT_MIN, single-precision"
set x 0
gas_start "x930509a.s" "-al"
while 1 {
expect {
-re " 00008000\[ \]+.single" { pass $testname; set x 1 }
-re " 00800000\[ \]+.single" { pass $testname; set x 1 }
-re " 0080 0000\[ \]+.single" { pass $testname; set x 1 }
-re " ........ +.single" { fail $testname; set x 1 }
-re "\[^\n\]*\n" { }
timeout { perror "timeout\n"; break }
eof { break }
}
}
gas_finish
if !$x then { fail "$testname (listing didn't match)" }
}
if ![istarget vax*-*-*] then {
dotest
}
|
