Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  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.h>
  9.  
  10. long double
  11. atanl (long double x)
  12. {
  13.   long double res;
  14.  
  15.   asm ("fld1\n\t"
  16.        "fpatan"
  17.        : "=t" (res) : "0" (x));
  18.   return res;
  19. }
  20.