Updated to fedora-glibc-20050912T0656
[glibc/history.git] / sysdeps / i386 / fpu / s_atanl.c
blobb7dba88aad77e7b5cd2bbfc50c88c3b72e448d77
1 /*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
5 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
6 */
8 #include <math_private.h>
10 long double
11 __atanl (long double x)
13 long double res;
15 asm ("fld1\n"
16 "fpatan"
17 : "=t" (res) : "0" (x));
19 return res;
22 weak_alias (__atanl, atanl)