winsup/cygwin/math/atan2l.c

   1 /**
   2  * This file has no copyright assigned and is placed in the Public Domain.
   3  * This file is part of the mingw-w64 runtime package.
   4  * No warranty is given; refer to the file DISCLAIMER.PD within this package.
   5  */
   6 long double atan2l (long double y, long double x);
   7
   8 long double
   9 atan2l (long double y, long double x)
  10 {
  11   long double res = 0.0L;
  12   asm ("fpatan" : "=t" (res) : "u" (y), "0" (x) : "st(1)");
  13   return res;
  14 }