2.9
[glibc/nacl-glibc.git] / sysdeps / i386 / fpu / e_asin.S
blob945e308245bdf87e51c4bf452b69cd11a6801505
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  */
6 #include <machine/asm.h>
8 RCSID("$NetBSD: e_asin.S,v 1.4 1995/05/08 23:45:40 jtc Exp $")
10 /* asin = atan (x / sqrt(1 - x^2)) */
11 ENTRY(__ieee754_asin)
12         fldl    4(%esp)                 /* x */
13         fld     %st
14         fmul    %st(0)                  /* x^2 */
15         fld1
16         fsubp                           /* 1 - x^2 */
17         fsqrt                           /* sqrt (1 - x^2) */
18         fpatan
19         ret
20 END (__ieee754_asin)