sysdeps/i386/fpu/s_atanl.c

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Public domain.
   4  *
   5  * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
   6  */
   7
   8 #include <math_private.h>
   9
  10 long double
  11 __atanl (long double x)
  12 {
  13   long double res;
  14
  15   asm ("fld1\n"
  16        "fpatan"
  17        : "=t" (res) : "0" (x));
  18
  19   return res;
  20 }
  21
  22 weak_alias (__atanl, atanl)