/* * Written by J.T. Conklin <jtc@netbsd.org>. * Public domain. * * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>. */ #include <machine/asm.h> RCSID("$NetBSD: $") /* asinl = atanl (x / sqrtl(1 - x^2)) */ ENTRY(__ieee754_asinl) fldt 4(%esp) /* x */ fst %st(1) fmul %st(0) /* x^2 */ fld1 fsubp /* 1 - x^2 */ fsqrt /* sqrt (1 - x^2) */ fpatan ret PSEUDO_END (__ieee754_asinl)