Sign in
cobalt
/
cobalt
/
cf191b148f6a83454a62c5b73e5db05ad9cd362b
/
.
/
third_party
/
musl
/
src
/
math
/
i386
/
atanf.s
blob: 8caddefa26efc0256e756b4b164def3b317dd148 [
file
] [
log
] [
blame
]
.global atanf
.type atanf
,@
function
atanf
:
flds
4
(
%esp
)
mov
4
(%esp),%
eax
add
%eax,%
eax
cmp
$
0x01000000
,
%eax
jb
1
f
fld1
fpatan
ret
# subnormal x, return x with underflow
1
:
fnstsw %ax
and
$
16
,
%ax
jnz
2
f
fld %st
(
0
)
fmul %st
(
1
)
fstps
4
(
%esp
)
2
:
ret