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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
# mips test sanity, expected to pass.
# mach: sb1
# as: -mabi=eabi
# ld: -N -Ttext=0x80010000
# output: *\\npass\\n
.include "testutils.inc"
.macro check_ps psval, upperval, lowerval
.set push
.set noreorder
cvt.s.pu $f0, \psval # upper
cvt.s.pl $f2, \psval # lower
li.s $f4, \upperval
li.s $f6, \lowerval
c.eq.s $fcc0, $f0, $f4
bc1f $fcc0, _fail
c.eq.s $fcc0, $f2, $f6
bc1f $fcc0, _fail
nop
.set pop
.endm
setup
.set noreorder
.ent DIAG
DIAG:
# make sure that Status.FR, .CU1, and .SBX are set.
mfc0 $2, $12
or $2, $2, (1 << 26) | (1 << 29) | (1 << 16)
mtc0 $2, $12
li.s $f10, 4.0
li.s $f12, 16.0
cvt.ps.s $f20, $f10, $f12 # $f20: u=4.0, l=16.0
li.s $f10, -1.0
li.s $f12, 2.0
cvt.ps.s $f22, $f10, $f12 # $f22: u=-1.0, l=2.0
writemsg "div.ps"
div.ps $f8, $f20, $f22
check_ps $f8, -4.0, 8.0
writemsg "recip.ps"
recip.ps $f8, $f20
check_ps $f8, 0.25, 0.0625
writemsg "rsqrt.ps"
rsqrt.ps $f8, $f20
check_ps $f8, 0.5, 0.25
writemsg "sqrt.ps"
sqrt.ps $f8, $f20
check_ps $f8, 2.0, 4.0
pass
.end DIAG
|
