projects
/
musl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
af423a2fcdbdac84409c4155e49be84ae354cd96
[musl]
/
acos.s
1
# use acos(x) = atan2(fabs(sqrt((1-x)*(1+x))), x)
2
3
.global acos
4
.type acos,@function
5
acos:
6
fldl 4(%esp)
7
fld %st(0)
8
fld1
9
fsub %st(0),%st(1)
10
fadd %st(2)
11
fmulp
12
fsqrt
13
fabs # fix sign of zero (matters in downward rounding mode)
14
fxch %st(1)
15
fpatan
16
fstpl 4(%esp)
17
fldl 4(%esp)
18
ret