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 1f
fld1
fpatan
ret
# subnormal x, return x with underflow
1: fnstsw %ax
and $16,%ax
jnz 2f
fld %st(0)
fmul %st(1)
fstps 4(%esp)
2: ret