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