Back to index

glibc  2.9
s_atanl.c
Go to the documentation of this file.
00001 /*
00002  * Written by J.T. Conklin <jtc@netbsd.org>.
00003  * Public domain.
00004  *
00005  * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
00006  */
00007 
00008 #include <math_private.h>
00009 
00010 long double
00011 __atanl (long double x)
00012 {
00013   long double res;
00014 
00015   asm ("fld1\n"
00016        "fpatan"
00017        : "=t" (res) : "0" (x));
00018 
00019   return res;
00020 }
00021 
00022 weak_alias (__atanl, atanl)