Sign in
cobalt
/
cobalt
/
08336faa599332e3e3bf29b7ad38ef023018b55e
/
.
/
third_party
/
musl
/
src
/
math
/
i386
/
atan.s
blob: d73137b28eb545c543338383b0a5bbc8947345a7 [
file
] [
log
] [
blame
]
.global atan
.type atan
,@
function
atan
:
fldl
4
(
%esp
)
mov
8
(%esp),%
eax
add
%eax,%
eax
cmp
$
0x00200000
,
%eax
jb
1
f
fld1
fpatan
ret
# subnormal x, return x with underflow
1
:
fnstsw %ax
and
$
16
,
%ax
jnz
2
f
fsts
4
(
%esp
)
2
:
ret