Sign in
cobalt
/
cobalt
/
64122ebb4f1c532e31e9338229fcced8940c607c
/
.
/
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